![]() |
#2
kevinxu06382011-12-07 10:48
|

<% Option Explicit %>
<%
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "table"
dim strSql,strlsbh,strcr,strtime,strywlb,strtdh,strhd,strzl,strtj,strrksl,strcksl,strysch,strbz
strlsbh=request.form("lsbh")
strcr=request.form("cr")
strtime=request.form("time")
strywlb=request.form("ywlb")
strtdh=request.form("tdh")
strhd=request.form("hd")
strzl=request.form("zl")
strtj=request.form("tj")
strrksl=request.form("rksl")
strcksl=request.form("cksl")
strysch=request.form("ysch")
strbz=request.form("bz")
strsql="insert into 2011 (lsbh,cr,time,ywlb,tdh,hd,zl,tj,rksl,cksl,ysch,bz) values (’"&strlsbh&"’,’"&strcr&"’,’"&strtime&","&strywlb&"’,’"&strtdh&"’,’"&strhd&","&strzl&"’,’"&strtj&"’,’"&strrksl&","&strcksl&"’,’"&strysch&"’,’"&strbz&"’);"
db.Execute(strSql)
Response.Redirect "add.asp"
%>
大家帮我看看我这个错哪儿 运行时说db.Execute(strSql) 这行错误 <%
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "table"
dim strSql,strlsbh,strcr,strtime,strywlb,strtdh,strhd,strzl,strtj,strrksl,strcksl,strysch,strbz
strlsbh=request.form("lsbh")
strcr=request.form("cr")
strtime=request.form("time")
strywlb=request.form("ywlb")
strtdh=request.form("tdh")
strhd=request.form("hd")
strzl=request.form("zl")
strtj=request.form("tj")
strrksl=request.form("rksl")
strcksl=request.form("cksl")
strysch=request.form("ysch")
strbz=request.form("bz")
strsql="insert into 2011 (lsbh,cr,time,ywlb,tdh,hd,zl,tj,rksl,cksl,ysch,bz) values (’"&strlsbh&"’,’"&strcr&"’,’"&strtime&","&strywlb&"’,’"&strtdh&"’,’"&strhd&","&strzl&"’,’"&strtj&"’,’"&strrksl&","&strcksl&"’,’"&strysch&"’,’"&strbz&"’);"
db.Execute(strSql)
Response.Redirect "add.asp"
%>