📄 addticket.asp
字号:
<%Response.Expires=0%>
<!--#include file="conn.asp"-->
<html>
<head>
<title>操作完成</title>
<style type="text/css">
<!--
body {font-size : 10.5pt;}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body topmargin="5" leftmargin="12" bgcolor="#FFFFFF">
<div align="center">
<%class1=Session("class")
score=Session("score")
if class1<1 then
Response.Write "<br><br><br><br><br><p align='center'>无法投票：<font color=#EE00EE>您的是未注册用户</font></p>"
Response.write "<p align='center'><a href='javascript:history.go(-1);'>点击这里返回</a></p>"
Response.End
end if
tps=Application("tps")
tps=cint(tps)
tnu=Application("tnu")
tnu=cint(tnu)
if score<tps then
Response.Write "<br><br><br><br><br><p align='center'>无法投票：<font color=#EE00EE>您的积分不足 <font color=red>"&tps&"</font> 分</font></p>"
Response.write "<p align='center'><a href='javascript:history.go(-1);'>点击这里返回</a></p>"
Response.End
end if
Dim myself,name,mycount
myself=Session("usernickname")
who=Request.QueryString("name")
sql="select check from Chatuser where username='"&myself&"'"
set rs=conn.execute(sql)
mycount=rs("check")
rs.close
IF cint(mycount)>tnu-1 then
Response.write "<br><br><br><br><br><p align='center'>无法投票：<font color=#EE00EE>您已经用完了 "&tnu&" 次投票权</font></p>"
Response.write "<p align='center'><a href='javascript:history.go(-1);'>点击这里返回</a></p>"
Response.End
End if
sql="update ticket set numbert=numbert+1 where name='"&who&"'"
set rs1=conn.execute(sql)
rs1.close
newcount=cint(mycount)+1
sql="update Chatuser set check=check+1 where username='"&myself&"'"
Set rs1 = conn.execute(sql)
rs1.close
mycount=tnu-mycount-1
Response.write "<br><br><br><br><br><p align='center'>投票完毕：<font color=#EE00EE>您投了 <font color=red>"&who&"</font> 一票</font></p>"
Response.write "<p align='center'>您还有 <font color=red>"&mycount&"</font> 次投票机会。</p>"
Response.write "<p align='center'><a href='ton.asp'>点击这里返回</a></p>"
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -