% if request("B")="提交答案" then name=request("name") remark=request("remark") tel=request("tel") answer1=request("answer1") answer2=request("answer2") answer3=request("answer3") answer4=request("answer4") answer5=request("answer5") answer6=request("answer6") answer7=request("answer7") answer8=request("answer8") answer9=request("answer9") Set Conn=Server.CreateObject("ADODB.Connection") set rs=server.createobject("adodb.recordset") Connstr="DBQ="+server.mappath("abcdb.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};" conn.open connstr sql = "insert into abcdb(name,tel,remark,answer1,answer2,answer3,answer4,answer5,answer6,answer7,answer8,answer9)values('"+name+"','"+tel+"','"+remark+"','"+answer1+"','"+answer2+"','"+answer3+"','"+answer4+"','"+answer5+"','"+answer6+"','"+answer7+"','"+answer8+"','"+answer9+"')" conn.execute sql end if %>
![]() |
||
|
||
版权所有:西安电视台