小弟我的有关问题请看 40分
日期：2014-05-17 浏览次数：21263 次
在线等 我的问题请看 40分
首先谢谢你浏览
我的问题总提示
错误类型：
Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/shopping/index.asp, line 45
end if
请你看看是哪个地方出了问题 谢谢你们
我等很久了 希望 可以抽点时间搞一下 最好把问题都一次性清楚 代码很简单 对你们来说不会很麻烦的
我的代码：
<%
Set Con=Server.CreateObiect( "ADODB.connection ")
Con.Open= "DRIVER={Microsoft Acess Driver(*.mdb)};DBQ=C:\Inetpub\wwwroot\shopping\data\db.mdb "
action=trim(Request( "action "))
xm=trim(Request( "xm "))
sheng=trim(Request( "sheng "))
shi=trim(Request( "shi "))
xz=trim(Request( "xz "))
cun=trim(Request( "cun "))
mph=trim(Request( "mph "))
yb=trim(Request( "yb "))
gzdw=trim(Request( "gzdw "))
lxdh=trim(Request( "lxdh "))
dzyx=trim(Request( "dzyx "))
if action= "index " then checkpass=true
if len(xm) <1 then checkpass=false
if len(sheng) <1 then checkpass=false
if len(shi) <1 then checkpass=false
if len(xz) <1 then checkpass=false
if len(cun) <1 then checkpass=false
if len(yb) <1 then checkpass=false
if len(gzdw) <1 then checkpass=false
if len(lxdh) <1 then checkpass=false
if len(dzyx) <1 then checkpass=false
Set Rs=Server.CreateObiect( "ADODB.Connection ")
query= "select xm from xinxi where xm= ' "+xm+ " ' "
Rs.Open query,Con,1,3
rs( "xm ")=xm
rs( "sheng ")=sheng
rs( "shi ")=shi
rs( "xz ")=xz
rs( "cun ")=cun
rs( "mph ")=mph
rs( "yb ")=yb
rs( "gzdw ")=gzdw
rs( "lxdh ")=lxdh
rs( "dzyx ")=dzyx
rs.update
rs.close
Response.Redirect "/shopping/index.asp "
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN " >
<html>
<head>
<meta http-equiv= "Content-Type " content= "text/html; charset=gb2312 ">
<title> 订购页面 </title>
<style type= "text/css ">
<!--
.style7 {
font-size: xx-large;
font-weight: bold;
}
.style11 {font-size: 18px}
-->
</style>
</head>
<body>
<table width= "684 " border= "0 " align= "center " cellpadding= "0 " cellspacing= "0 ">
<tr bgcolor= "#669999 ">
<td height= "64 " colspan= "2 "> <div align= "center "> <span class= "style7 "> 订购人信息 </span> </div> </td>
</tr>
首先谢谢你浏览
我的问题总提示
错误类型：
Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/shopping/index.asp, line 45
end if
请你看看是哪个地方出了问题 谢谢你们
我等很久了 希望 可以抽点时间搞一下 最好把问题都一次性清楚 代码很简单 对你们来说不会很麻烦的
我的代码：
<%
Set Con=Server.CreateObiect( "ADODB.connection ")
Con.Open= "DRIVER={Microsoft Acess Driver(*.mdb)};DBQ=C:\Inetpub\wwwroot\shopping\data\db.mdb "
action=trim(Request( "action "))
xm=trim(Request( "xm "))
sheng=trim(Request( "sheng "))
shi=trim(Request( "shi "))
xz=trim(Request( "xz "))
cun=trim(Request( "cun "))
mph=trim(Request( "mph "))
yb=trim(Request( "yb "))
gzdw=trim(Request( "gzdw "))
lxdh=trim(Request( "lxdh "))
dzyx=trim(Request( "dzyx "))
if action= "index " then checkpass=true
if len(xm) <1 then checkpass=false
if len(sheng) <1 then checkpass=false
if len(shi) <1 then checkpass=false
if len(xz) <1 then checkpass=false
if len(cun) <1 then checkpass=false
if len(yb) <1 then checkpass=false
if len(gzdw) <1 then checkpass=false
if len(lxdh) <1 then checkpass=false
if len(dzyx) <1 then checkpass=false
Set Rs=Server.CreateObiect( "ADODB.Connection ")
query= "select xm from xinxi where xm= ' "+xm+ " ' "
Rs.Open query,Con,1,3
rs( "xm ")=xm
rs( "sheng ")=sheng
rs( "shi ")=shi
rs( "xz ")=xz
rs( "cun ")=cun
rs( "mph ")=mph
rs( "yb ")=yb
rs( "gzdw ")=gzdw
rs( "lxdh ")=lxdh
rs( "dzyx ")=dzyx
rs.update
rs.close
Response.Redirect "/shopping/index.asp "
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN " >
<html>
<head>
<meta http-equiv= "Content-Type " content= "text/html; charset=gb2312 ">
<title> 订购页面 </title>
<style type= "text/css ">
<!--
.style7 {
font-size: xx-large;
font-weight: bold;
}
.style11 {font-size: 18px}
-->
</style>
</head>
<body>
<table width= "684 " border= "0 " align= "center " cellpadding= "0 " cellspacing= "0 ">
<tr bgcolor= "#669999 ">
<td height= "64 " colspan= "2 "> <div align= "center "> <span class= "style7 "> 订购人信息 </span> </div> </td>
</tr>
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
