📄 orderlist.asp
字号:
<% ModuleCode="M0810" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<%
SFromTime=Request("SFromTime")
EFromTime=Request("EFromTime")
SToTime=Request("SToTime")
EToTime=Request("EToTime")
OSCode=Request("OSCode")
ProdCode=Request("ProdCode")
UserID=Request("UserID")
STCode=Request("STCode")
strQuery=""
strSQL="Select a.*,b.ProdName,c.OSName,d.STName from T_DNS_UserOrder a, T_DNS_ProdInfo b, T_DNS_OrderStat c,T_DNS_ServiceType d Where a.ProdCode=b.ProdCode and a.OSCode=c.OSCode and b.STCode=d.STCode "
if Session("ISADMIN")<>"YES" then
strSQL = strSQL & " and a.UserID=" & Session("UserID")
else
if UserID<>"" then
strSQL = strSQL & " and a.UserID =" & UserID
strQuery = strQuery & "&UserID=" & UserID
end if
end if
if ProdCode<>"" then
strSQL = strSQL & " and a.ProdCode like '%" & ProdCode & "%' or b.ProdName like '%" & ProdCode & "%'"
strQuery = strQuery & "&ProdCode=" & ProdCode
end if
if OSCode<>"" then
strSQL = strSQL & " and a.OSCode = '" & OSCode & "'"
strQuery = strQuery & "&OSCode=" & OSCode
end if
if STCode<>"" then
strSQL = strSQL & " and b.STCode = '" & STCode & "'"
strQuery = strQuery & "&STCode=" & STCode
end if
if SFromTime<>"" then
strSQL = strSQL & " and a.UOTime >= '" & SFromTime & " 00:00:00'"
strQuery = strQuery & "&SFromTime=" & SFromTime
end if
if EFromTime<>"" then
strSQL = strSQL & " and ETime >= '" & EFromTime & " 00:00:00'"
strQuery = strQuery & "&EFromTime=" & EFromTime
end if
if SToTime<>"" then
strSQL = strSQL & " and a.UOTime <= '" & SToTime & " 23:59:59'"
strQuery = strQuery & "&SToTime=" & SToTime
end if
if EToTime<>"" then
strSQL = strSQL & " and ETime <= '" & EToTime & " 23:59:59'"
strQuery = strQuery & "&EToTime=" & EToTime
end if
strSQL = strSQL & " order by a.UOID desc"
'Response.Write strSQL
'Response.End
Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
Response.Write "<br><br><P align='center' class='titletext'>目前还没有订单！</p>"
else
Rs.PageSize=Opt_PageSize
pages=Rs.pagecount
records=Rs.recordcount
currentpage=request("currentpage")
if currentpage="" or currentpage<1 then currentpage=1
currentpage=cint(currentpage)
if currentpage>pages then currentpage=pages
Rs.absolutepage=currentpage
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tbody>
<tr>
<td height="22" class="titletext"><font color="<%=Opt_Font_TitleColor%>"><strong>订单列表</strong></font></td>
<td align="right">共 <font color="red"><b><%=Records%></b></font> 个项目 页次:
<font color="red"><b><%=currentpage%></b></font> / <font color="red"><b><%=Pages%></b></font>
页
</td>
</tr>
</tbody>
</table>
<!------------------------------------------------------------------------------------->
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="<%=Opt_Table_BGColor%>">
<tr bgcolor="<%=Opt_TR_BGColor%>" height="24">
<td>订单号</td>
<td>购买产品</td>
<td>类型</td>
<td>年限</td>
<td>交易额</td>
<td>购买时间</td>
<td>状态</td>
<% if Session("ISADMIN")="YES" then %>
<td>下单用户</td>
<% end if %>
</tr>
<%
linenumber=Rs.pagesize
do while (not Rs.eof) and (line<linenumber)
if line mod 2 =0 Then %>
<tr bgcolor="<%=Opt_TD_BGColor1%>" height="20">
<% else %>
<tr bgcolor="<%=Opt_TD_BGColor2%>" height="20">
<% end if %>
<td><a href="OrderProdList.asp?ID=<%=Rs("UOID")%>" class="a2"><%=Rs("UOID")%></a></td>
<td><%=Rs("ProdName")%></td>
<td bgcolor="<%=Opt_TD_BGColor2%>"><%=Rs("STName")%></td>
<td>
<%
'判断是否试用
Set Rs2= Server.CreateObject("ADODB.Recordset")
strSQL="Select * from v_VHostList Where Stat='1' and VHStat='1' and UOID='" & Rs("UOID") & "'"
if Session("ISADMIN")<>"YES" then
strSQL = strSQL & " and UserID=" & Session("UserID")
end if
Rs2.open strSQL,Cn,1,1
If not Rs2.Eof Then '找到，试用
intIfTest=1
else
intIfTest=0
end if
rs2.close
set rs2=nothing
%>
<%
if intIfTest=1 then
response.write "试用"
else
response.write Rs("ProdNB")&"年"
end if
%>
</td>
<td><%=Rs("TotPrice")%>元</td>
<td><%=FormatDateTime(Rs("UOTime"),vbShortDate)%></td>
<td>
<%
if intIfTest=1 then
response.write "试用"
else
response.write Rs("OSName")
end if
%>
<%
if Session("ISADMIN")="YES" then
if Rs("OSCode")="04" then
%>
[<a href="OrderHandle.asp?ID=<%=Rs("UOID")%>&OP=handle" class="a2">处理</a>]
<%
elseif Rs("OSCode")="02" then
%>
[<a href="OrderHandle.asp?ID=<%=Rs("UOID")%>&OP=clear" class="a2">作废</a>]
<%
end if
end if
%>
</td>
<% if Session("ISADMIN")="YES" then %>
<td><%=Rs("UserID")%></td>
<% end if %>
</tr>
<%
Rs.MoveNext
line=line+1
Loop
%>
</table>
<!-------------------------------------分页导航--------------------------------------->
<table width="100%" cellspacing="0" cellpadding="0" border="0">
<tbody>
<form name="pageform" method="Post" action="<%=Request("SCRIPT_NAME")%>?px=<%=px%><%=strQuery%>">
<tr height="26">
<td>
<%if currentpage>1 then%>
<a href="<%=Request("SCRIPT_NAME")%>?currentpage=1<%=strQuery%>" class="a2">首页</a> <a href="<%=Request("SCRIPT_NAME")%>?currentpage=<%=currentpage-1%><%=strQuery%>" class="a2">上一页</a>
<%end if%>
<%if currentpage<pages then%>
<a href="<%=Request("SCRIPT_NAME")%>?currentpage=<%=currentpage+1%><%=strQuery%>" class="a2">下一页</a> <a href="<%=Request("SCRIPT_NAME")%>?currentpage=<%=pages%><%=strQuery%>" class="a2">末页</a>
<%end if%>
</td>
<td align="right">
转到: <input type="text" name="currentpage" size="2" maxlength="6" class="input" value="<%=currentpage%>"> 页
</td></tr>
</form>
</tbody>
</table>
<%
end if
Rs.Close
Set Rs=Nothing
%>
<br>
<script language=javascript>
<!--
document.writeln('<div id=meizzDateLayer style="position: absolute; width: 142; height: 166; z-index: 9998; display: none">');
document.writeln('<span id=tmpSelectYearLayer style="z-index: 9999;position: absolute;top: 2; left: 18;display: none"></span>');
document.writeln('<span id=tmpSelectMonthLayer style="z-index: 9999;position: absolute;top: 2; left: 75;display: none"></span>');
document.writeln('<table border=0 cellspacing=1 cellpadding=0 width=142 height=160 bgcolor=#808080 onselectstart="return false">');
document.writeln(' <tr><td width=142 height=23 bgcolor=#FFFFFF><table border=0 cellspacing=1 cellpadding=0 width=140 height=23>');
document.writeln(' <tr align=center><td width=20 align=center bgcolor=#808080 style="font-size:12px;cursor: hand;color: #FFD700" ');
document.writeln(' onclick="meizzPrevM()" title="向前翻 月" Author=meizz><b Author=meizz><<</b>');
document.writeln(' </td><td width=100 align=center style="font-size:12px;cursor:default" Author=meizz>');
document.writeln(' <span Author=meizz id=meizzYearHead onclick="tmpSelectYearInnerHTML(this.innerText)"></span> 年 <span');
document.writeln(' id=meizzMonthHead Author=meizz onclick="tmpSelectMonthInnerHTML(this.innerText)"></span> 月</td>');
document.writeln(' <td width=20 bgcolor=#808080 align=center style="font-size:12px;cursor: hand;color: #FFD700" ');
document.writeln(' onclick="meizzNextM()" title="往后翻 月" Author=meizz><b Author=meizz>>></b></td></tr>');
document.writeln(' </table></td></tr>');
document.writeln(' <tr><td width=142 height=18 bgcolor=#808080>');
document.writeln('<table border=0 cellspacing=0 cellpadding=0 width=140 height=1 style="cursor:default">');
document.writeln('<tr align=center><td style="font-size:12px;color:#FFFFFF" Author=meizz>日</td>');
document.writeln('<td style="font-size:12px;color:#FFFFFF" Author=meizz>一</td><td style="font-size:12px;color:#FFFFFF" Author=meizz>二</td>');
document.writeln('<td style="font-size:12px;color:#FFFFFF" Author=meizz>三</td><td style="font-size:12px;color:#FFFFFF" Author=meizz>四</td>');
document.writeln('<td style="font-size:12px;color:#FFFFFF" Author=meizz>五</td><td style="font-size:12px;color:#FFFFFF" Author=meizz>六</td></tr>');
document.writeln('</table></td></tr><!-- Author:F.R.Huang(meizz)meizz @ hzcnc.com 2002-10-8 -->');
document.writeln(' <tr><td width=142 height=120>');
document.writeln(' <table border=0 cellspacing=1 cellpadding=0 width=140 height=120 bgcolor=#FFFFFF>');
var n=0; for (j=0;j<5;j++){ document.writeln (' <tr align=center>'); for (i=0;i<7;i++){
document.writeln('<td width=20 height=20 id=meizzDay'+n+' style="font-size:12px" Author=meizz onclick=meizzDayClick(this.innerText)></td>');n++;}
document.writeln('</tr>');}
document.writeln(' <tr align=center><td width=20 height=20 style="font-size:12px" id=meizzDay35 Author=meizz ');
document.writeln(' onclick=meizzDayClick(this.innerText)></td>');
document.writeln(' <td width=20 height=20 style="font-size:12px" id=meizzDay36 Author=meizz onclick=meizzDayClick(this.innerText)></td>');
document.writeln(' <td colspan=5 align=right Author=meizz><span onclick=closeLayer() style="font-size:12px;cursor: hand"');
document.writeln(' Author=meizz title=""><u>关闭</u></span> </td></tr>');
document.writeln(' </table></td></tr><tr><td>');
document.writeln(' <table border=0 cellspacing=1 cellpadding=0 width=100% bgcolor=#FFFFFF>');
document.writeln(' <tr><td Author=meizz align=left><input Author=meizz type=button value="< " title="向前翻 年" onclick="meizzPrevY()" ');
document.writeln(' onfocus="this.blur()" class="button"><input Author=meizz title="向前翻 月" type=button ');
document.writeln(' value="<<" onclick="meizzPrevM()" onfocus="this.blur()" class="button"></td><td ');
document.writeln(' Author=meizz align=center><input Author=meizz type=button value="今天" onclick="meizzToday()" ');
document.writeln(' onfocus="this.blur()" title="现在的年月" class="button"></td><td ');
document.writeln(' Author=meizz align=right><input Author=meizz type=button value=">>" onclick="meizzNextM()" ');
document.writeln(' onfocus="this.blur()" title="往后翻 月" class="button"><input ');
document.writeln(' Author=meizz type=button value=" >" title="往后翻 年" onclick="meizzNextY()"');
document.writeln(' onfocus="this.blur()" class="button"></td>');
document.writeln('</tr></table></td></tr></table></div>');
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -