searchpass.asp

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

ASP
93
字号
<%@language="vbscript" %>
<%
mm=month(date())
dd=day(date())
yy=year(date())
%>
<%
if session("admin_rank")<>1 then
response.write("<script>alert('您无权查看本页,SORRY!');window.location=('login.asp')</script>")
response.end
end if
%>
<body style="background-color: #F0FBF1">
<link rel="stylesheet" type="text/css" href="css.css">
<div align="center">
<table cellPadding="0" width="95%" border="0">
	<form name="AccountDetail" method="post" action="searchpasssave.asp">
		<tr>
			<td noWrap height="40">&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;&nbsp;&nbsp;&nbsp; <b><font color="#FF6600">注:</font></b>按时间段来查看盈利情况</td>
		</tr>
		<tr>
			<td noWrap>&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> </td>
		</tr>
		
		<tr>
			<td noWrap height="35">
			<p align="center"> <input type="submit" value="查询" name="B1"></td>
		</tr>
		
	</form>
</table>

</div>

<p> </p>

</body>

</html>

⌨️ 快捷键说明

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