<%'============================================================
' Copyright 2007-09 燃点真情. All Rights Reserved.
' Last Update: 2008-3-22 13:28
' ADD:wap.nowtx.cn
' E-Mail: xivn@163.com QQ:531233814
'============================================================
%>
<%
dim id,url,downjb
id=request.querystring("id")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select url,tid,cent from [gogo] where id="&id
rs.open sql,conn,1,2
if not rs.eof then
rs("tid")=rs("tid")+1
rs.update()
url=rs("url")
adnum=rs("cent")
else
Response.Write ""
Response.Write "广告ID错误!"
Response.Write "广告首页
"
Response.Write "
"
response.end
End if
rs.close
set rs=nothing
dim rsl,rspll
set rsl=Server.CreateObject("ADODB.Recordset")
rspll="select * from guest"
rsl.open rspll,conn,1,2
rsl.addnew
rsl("fnr")="您今天点击了社区广告,为了感谢您的支持,系统奖励您"&adnum&"金币"
rsl("sid")=myid
rsl("fid")="0"
rsl.update
rsl.close
set rsl=nothing
conn.close
set conn=nothing
%>
正在进入...
点击进入