card.asp

来自「网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点」· ASP 代码 · 共 68 行

ASP

68 行

<!--#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>

card.asp - 源码说明

本页面展示了「网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点：无须安装客户端] 主要功能模块：管理公文车辆通知档案值班人事审批仓库主界面软件下载个人办公室」中的 card.asp 源码文件，采用 ASP 编程语言编写，共 68 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与网络相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?