程序代码：

<!--#include file="hezi.asp"-->
<%
dim sjid,bjid,wgid,cdid,qingsjia,qingbjia,wugu,chidao,sql
sjid=Split(request("sjid"),",",-1,1)
bjid=Split(request("bjid"),",",-1,1)
wgid=Split(request("wgid"),",",-1,1)
cdid=Split(request("cdid"),",",-1,1)
qingsjia=request("qingsjia")
qingbjia=request("qingbjia")
wugu=request("wugu")
chidao=request("chidao")

for i=0 to chidao-1
dim strSQL1
strSQL1="UPDATE yinyuehe SET cdshu=cdshu+1 where id="&cdid(i)
objconnection.Execute(strSQL1)
Next
for i=0 to qingsjia-1
dim strSQL2
strSQL2="UPDATE yinyuehe SET sjshu=sjshu+1 where id="&sjid(i)
objconnection.Execute(strSQL2)
Next
for i=0 to qingbjia-1
dim strSQL3
strSQL3="UPDATE yinyuehe SET bjshu=bjshu+1 where id="&sjid(i)
objconnection.Execute(strSQL3)
Next
for i=0 to wugu-1
dim strSQL4
strSQL4="UPDATE yinyuehe SET wgshu=wgshu+1 where id="&sjid(i)
objconnection.Execute(strSQL4)
Next
objConnection.close
set objConnection =nothing
Response.Write "&xieru=1&"
%>