📄 gljp_01.asp
字号:
<!--#include file="function/m_conn.asp"-->
<SCRIPT LANGUAGE=javascript>
<!--
function SelectAll() {
for (var i=0;i<document.selform.selBigClass.length;i++) {
var e=document.selform.selBigClass[i];
e.checked=!e.checked;
}
}
//-->
</script>
<%
dim szSQL,oRderStatus,adm_type
oRderStatus=request("oRderStatus")
if oRderStatus="" or oRderStatus=0 then oRderStatus=1
adm_type=session("adm_type")
if adm_type="" or isnull(adm_type) then adm_type="1"
%>
<%
login_grade=session("login_grade")
admin_Remark_bak=session("Adm_Remark")
if len(session("login_name"))=0 then
%>
<script language="javascript">
alert("您没有权限访问,请登陆!")
top.location="../../System_manage/memlogin.asp"
</script>
<%response.end
elseif instr(login_grade,"2")=0 and admin_Remark_bak<>"super" then
%>
<script language="javascript">
alert("您的权限不够，不能访问该页面,请登陆!")
window.history.back(-1);
</script>
<%response.end
end if
SearchFiled=request("SearchFiled")
SearchKey=trim(request("SearchKey"))
op="1" 'INetOrderForm
set oRst=Server.CreateObject("AdoDb.recordset")
dim strSql,page
if SearchFiled<>"" and SearchKey<>"" then
strSql=" and a."& SearchFiled
if SearchFiled="订单编号" then
strSql=strSql&"='"&SearchKey&"'"
elseif SearchFiled="证件" then
strSql=" and a.订单编号 in (select 订单编号 from ticket_d where 证件 like '%"&SearchKey&"%')"
else
strSql=strSql&" like '%" &SearchKey& "%'"
end if
end if
'--------------------------------------------
If Request.QueryString("Page") = "" then
Page = 1
Else
Page = CINT(Request.QueryString("Page"))
End If
Adm_StartCity=session("Adm_StartCity")
city_IfInclude=session("city_IfInclude")
sqlAddStr=""
If Adm_StartCity="" Or InStr(Adm_StartCity,"*")<>0 Then
sqlAddStr=""
Else
If city_IfInclude="0" Then sqlAddStr=" not "
sqlAddStr=" and b.[序号]=1 and "&sqlAddStr&" (instr('"&Adm_StartCity&"',b.[FromCityCode])<>0)"
End If
szSQL="select distinct a.* from ticket_M a inner join ticket_d b on a.[订单编号]=b.[订单编号] where a.[网上订单状态]='"&oRderStatus&"'"&strSql&sqlAddStr&" order by a.id desc"
oRst.Open szSQL,conn,1,3
if not(oRst.bof or oRst.eof) then
maxCount=oRst.recordcount
oRst.pageSize=13
maxPageCount=oRst.pageCount
oRst.AbsolutePage=page
if page>maxPageCount then page=maxPageCount
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台管理机票系统</title>
<link rel="stylesheet" type="text/css" href="../../system_manage/style/content_default.css" />
<link rel="stylesheet" type="text/css" href="../../system_manage/style/comm.css" />
<link rel="stylesheet" type="text/css" href="../../system_manage/style/skin0.css" />
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
function relaodme(){
window.location="gljp_01.asp?oRderStatus=<%=oRderStatus%>";
}
function goUrl()
{
var iPage;
iPage=selform.txtPage.value
if(isNaN(iPage))
{
iPage=1
}
var theUrl;
theUrl="gljp_01.asp?oRderStatus=<%=oRderStatus%>&page="+iPage+"&SearchFiled=<%=SearchFiled%>&SearchKey=<%=SearchKey%>"
if(theUrl=="gljp_01.asp?page=")
{
theUrl="gljp_01.asp?oRderStatus=<%=oRderStatus%>&SearchFiled=<%=SearchFiled%>&SearchKey=<%=SearchKey%>&page=1"
}
//alert(theUrl)
window.location.href=theUrl
}
function CheckSearch(){
if (FrmSearch.SearchFiled.value==""){
alert('未选择搜索类别！');
FrmSearch.SearchFiled.focus();
return false;
}
}
function airprint(str)
{ window.open("../../printx/bin/fly_print.asp?orderno="+str,"","top=80,left=100,width=780,height=600,scrollbars=no,toolbar=no,menubar=no,status=no,resizable=yes");
}
function goPrint(str)
{
//window.open('','printWin');
document.formPrint.target="printWin"
document.formPrint.OrderID.value=str;
document.formPrint.submit();
}
//-->
</script>
<form name="formPrint" method="post" action="../my_RL/ZXLprintlist.asp">
<input type="hidden" name="OrderID" value="">
<input type="hidden" name="flag" value="1">
</form>
</head>
<body>
<div class="txt_title">
订单管理
</div>
<table width="100%" cellpadding="0" cellspacing="1" class="attbg">
<form name="FrmSearch" action="gljp_01.asp" method="post" onSubmit="return CheckSearch();">
<tr>
<td height="30" >检 索：
<select name="SearchFiled">
<option selected value="">类别选择</option>
<option value="订单编号">订单号</option>
<option value="送票地址">地址</option>
<option value="客户姓名">联系人</option>
<option value="联系电话">联系电话</option>
<option value="证件">身份证号</option>
</select>
<input type="hidden" name="oRderStatus" value="<%=oRderStatus%>">
<input type="text" name="SearchKey">
<input name="Submit" type="submit" value=" 搜 索 "></td>
</tr>
</form>
</table>
<TABLE width="100%" cellPadding=3 cellSpacing=0 class="editor_toolbar statList" >
<form action="gljp_ddel.asp" method="post" name="selform" >
<TBODY>
<TR>
<TD width="19%" height="30" class="O">订单号</TD>
<TD width="14%" class="O"> 联系人</TD>
<TD width="19%" class="O"> 联系电话</TD>
<TD width="18%" class="O">手机</TD>
<TD width="15%" class="O">结算金额</TD>
<TD width="15%" class="O">操 作</TD>
</TR>
<%
i=0
while not oRst.eof and i<13
i=i+1
bc="bgcolor='#fffff8'"
if i mod 2=0 then bc="bgcolor='#FFFFFF'"
myIfRemindFlag=oRst("ifRemindflag")
if myIfRemindFlag="" then myIfRemindFlag="2"
itemp=cint(myIfRemindFlag) mod 3
if itemp<>0 then
RemindFont="<font color='#ff0000;'>"
else
RemindFont="<font color='#444444'>"
end if
RemindFontP="</font>"
%>
<TR <%=bc%> onMouseOver="this.style.backgroundColor='#f3f3f3';return true;" onMouseOut="this.style.backgroundColor='';" class="rowNormal">
<TD title="<%=oRst("接收时间")%>"><input name="selBigClass" type="checkbox" id="selBigClass" value="<%=oRst("订单编号")%>"><%=RemindFont%><%=oRst("订单编号")%><%=RemindFontP%></TD>
<TD><a href="#" class="back-12"onMouseDown="MM_openBrWindow('hyfw_02.asp?mem_name=<%=oRst("客户编号")%> ','会员注册资料','width=500,height=380')"><%=RemindFont%><%=oRst("客户姓名")%><%=RemindFontP%></a></TD>
<TD><%=RemindFont%><%=oRst("联系电话")%><%=RemindFontP%></TD>
<TD><%=oRst("购票紧急联系方式")%></TD>
<TD class="addrtitle"><%=oRst("网上结算金额")%></TD>
<TD>
<a href="#" class="back-12" onClick="MM_openBrWindow('gljp_01_yw_08.asp?OrderID=<%=oRst("订单编号")%>&OrdStatus=<%=oRderStatus%>','','scrollbars=yes,resizable=yes,width=700,height=500')"><%=RemindFontP%>处理<%=RemindFontP%></a>
| <a href="#" onClick='javascript:goPrint("<%=oRst("订单编号")%>")'>打印行程单</a> </TD>
</TR>
<%
oRst.MoveNext
wend
oRst.Close
%>
<tr><td colspan="2" bgcolor="#FFFFFF">
<input type="checkbox" name="checkbox" value="checkbox" onClick="javascript:SelectAll()"> 选择/反选
<input onClick="{if(confirm('此操作将删除该信息！\n\n确定要执行此项操作吗？')){this.document.selform.submit();return true;}return false;}" type=submit value=删除 name=action2>
<input type="Hidden" name="action" value='del'>
</td>
<td colspan="4" bgcolor="#FFFFFF"><div align="right" style="right:50px;padding-top:5px;">
<%
response.Write "共"&maxCount&"项，"
strHref="<a href=gljp_01.asp?oRderStatus="&oRderStatus&"&SearchFiled="&SearchFiled&"&SearchKey="&SearchKey&"&page="
if page=1 then response.write "首 页 | "
if page>1 then
response.write strHref & "1>首 页</a> | "
response.write strHref & page-1 & ">前一页</a> | "
else
response.write "前一页 | "
end if
if page<maxPageCount then
response.write strHref & page+1 & ">下一页</a> | "
else
response.write "下一页 | "
end if
if page=maxPageCount then
response.write "末 页"
else
response.write strHref & maxPageCount & ">末 页</a>"
end if
response.write " "
response.write "当前：" & Page & " / " & maxPageCount & " 页"
response.write "<INPUT TYPE='text' NAME='txtPage' size='3' maxlength='3'> "
response.write "<INPUT TYPE='button' value='页' onclick='goUrl()'>"
response.write " "
set oRst=nothing
call conn_close()
%></div></td></tr>
</TBODY>
</form>
</TABLE>
<BR>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -