关键字：       发布日期：2010-06-22      浏览次数：0

 <%@LANGUAGE=VBSCRIPT%> <%ON ERROR RESUME NEXT%> <% '定义数据库连接 SET CONN=SERVER.CreateObject("ADODB.CONNECTION") DBPath=SERVER.MapPath("111.MDB") CONN.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq="&DBPath '定义数组MYARRAY(X)，其中X为 题目数+1 DIM MYARRAY(6)     MYARRAY(0)=""     MYARRAY(1)=REQUEST("R1")     MYARRAY(2)=REQUEST("R2")     MYARRAY(3)=REQUEST("R3")     MYARRAY(4)=REQUEST("R4")     MYARRAY(5)=REQUEST("R5") '定义循环变量I I=1 '声明 I>题目数 时退出循环 DO WHILE NOT I>5 '定义RS SET RS=SERVER.CreateObject("ADODB.RECORDSET") '定义SQL变量，S"&I&"为题目序号，ID为结果 SQL="UPDATE 111 SET S"&I&"=S"&I&"+1 WHERE ID='"&MYARRAY(I)&"'" RS.Open SQL,CONN,3,2 '释放RS及SQL变量 SET RS=NOTHING SET SQL=NOTHING I=I+1 LOOP Response.Write ("SAVED YOUR VOTE SUCCED!!
")
Response.Write ERR.DESCRIPTION %>