<%
Dim Conn,times,X1,X2,X3,X4,X5
times=1
X1=1
X2=1
X3=1
X4=1
X5=1
If Len(Request.Form("C1"))<1 Then X1=0
If Len(Request.Form("C2"))<1 Then X2=0
If Len(Request.Form("C3"))<1 Then X3=0
If Len(Request.Form("C4"))<1 Then X4=0
If Len(Request.Form("C5"))<1 Then X5=0
If X1=X2=X3=X4=X5=0 Then times=0
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open"web_accounting"
Set rs=Server.CreateObject("ADODB.Recordset")
SQLstr01="Select * From wenjuandiaocha where id=1"
Set rs=Conn.Execute(SQLstr01)
times=rs.Fields("total")+times
X1=rs.Fields("A1")+X1
X2=rs.Fields("A2")+X2
X3=rs.Fields("A3")+X3
X4=rs.Fields("A4")+X4
X5=rs.Fields("A5")+X5
SQLstr02="Update wenjuandiaocha Set total="&"'"×&"',"&"A1="&"'"&X1&"',"&"A2="&"'"&X2&"',"&"A3="&"'"&X3&"',"&"A4="&"'"&X4&"',"&"A5="&"'"&X5&"'"
Response.Write("目前共有" &total&"位网友参加了调查："&"

")
Response.Write("版式很不够合理"&X1)
Response.Write("内容一定要丰富"&X2)
Response.Write("颜色要更改搭配"&X3)
Response.Write("动画制作需改进"&X4)
Response.Write("程序功能不够强"&X5)

%>

<%rs.close%>
<%conn.close%>