action.asp

动态扇形统计图

<!--#include file="conn.asp"-->
<%itemname=request.Form("itemname")
if not itemname="" then
itemname=split(itemname,",")
for i = 0 to ubound(itemname)
	call delit(itemname(i))
next
end if
response.Redirect("index.asp")
sub delit(itemname)
sql="update bing set numcount=numcount+1 where itemname='"&itemname&"'"
cn.execute sql
'response.Write(sql&"<br>")
end sub%>