searchsc.asp

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

ASP
100 行
字号 
<%@language="vbscript" %>
<!--#include file="conn.asp"-->
<%
if session("admin_rank")<>1 and session("admin_rank")<>4 then
response.write("<script>alert('您无权查看本页，SORRY！');window.location=('login.asp')</script>")
response.end
end if
%>
<%set rs=server.createobject("adodb.recordset")
%>
<body style="background-color: #F0FBF1" topmargin="0">
<link rel="stylesheet" type="text/css" href="css.css">
<%
mm=month(date())
dd=day(date())
yy=year(date())
%>
<div align="center">
<table cellPadding="0" width="95%" border="1" bordercolorlight="#339933" cellspacing="0" bordercolordark="#F0FBF1" height="198">
	<form name="AccountDetail" method="post" action="searchpasssave_sc.asp">
		<tr>
			<td height="39">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;卡名称：&nbsp;<select name="cardname">
			<option></option>
			<%sql="select * from hw"
              rs.open sql,conn,3,3
              do while not rs.eof%>
			   <option><%=rs("hw_name")%></option>
             <%rs.movenext
               loop
             rs.close%>
			</select>&nbsp;&nbsp;注：不选择卡号，查询所有的上卡记录，选择卡，则查相应的上卡记录！</td>
		</tr>
		<tr>
			<td noWrap height="39">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;日期从 <select name="YearFrom">
			<%for i=2000 to 2050 
			if i=yy then%>
			<option value="<%=i%>" selected><%=i%></option>
			<%else%>
			<option value="<%=i%>"><%=i%></option>
			<%end if
			next%>		
			</select>年 <select name="MonthFrom">
			<%for i=1 to 12 
			if i=mm then%>
			<option value="<%=i%>" selected><%=i%></option>
			<%else%>
			<option value="<%=i%>"><%=i%></option>
			<%end if
			next%>		
			</select>月 <select name="DayFrom">
			<%for i=1 to 31 
			if i=dd then%>
			<option value="<%=i%>" selected><%=i%></option>
			<%else%>
			<option value="<%=i%>"><%=i%></option>
			<%end if
			next%>		
			</select>日&nbsp; </td>
		</tr>
		<tr>
			<td noWrap height="40">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;日期至 <select name="YearTo">
			<%for i=2000 to 2050 
			if i=yy then%>
			<option value="<%=i%>" selected><%=i%></option>
			<%else%>
			<option value="<%=i%>"><%=i%></option>
			<%end if
			next%>		
			</select>年 <select name="MonthTo">
			<%for i=1 to 12 
			if i=mm then%>
			<option value="<%=i%>" selected><%=i%></option>
			<%else%>
			<option value="<%=i%>"><%=i%></option>
			<%end if
			next%>		
			</select>月 <select name="DayTo">
			<%for i=1 to 31 
			if i=dd then%>
			<option value="<%=i%>" selected><%=i%></option>
			<%else%>
			<option value="<%=i%>"><%=i%></option>
			<%end if
			next%>		
			</select>日 
			</td>
		</tr>
		
		<tr>
			<td noWrap height="40">
			<p align="center">　<input type="submit" value="查询" name="B1"></td>
		</tr>
		
	</form>
</table>

</div>
</body>

</html>

searchsc.asp - 源码说明

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

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

⌨️ 快捷键说明

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