📄 adurl.asp
字号:
<!-- #include file="conn.asp" -->
<!--#include file="inc/config.asp"--><%
dim UserID,UserName,id
UserID=request.cookies("CnEndWeb_User")("log_UserID")
UserName=request.cookies("CnEndWeb_User")("log_UserName")
id=CheckSql(request("id"))
CheckSqlnum(id)
set rs=server.CreateObject("ADODB.recordset")
sql="select TXTadurl from TXTadlist where id="&id&" order by id"
rs.open sql,conn,1,1
TXTadurl=rs("TXTadurl")
%><%rs.close
set rs=nothing
If UserName="" or UserID="" or IsNull(WordID) Then
Response.Write ("<script>alert(' 操作错误! \n\n 您没有获得积分奖励,可能您还没有登陆或者登陆超时! \n\n 如果您没有成为会员请先进行会员注册！ \n\n 如果您已经是注册会员请重新登陆！ ');location.href='"&TXTadurl&"';</script>")
Response.End
End If
set rs=server.createobject("adodb.recordset")
sql="select userAcdCount,AcdCount,UserPoint from Userinfo where ID="&UserID
rs.open sql,conn,1,3
if rs.eof and rs.bof then
Response.Write ("<script>alert(' 操作错误!\n\n 用户名不存在。');location.href='"&TXTadurl&"';</script>")
Response.end
End If
if rs("AcdCount")=0 then
Response.Write ("<script>alert(' 操作错误!\n\n 您今天的广告票已用完。');location.href='"&TXTadurl&"';</script>")
Response.end
Else
rs("AcdCount")=rs("AcdCount")-1
rs("UserPoint")=rs("UserPoint")+AcdCount
rs.update
userAcdCount=rs("userAcdCount")
AcdCount1=rs("AcdCount")
Response.Write ("<script>alert(' 操作成功! \n\n 您的积分 +"&AcdCount&" \n\n您的日广告票总 "&userAcdCount&" 张，现剩余 "&AcdCount1&" 张 ');location.href='"&TXTadurl&"';</script>")
Response.end
End If
rs.close
set rs=nothing
%><html>
<head>
<title><%=SiteName%> - 广告跳转</title>
</head>
<frameset rows='*,0'>
<frameset cols='*'>
<frame src='<%=TXTadurl%>' frameborder='0' scrolling='Auto' noresize marginwidth='0' marginheight='0'>
</frameset>
<frameset cols="*">
<frame src='adurllist.asp?id=<%=id%>' frameborder='0' scrolling='Auto' noresize marginwidth='0' marginheight='0'>
</frameset>
</frameset>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -