click.asp

来自「系统管理,大家可以看看,能给你不少的启发吧.」· ASP 代码 · 共 11 行

<!--#include file = "conn.asp"-->
<%
ID = replace(replace(replace(replace(replace(replace(request("ID"),"'",""),"%",""),"&",""),"*",""),">",""),"<","")
%>
<%
sql="update shuju set Click = Click + 1 where ID= "&ID
conn.execute(sql)
sql="Select * from shuju where ID= "&ID
set rs = conn.execute(sql)
%>
document.write("<%=rs("Click")%>")