wap.asp

wapgo网址导航整站源码,WAP源码,更多登陆http://xywap.cn

<!--#include file="conn.asp"-->
<%
id=request.QueryString("id")
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from [count] where wid = "&cstr(id)
rs.open rsstr,conn,3,3
if rs.eof and rs.bof then
	rs.addnew
	rs("wid")=id
	rs("count")=1
else
	rs("wid")=id
	rs("count")=rs("count")+1
end if
rs.update

rs.close
set rs=nothing
conn.close
set conn=nothing

response.redirect "http://www.wapgo123.cn"
%>