orderprodlist.asp

蓝芒3.0A最新所有功能完整破解版

<% ModuleCode="M0925" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<%
UserID=session("UserID")
UOID=Request.QueryString("ID")

strSQL="Select a.*,b.ProdName,c.OSName,d.STCode,d.STName,e.UserName from T_DNS_UserOrder a, T_DNS_ProdInfo b, T_DNS_OrderStat c,T_DNS_ServiceType d,T_DNS_UserInfo e Where a.ProdCode=b.ProdCode and a.OSCode=c.OSCode and b.STCode=d.STCode and a.UserID=e.UserID and a.UOID='" & UOID & "'"
strSQL = strSQL & " and a.UserID=" & Session("UserID")

Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
	Response.Write "<br><br><br><br><p align='center'>对不起, 找不到此订单或者您没有权限！</p>"
	Rs.Close
	Cn.Close
	Call PrintPageBottom
	Response.End
end if
%>

<TABLE align=center bgcolor="<%=Opt_Table_BGColor%>" border=0 cellPadding=5 cellSpacing=1 width="100%">
  <tr bgcolor="<%=Opt_Table_BGColor%>">
	<td class="titletext"><font color="<%=Opt_Font_TitleColor%>"><strong>订单内容</strong></font></td>
    </td>
  </tr>
  <tr bgcolor="<%=Opt_TD_BGColor2%>">
	<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">订单号</td>
	<td><%=Rs("UOID")%></a>
    </td>
  </tr>
  <tr bgcolor="<%=Opt_TD_BGColor2%>">
  	<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">产品代号</td>
  	<td><%=Rs("ProdCode")%></td>
  </tr>
  <tr bgcolor="<%=Opt_TD_BGColor2%>">
  	<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">产品名称</td>
  	<td><%=Rs("ProdName")%></td>
  </tr>
  <tr bgcolor="<%=Opt_TD_BGColor2%>">
  	<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">产品类型</td>
  	<td><%=Rs("STName")%></td>
  </tr>
  <tr bgcolor="<%=Opt_TD_BGColor2%>">
  	<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">产品单价</td>
  	<td><%=Rs("ProdPrice")%>元</td>
  </tr>
  <tr bgcolor="<%=Opt_TD_BGColor2%>">
  	<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">购买年限</td>
  	<td><%=Rs("ProdNB")%>年</td>
  </tr>
  <tr bgcolor="<%=Opt_TD_BGColor2%>">
  	<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">交易金额</td>
  	<td><%=Rs("TotPrice")%>元</td>
  </tr>
  <tr bgcolor="<%=Opt_TD_BGColor2%>">
  	<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">订单信息</td>
  	<td><%=Rs("UOInfo")%></td>
  </tr>  
  <% if Session("ISADMIN")="YES" then %>
  <tr bgcolor="<%=Opt_TD_BGColor2%>">
  	<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">下单用户</td>
  	<td><%=Rs("UserID")%>/<%=Rs("UserName")%></td>
  </tr>
  <% end if %>
  <tr bgcolor="<%=Opt_TD_BGColor2%>">
  	<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">购买时间</td>
  	<td><%=FormatDateTime(Rs("UOTime"),vbShortDate)%></td>
  </tr>
  <tr bgcolor="<%=Opt_TD_BGColor2%>">
  	<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">订单状态</td>
  	<td>
  	<%=Rs("OSName")%>
  	</td>
  </tr>
</table>
<%
Rs.Close

strSQL="Select * from v_DomainList Where Stat='1' and UOID='" & UOID & "'"
if Session("ISADMIN")<>"YES" then
	strSQL = strSQL & " and UserID=" & Session("UserID")
end if
Rs.open strSQL,Cn,1,1
If not Rs.Eof Then
%>
<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>
  </tr>
<%
line=0
while not Rs.eof
     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="http://<%=Rs("DomainName")%>" target="_blank" class="a2"><%=Rs("DomainName")%></a></td>
        <td><%=FormatDateTime(Rs("STime"),vbShortDate)%></td>
        <td><%=FormatDateTime(Rs("ETime"),vbShortDate)%></td>
        <td><%=Rs("UYear")%></td>
        <td><a href="../domain/ViewDomainDetail.asp?ID=<%=Rs("DNID")%>" class="a2">管理</a></td>
      </tr>
    <%
	Rs.MoveNext
	line=line+1
Wend
%>
</table>
<%
end if
Rs.Close

strSQL="Select * from v_VHostList Where Stat='1' and UOID='" & UOID & "'"
if Session("ISADMIN")<>"YES" then
	strSQL = strSQL & " and UserID=" & Session("UserID")
end if
Rs.open strSQL,Cn,1,1
If not Rs.Eof Then
%>
<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>服务器IP</td>
     <td>空间大小</td>
     <td>开通日期</td>
     <td>到期日期</td>
     <td>状态</td>
  </tr>
<%
line=0
while not Rs.eof
     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="../vhost/ViewVHostDetail.asp?ID=<%=Rs("VHID")%>" class="a2"><%=Rs("VHName")%></a></td>
        <td><%=Rs("ServerType")%></td>
        <td><%=Rs("ServerPubIP")%></td>
        <td><%=Rs("MaxSize")%>M</td>
        <td><%=FormatDateTime(Rs("STime"),vbShortDate)%></td>
        <td><%=FormatDateTime(Rs("ETime"),vbShortDate)%></td>
        <td>
        <%
        Select Case Rs("VHStat")
        	Case "1"
        		Response.Write "试用"
        	Case "2"
        		Response.Write "正常"
        	Case "3"
        		Response.Write "过期"
        	Case "4"
        		Response.Write "关闭"
        End Select
        %>
        </td>
      </tr>
    <%
	Rs.MoveNext
	line=line+1
wend
%>
</table>
<%
end if
Rs.Close

strSQL="Select * from v_MailList Where Stat='1' and UOID='" & UOID & "'"
if Session("ISADMIN")<>"YES" then
	strSQL = strSQL & " and UserID=" & Session("UserID")
end if
Rs.open strSQL,Cn,1,1
If not Rs.Eof Then
%>
<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>IP</td>
     <td>空间大小</td>
     <td>邮箱个数</td>
     <td>开通日期</td>
     <td>到期日期</td>
     <td>状态</td>
  </tr>
<%
line=0
while not Rs.eof
     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="../mail/ViewMailDetail.asp?ID=<%=Rs("PostID")%>" class="a2"><%=Rs("BPostDN")%></font></td>
        <td><%=Rs("MailType")%></td>
        <td><%=Rs("ServerPubIP")%></td>
        <td><%=Rs("MaxSize")%>M</td>
        <td><%=Rs("MaxUser")%></td>
        <td><%=FormatDateTime(Rs("STime"),vbShortDate)%></td>
        <td><%=FormatDateTime(Rs("ETime"),vbShortDate)%></td>
        <td>
        <%
        Select Case Rs("PostStat")
        	Case "1"
        		Response.Write "正常"
        	Case "2"
        		Response.Write "关闭"
        End Select
        %>
        </td>
      </tr>
    <%
	Rs.MoveNext
	line=line+1
wend
%>
</table>
<%
end if
Rs.Close

Set Rs=Nothing
Cn.Close
Set Cn=Nothing

Call PrintPageBottom
%>