📄 list_query.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="func.asp"-->
<%
if session("loginpass")<>true then Response.Redirect "notlogin.htm"
%>
<%
dim sql,rs,temp,sql2,rs2
sql="select GameType,CardType from Type"
set rs=conn.execute(sql)
set rs2=server.CreateObject ("ADODB.Recordset")
dim qmethod,gtq,ctq,cq,dq
qmethod=cint(request("qmethod"))
if dq<>"" then dq=cdate(dq)
if cq<>"" then cq=trim(cq)
if qmethod<>0 then
gtq=request("gtq")
ctq=request("ctq")
cq=request("cq")
dq=request("dq")
session("qmethod")=qmethod
session("gtq")=gtq
session("ctq")=ctq
session("cq")=cq
session("dq")=dq
select case qmethod
case 1:
if gtq<>"" then
sql="select * from Register where GameType like '%">q&"%' order by RegDate desc"
elseif session("gtq")="" then
sql="select * from Register order by RegDate desc"
else
sql="select * from Register where GameType like '%"&session("gtq")&"%' order by RegDate desc"
end if
case 2:
if ctq<>"" then
sql="select * from Register where CardType='"&ctq&"' order by RegDate desc"
elseif session("ctq")="" then
sql="select * from Register order by RegDate desc"
else
sql="select * from Register where CardType='"&session("ctq")&"' order by RegDate desc"
end if
case 3:
sql="select * from Register where CardId like '%"&session("cq")&"%' order by RegDate desc"
case 4:
if dq<>"" then
sql="select * from Register where RegDate like '"&dq&"%' order by RegDate desc"
elseif session("dq")="" then
sql="select * from Register order by RegDate desc"
else
sql="select * from Register where RegDate like '"&session("dq")&"%' order by RegDate desc"
end if
case else
sql="select * from Register order by RegDate desc"
end select
else
qmethod=session("qmethod")
select case cint(qmethod)
case 1:
if gtq<>"" then
sql="select * from Register where GameType like '%">q&"%' order by RegDate desc"
elseif session("gtq")="" then
sql="select * from Register order by RegDate desc"
else
sql="select * from Register where GameType like '%"&session("gtq")&"%' order by RegDate desc"
end if
case 2:
if ctq<>"" then
sql="select * from Register where CardType='"&ctq&"' order by RegDate desc"
elseif session("ctq")="" then
sql="select * from Register order by RegDate desc"
else
sql="select * from Register where CardType='"&session("ctq")&"' order by RegDate desc"
end if
case 3:
sql="select * from Register where CardId like '%"&session("cq")&"%' order by RegDate desc"
case 4:
if dq<>"" then
sql="select * from Register where RegDate like '"&dq&"%' order by RegDate desc"
elseif session("dq")="" then
sql="select * from Register order by RegDate desc"
else
sql="select * from Register where RegDate like '"&session("dq")&"%' order by RegDate desc"
end if
case else
sql="select * from Register order by RegDate desc"
end select
end if
rs2.Open sql,conn,1,1
%>
<html>
<head>
<link href="css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin="0" topmargin="0">
<form name="pform" action="list_query.asp" method="post">
<input type="hidden" name="page" value="<%=cint(request("page"))%>">
<input type="hidden" name="qmethod" value="<%=cint(request("qmethod"))%>">
<input type="hidden" name="gtq" value="<%=request("gtq")%>">
<input type="hidden" name="ctq" value="<%=request("ctq")%>">
<input type="hidden" name="cq" value="<%=request("cq")%>">
<input type="hidden" name="dq" value="<%=request("dq")%>">
</form>
<form name="eform" action="edit_rec.asp" method="post">
<input type="hidden" name="ope" value="">
<input type="hidden" name="id" value="">
</form>
<table width="103%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="22" align="center" bgcolor="#F7F7F7"><strong>记录查询与管理</strong></td>
</tr>
<tr>
<td align="center"><table width="103%" border="0" cellspacing="1" cellpadding="3">
<tr>
<td> 游戏类型查询：
<select name="gtypequery" onchange="javascript:gtq(options[selectedIndex].value,1)">
<option value="">-请选择-
<%while not(rs.eof)%>
<option value="<%=rs(0)%>"><%=rs(0)%>
<%
rs.movenext
wend
%>
</select>
</td>
<td> 卡号查询：
<input name="cardquery" type="text" size="12" maxlength="12">
<input type="submit" name="cq" value="查询" onclick="javascript:cq(cardquery.value,3)"></td>
</tr>
<tr>
<td> 点卡类型查询：
<select name="ctypequery" onchange="javascript:ctq(options[selectedIndex].value,2)">
<option value="">-请选择-
<%
rs.movefirst
while not(rs.eof)
if instr(1,temp,rs(1))=0 then
%>
<option value="<%=rs(1)%>"><%=rs(1)%>
<%
end if
temp=temp&rs(1)
rs.movenext
wend
rs.close
set rs=nothing
%> </select>
</td>
<td> 日期查询：
<select name="year">
<script language="javascript">
for (i=2;i<20;i++){
if (i<10){
document.write ("<option value="+"0"+i+">"+"0"+i+"")}
else{
document.write ("<option value="+i+">"+i+"")
}
}
</script>
</select>
<select name="month">
<script language="javascript">
var m,mon
m= new Date();
mon=m.getMonth()+1;
for (i=1;i<13;i++){
if (mon==i){
document.write ("<option value="+i+" selected>"+i+"")
}else{
document.write ("<option value="+i+">"+i+"")
}
}
</script>
</select>
<select name="day2">
<script language="javascript">
var d,day
d= new Date();
day=d.getDate();
for (i=1;i<32;i++){
if (day==i) {
document.write ("<option value="+i+" selected>"+i+"");
}else{
document.write ("<option value="+i+">"+i+"");
}
}
</script>
</select>
<input type="submit" name="dq" value="查询" onclick="javascript:dq(year.value+'-'+month.value+'-'+day2.value,4)"></td>
</tr>
</table></td>
</tr>
</table>
<hr width="100%">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#9C9A9C">
<tr>
<td> <table width="100%" border="0" cellspacing="1" cellpadding="3">
<tr align="center" bgcolor="#DEDBDE">
<td nowrap width="10%"><b><font color="#8C2C00">卡号</font></b></td>
<td nowrap width="10%"><b><font color="#8C2C00">帐号</font></b></td>
<td nowrap width="16%"><b><font color="#8C2C00">类型</font></b></td>
<td nowrap width="8%"><b><font color="#8C2C00">自设密码</font></b></td>
<td nowrap width="13%"><b><font color="#8C2C00">日期</font></b></td>
<td nowrap width="20%"><b><font color="#8C2C00">情况</font></b></td>
<td nowrap width="23%"><b><font color="#8C2C00">操作</font></b></td>
</tr>
<tr align="center" height="6" bgcolor="#ffffff">
<td colspan="7"></td>
</tr>
<%
rs2.PageSize=12
dim page,so,topage,c,bgc,totalrec,totalpage
page=request.querystring("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)
totalrec=rs2.recordcount
totalpage=rs2.pagecount
if page>totalpage then page=totalpage
'rs2.absolutepage=page
topage=onepage(rs2,page)
for so=1 to topage(1)
c=so mod 2
if c=0 then bgc="#FFFFFF" else bgc="#F7F3F7"
if rs2.EOF then exit for
%>
<tr align="center" bgcolor="<%=bgc%>">
<td nowrap><%=rs2("CardId")%></td>
<td nowrap><%=rs2("GameId")%></td>
<td nowrap><%=rs2("GameType")%> [<span style="color:#ff0000"><%=rs2("CardType")%></span>]</td>
<td nowrap><%=rs2("CName")%></td>
<td nowrap><%=formatdatetime(rs2("RegDate"),2)%></td>
<td nowrap <%if rs2("DealCase")="暂未开通" then Response.Write "style='color:#0000ff'" else Response.Write "style='color:#ff0000'"%>><%=rs2("DealCase")%> </td>
<td nowrap>[<a href="###" onClick="javascript:submitdata(<%=rs2("ID")%>,1)">完成注册</a>] [<a href="###" onClick="javascript:submitdata(<%=rs2("ID")%>,2)">编辑</a>] <%if session("IsAdmin")=true then%>[<a href="###" onClick="javascript:submitdata(<%=rs2("ID")%>,3)">删除</a>]<%end if%></td>
</tr>
<%
rs2.MoveNext
next
%>
</table></td>
</tr>
</table>
<hr width="96%">
<TABLE width="100%" border=0 align="center" cellPadding=0 cellSpacing=0 class=indiv>
<TBODY>
<TR>
<TD class=toolbarleft1 align="right" width="100%">
<TABLE width="70%" border=0 cellPadding=cellspacing=0>
<TBODY>
<TR>
<td>总记录数：<span style="color:#ff0000;font-weight:700"><%=totalrec%></span></td>
<td>当前页：<span style="color:#ff0000;font-weight:700"><%=page%>
<%
session("page")=page%></span></td>
<td>总页数：<span style="color:#ff0000;font-weight:700"><%=totalpage%></span></td>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="80%" border=0 class=btn align="center">
<TBODY>
<TR>
<TD noWrap align="center"><a href="list_query.asp?page=1">最前一页</a></TD>
</TR></TBODY></TABLE></TD>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="80%" border=0 class=btn align="center">
<TBODY>
<TR>
<TD noWrap align="center"><%if page-1>0 then%><a href="list_query.asp?page=<%=page-1%>">上一页</a><%else%><font color=666666>上一页</font><%end if%></TD>
</TR></TBODY></TABLE></TD>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="80%" border=0 class=btn align="center">
<TBODY>
<TR>
<TD noWrap align="center"><%if page+1<=totalpage then%><a href="list_query.asp?page=<%=page+1%>">下一页</a><%else%><font color=666666>下一页</font><%end if%></font>
</TD>
</TR></TBODY></TABLE></TD>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="80%" border=0 class=btn align="center">
<TBODY>
<TR>
<TD noWrap align="center"><a href="list_query.asp?page=<%=totalpage%>">最后一页</a></TD>
</TR></TBODY></TABLE></TD>
</TR></TBODY></TABLE>
</TD>
</TR></TBODY></TABLE>
<script language="javascript">
function topag(pag)
{
if (pag>0)
{
ff=document.forms[0];
ff.page.value=pag;
ff.submit()
}
}
function gtq(para,m){
ff=document.forms[0];
ff.qmethod.value=m;
ff.gtq.value=para;
ff.submit()
}
function ctq(para,m){
ff=document.forms[0];
ff.qmethod.value=m;
ff.ctq.value=para;
ff.submit()
}
function cq(para,m){
ff=document.forms[0];
ff.qmethod.value=m;
if (para!=""){
ff.cq.value=para;
ff.submit();
}else
{
alert("请填上你要查询的卡号！");
cardquery.focus();
}
}
function dq(para,m){
ff=document.forms[0];
ff.qmethod.value=m;
ff.dq.value=para;
ff.submit();
}
function submitdata(id,o){
f=document.forms[1];
if (o==3) {
var bConfirm,sMessage
sMessage="是否删除ID为："+id+"的数据？"
bConfirm=window.confirm(sMessage);
if (bConfirm)
{
f.ope.value=o;
f.id.value=id;
f.submit();
}
}else
{
f.ope.value=o;
f.id.value=id;
f.submit();
}
}
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -