submore11.asp
来自「国内第一数字点卡销售程序。功能强大。 完整无错！数据文件经MD5加密！经严格测」· ASP 代码 · 共 130 行
ASP
130 行
<!--#include file="conn.asp"--><%
set rs=server.createobject("adodb.recordset")
%>
<%
if session("admin_rank")<>1 and session("admin_rank")<>3 then
response.write("<script>alert('您无权查看本页，SORRY！');window.location=('login.asp')</script>")
response.end
end if
%>
<%
if request("action")="pass" then
sql="select * from sub where sub_id="&int(request("sub_id"))
rs.open sql,conn,3,3
if rs.eof then
response.write("<script>alert('没有此订单信息，或者此订单已通过管理员确认！');window.location=('subpass.asp')</script>")
response.end
else
rs("sub_check")=true
rs.update
response.write("<script>alert('订单已确认！');window.location=('subpass.asp')</script>")
response.end
end if
rs.close
end if
if request("action")="del" then
sql="select * from sub where sub_id="&int(request("sub_id"))
rs.open sql,conn,3,3
sub_number=rs("sub_number")
rs.delete
rs.update
rs.close
response.write("<script>alert('此订单已删除！');window.location=('subpass.asp')</script>")
response.end
end if
sql="select * from sub where sub_id="&int(request("sub_id"))
rs.open sql,conn,3,3
if rs.eof then
response.write("<script>alert(没有此订单！');window.location=('subpass.asp')</script>")
response.end
end if%>
<head>
<link rel="stylesheet" type="text/css" href="css.css">
<title>订单:<%=rs("sub_number")%>详细信息</title>
</head>
<body style="background-color: #F0FBF1">
<div align="center">
<table border="0" width="627" cellspacing="1">
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="1">
<tr>
<td width="100%" >
<p align="center">订单号<font color="#FF0000"><a href="searchorder_jg.asp?ordernumber=<%=rs("sub_number")%>"><%=rs("sub_number")%></a><%sub_number=rs("sub_number")%></font></td>
</tr>
<tr>
<td width="100%">
<div align="center">
<table border="1" width="96%" cellspacing="0" cellpadding="0" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" height="114">
<tr>
<td width="50%" height="38" style="padding: 5px">订购日期:<%=rs("sub_date")%></td>
<td width="50%" height="38" style="padding: 5px">姓名:<%=rs("sub_to")%></td>
</tr>
<tr>
<td width="50%" height="38" style="padding: 5px">电话:<%=rs("sub_tel")%></td>
<td width="50%" height="38" style="padding: 5px">E-mail:<%=rs("sub_mail")%></td>
</tr>
<tr>
<td width="50%" height="38" style="padding: 5px">卡号名称:<%=rs("hw_name")%> </td>
<td width="50%" height="38" style="padding: 5px">订购数量:<%if rs("sub_cz")="1" then%>充值商品<%else%><%=rs("hw_count")%><%end if%> </td>
</tr>
<tr>
<td width="50%" height="38" style="padding: 5px">卡号单价:<%=rs("hw_cash")%></td>
<td width="50%" height="38" style="padding: 5px">订购总金额:<%=rs("sub_totalcash")%></td>
</tr>
<%if rs("sub_cz")="1" then%>
<tr>
<td width="50%" height="38" style="padding: 5px">游戏用户名:<%=rs("sub_gameid")%></td>
<td width="50%" height="38" style="padding: 5px">服务器所在区:<%=rs("sub_gameaddr")%></td>
</tr>
<tr>
<td width="100%" height="38" style="padding: 5px" colspan="2">备注:<%=rs("sub_other")%></td>
</tr>
<%end if%>
<%
set rs1=conn.execute("select * from tingcardnum where sub_number='"&rs("sub_number")&"'")
if not rs1.eof then
do while not rs1.eof
%>
<tr>
<td width="50%" height="38" style="padding: 5px">卡号:<%=rs1("hw_number")%> </td>
<td width="50%" height="38" style="padding: 5px">密码:<%=strAnsi2Unicode(Base64decode(strUnicode2Ansi(rs1("hw_pass"))))%> </td>
</tr>
<tr>
<td width="50%" height="38" style="padding: 5px">提卡人IP:<%=rs1("number_ip")%></td>
<td width="50%" height="38" style="padding: 5px">提卡人电话:<%=rs1("sub_tel")%></td>
</tr>
<%rs1.movenext
loop%>
<%end if
rs1.close:set rs1=nothing
%>
<tr>
<td width="100%" colspan="2" height="38">
<p align="center"><%if rs("sub_payok") then %><a href="submore.asp?sub_id=<%=request("sub_id")%>&action=pass"><font color="#FF0000">确认此订单</font></a> <%end if%>
<a href="submore.asp?sub_id=<%=request("sub_id")%>&action=del">
<font color="#FF0000">删除此订单</font></a></td><%rs.close%>
</tr>
</table>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<%
set rs=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?