您所在位置：主题：大家帮忙看下！郁闷的
windstore
[专家分：830] 发布于 2006-12-25 10:30:00
<!--#include file= "conn.asp" -->
<%
dim i,temp,value1,t,counts
rs.open "select * from vote",conn,1,3
i=1
while NOT rs.eof
temp="p"&i
value1=request.Form(temp)
t=cint(value1)
if t<>0 then //我一加判断 服务器就会挂掉！
rs.fields(t).value=rs.fields(t).value+1
rs.update
rs.movenext
i=i+1
end if
Wend
rs.close
'set rs1=Server.CreateObject("Adodb.Recordset")
'rs1.open "select * from count",conn,1,3 我只要一加这个就会提示错误 说select 字句错误
'rs1("计数器")=rs1("计数器")+1
'rs1.update
'rs1.close
conn.close
%>
<%
dim i,temp,value1,t,counts
rs.open "select * from vote",conn,1,3
i=1
while NOT rs.eof
temp="p"&i
value1=request.Form(temp)
t=cint(value1)
if t<>0 then //我一加判断 服务器就会挂掉！
rs.fields(t).value=rs.fields(t).value+1
rs.update
rs.movenext
i=i+1
end if
Wend
rs.close
'set rs1=Server.CreateObject("Adodb.Recordset")
'rs1.open "select * from count",conn,1,3 我只要一加这个就会提示错误 说select 字句错误
'rs1("计数器")=rs1("计数器")+1
'rs1.update
'rs1.close
conn.close
%>
