|
#2
szwda2013-02-24 09:24
|
程序代码：<!--#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")
if qingsjia>0 then
for i=0 to qingsjia-1
dim strSQL
strSQL="UPDATE yinyuehe SET sjshu=sjshu+1 where id="&sjid(i)
else if qingbjia>0 then
for i=0 to qingbjia-1
dim strSQL
strSQL="UPDATE yinyuehe SET bjshu=bjshu+1 where id="&bjid(i)
else if wugu>0 then
for i=0 to wugu-1
dim strSQL
strSQL="UPDATE yinyuehe SET wgshu=wgshu+1 where id="&wgid(i)
else if chidao>0 then
for i=0 to chidao-1
dim strSQL
strSQL="UPDATE yinyuehe SET cdshu=cdshu+1 where id="&cdid(i)
end if
objconnection.Execute(strSQL)
Next
objConnection.close
set objConnection =nothing
Response.Write "&xieru=1&"
%>
<%
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")
if qingsjia>0 then
for i=0 to qingsjia-1
dim strSQL
strSQL="UPDATE yinyuehe SET sjshu=sjshu+1 where id="&sjid(i)
else if qingbjia>0 then
for i=0 to qingbjia-1
dim strSQL
strSQL="UPDATE yinyuehe SET bjshu=bjshu+1 where id="&bjid(i)
else if wugu>0 then
for i=0 to wugu-1
dim strSQL
strSQL="UPDATE yinyuehe SET wgshu=wgshu+1 where id="&wgid(i)
else if chidao>0 then
for i=0 to chidao-1
dim strSQL
strSQL="UPDATE yinyuehe SET cdshu=cdshu+1 where id="&cdid(i)
end if
objconnection.Execute(strSQL)
Next
objConnection.close
set objConnection =nothing
Response.Write "&xieru=1&"
%>