📄 card.asp
字号:
<!--#include file="../config/config.asp"-->
<%Response.Buffer=true
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires=0
my=session("hxf_u_nickname")
If session("hxf_u_inthechat")="1" Then
%>
<html>
<head><script language="JavaScript">function s(list){parent.f2.document.af.sytemp.value=list;parent.f2.document.af.sytemp.focus();}</script>
<title>卡片</title>
<style type="text/css">
<!--
-->
</style>
<link rel="stylesheet" href="../dg/Setup.css">
</head>
<body oncontextmenu=self.event.returnValue=false bgcolor="<%=chatbgcolor%>" background="<%=chatimage%>" bgproperties="fixed" topmargin="25" text="#ffffff">
<br>
<table border="1" cellspacing="0" cellpadding="0" align="center" bordercolorlight="#000000" bordercolordark="#FFFFFF" width="128">
<tr align="center">
<td height="23" colspan="3" width="124"><%=my%>的卡片<a href="card.asp">[刷 新]</a></td>
</tr>
<tr align="center">
<td width="46" height="23">名称</td>
<td width="41" height="23">张数</td>
<td width="33" height="23">操 作</td>
</tr>
<%
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
sql="SELECT 卡片名称,数值 FROM 卡片拥有 where 数值>0 and 拥有者='"&my&"'"
Set Rs=conn.Execute(sql)
do while not rs.bof and not rs.eof
if rs("卡片名称")<>"免罪卡" and rs("卡片名称")<>"定力卡" and rs("卡片名称")<>"E缘坐牢卡" then
%>
<tr align="center">
<td width="46" height="23"><%=rs("卡片名称")%></td>
<td width="41" height="23"><%=rs("数值")%></td>
<td width="33" height="23"><a href="javascript:s('/卡片 <%=rs("卡片名称")%>')">使用</a></td>
</tr>
<%else%>
<tr align="center">
<td width="46" height="23"><%=rs("卡片名称")%></td>
<td width="41" height="23"><%=rs("数值")%></td>
<td width="33" height="23">...</td>
</tr>
<%
end if
rs.movenext
loop
conn.close
set rs=nothing
set conn=nothing
Else
Response.write "<div align='center'>"
Response.write "请您先进入聊天室后才能使用卡片。<br><br>"
Response.write "<a href='javascript:window.close();'>[关闭窗口]</a>"
Response.write "</div>"
Response.End
End If
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -