searchpasssave_sc.asp

来自「国内第一数字点卡销售程序。功能强大。 完整无错！数据文件经MD5加密！经严格测」· ASP 代码 · 共 112 行

ASP
112 行
字号 
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
%>
<%
if session("admin_rank")<>1 then
response.write("<script>alert('您无权查看本页，SORRY！');window.location=('login.asp')</script>")
response.end
end if
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css.css">
</head>

<body style="background-color: #F0FBF1" topmargin="0">
<p align="center">
<b><font size="3">
<%
cardname=trim(request("cardname"))

yearfrom=request("yearfrom")
monthfrom=request("monthfrom")
dayfrom=request("dayfrom")
yearto=request("yearto")
monthto=request("monthto")
dayto=request("dayto")
if len(yearfrom&"/"&monthfrom&"/"&dayfrom)<8 and len(yearto&"/"&monthto&"/"&dayto)<8 then%>
您选择的日期有错误,您重新选择!<a href="searchsc.asp"><font color="#FF0000">返回</font></a><font color="#FF0000">!</font>
<%else%>
<% 
dnow=cdate(yearfrom&"/"&monthfrom&"/"&dayfrom)
tnow=cdate(yearto&"/"&monthto&"/"&dayto)
%>
 <%end if%>
从<%=dnow%>到<%=tnow%>上卡明细表
 <br>
　</font></b></p>
 </p>


<div align="center">


<table bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" border="1" cellspacing="0" cellpadding="0">
  <tr>
    <td width="22%" align="center" height="30">
      商品名称</td>
    <td width="19%" align="center" height="30">
      商品卡号</td>
    <td width="10%" align="center" height="30">
      商品密码</td>
    <td width="21%" align="center" height="30">
      是否售出</td>
    <td width="10%" align="center" height="30">
      是否删除</td>
    <td width="6%" align="center" height="30">
      编辑</td>
  </tr>
<%tnow=dateadd("h",24,cdate(yearto&"/"&monthto&"/"&dayto))
sql="select * from tingcardnum where hw_name like  '%"&cardname&"%'  and hw_date <= #" & tnow & "# and hw_date >= #"& dnow & "# "
rs.open sql,conn,3,3
totalrec=rs.recordcount
totalyes=0
totalno=0
 do while not rs.eof
 %>
     <tr>
    <td width="22%" align="center" height="30">
      　<%=rs("hw_name")%></td>
    <td width="19%" align="center" height="30">
      　<%=rs("hw_number")%></td>
    <td width="10%" align="center" height="30">
      　加密</td>
    <td width="21%" align="center" height="30"> 
      　<% if rs("hw_ok") then%>未售出<%else%>已售出<% end if %>
    </td>
    <td width="10%" align="center" height="30">
      <a href="delcard.asp?id=<%=rs("id")%>&action=del" onClick="return confirm('您确定进行删除操作吗？')"><font color="#FF0000">删除此商品</font></a></td>
    <td width="6%" align="center" height="30">
		<a href="editcard.asp?id=<%=rs("id")%>">
		<font color="#FF0000">编辑</font></a></td>
  </tr>
 
  
 <%
    if rs("hw_ok")=true then
       totalno=totalno+1
       else
       totalyes=totalyes+1
     end if
%>     
     
<%  rs.movenext
  loop
rs.close
  %>
</table>
</div>
<p align="center">上卡数量：<%=totalrec%>卡
</p>
<p align="center">已出售卡：<%=totalyes%>卡
</p>
<p align="center">未出售卡：<%=totalno%>卡

</p>
<%
set rs=nothing
conn.close
set conn=nothing
%>

searchpasssave_sc.asp - 源码说明

本页面展示了「国内第一数字点卡销售程序。功能强大。 完整无错！数据文件经MD5加密！经严格测试」中的 searchpasssave_sc.asp 源码文件，采用 ASP 编程语言编写，共 112 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?