📄 user_qr.asp
字号:
<!--#include file=conn.asp-->
<!--#include file=usercookies.asp-->
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>支付确认</title>
<link rel="stylesheet" type="text/css" href="1.CSS">
</head>
<body topmargin="0" leftmargin="0">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="778" height="371">
<tr>
<td width="778" colspan="4" height="46"><!--#include file=top.asp--></td>
</tr>
<tr>
<td width="157" height="299" valign="top"><br>
<!--#include file=userleft.asp--></td>
<td width="10" height="299" background="img/line_01.gif"> </td>
<td width="603" height="299" valign="top" align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="139">
<tr>
<td width="94%" height="1" colspan="4"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="26">
<tr>
<td width="100%" background="img/zfqr.gif" height="26">
<%
dim rs,sql,username,email,dianhua,name,zffs
username=request.cookies("ijob")("username")
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select name,email,dianhua from [user] where username='"&username&"'"
rs.open sql,conn,1,1
if rs.eof then
response.write "<br>"
response.write "<li>参数错误！"
response.end
end if
email=rs("email")
dianhua=rs("dianhua")
name=rs("name")
rs.close
%>
</td>
</tr>
</table>
</td>
</tr>
<form method="POST" action="user_qrchk.asp">
<tr>
<td width="7%" height="25" align="center">
<p align="left"> </td>
<td width="14%" height="25" align="center">
<p align="left"> </td>
<td width="30%" height="25" align="center">
<p align="left"> </td>
<td width="48%" height="25" align="center">
<p align="left"> </td>
</tr>
<tr>
<td width="7%" height="25" align="left">
</td>
<td width="14%" height="25" align="left">
支付方式：</td>
<td width="30%" height="25" align="left">
<select size="1" name="zffs">
<option value="1">在线支付</option>
<option value="2">手机支付</option>
<option value="3">电子汇款</option>
</select></td>
<td width="48%" height="25" align="left">
</td>
</tr>
<tr>
<td width="7%" height="25" align="left">
</td>
<td width="14%" height="25" align="left">
定单号码：</td>
<td width="30%" height="25" align="left">
<input type="text" name="ddhm" size="23" maxlength="50"></td>
<td width="48%" height="25" align="left">
</td>
</tr>
<tr>
<td width="7%" height="25" align="left">
</td>
<td width="14%" height="25" align="left">
支付金额：</td>
<td width="30%" height="25" align="left">
<input type="text" name="cash" size="11" maxlength="10"> 元</td>
<td width="48%" height="25" align="left">
<font color="#FF0000">输入你支付或汇款的金额</font></td>
</tr>
<tr>
<td width="17%" height="25" align="left">
</td>
<td width="62%" height="25" align="left" colspan="2">
<p align="center"><input type="submit" value="提交" name="B1"></td>
<td width="20%" height="25" align="left">
</td>
</tr>
</form>
<tr>
<td width="99%" height="25" align="left" colspan="4">
</td>
</tr>
<tr>
<td width="99%" height="5" colspan="4">
说明：如果你通过在线支付或电子汇款购买了虚拟货币，可以在这里给管理员提醒你已经汇款，我们将尽快给你增加虚拟货币，定单号码为：支付或汇款成功后的
<font color="#FF0000">定单号</font> 或 <font color="#FF0000">汇款凭证</font>
号码</td>
</tr>
<tr>
<td width="99%" height="25" colspan="4">
</td>
</tr>
<tr>
<td width="99%" height="25" colspan="4" background="img/lsjl.gif">
</td>
</tr>
<tr>
<td width="99%" height="55" colspan="4">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="100%">
<tr>
<td width="15%" align="center"><font color="#999999"><b>支付方式</b></font></td>
<td width="23%" align="center"><font color="#999999"><b>定单号码</b></font></td>
<td width="28%" align="center"><font color="#999999"><b>支付金额</b></font></td>
<td width="21%" align="center"><font color="#999999"><b>提交时间</b></font></td>
<td width="13%" align="center"><font color="#999999"><b>状态</b></font></td>
</tr>
<%
sql="select * from [dingdan] where username='"&username&"'"
rs.open sql,conn,1,1
if rs.eof then
response.write "<tr><td><li>没有历史记录</td></tr>"
else
do while not rs.eof
%>
<tr>
<td width="15%" align="center">
<%
zffs=rs("zffs")
if zffs=1 then
response.write "在线支付"
elseif zffs=2 then
response.write "手机支付"
elseif zffs=3 then
response.write "电子汇款"
end if
%>
</td>
<td width="23%" align="center"><%=rs("ddhm")%></td>
<td width="28%" align="center"><%=rs("cash")%> 元</td>
<td width="21%" align="center"><%=rs("data")%></td>
<td width="13%" align="center">
<%if rs("admincl")=1 then%><font color="#0000FF">√</font><%else%><font color="#FF0000">ⅹ</font><%end if%>
</td>
</tr>
<%
rs.movenext
loop
end if
%>
</table>
</td>
</tr>
<tr>
<td width="99%" height="25" colspan="4">
<p align="center"><font color="#0000FF">说明：√代表管理员已经处理过，</font><font color="#FF0000">ⅹ代表正在等待管理员处理</font></td>
</tr>
</table>
</td>
<td width="8" height="299" background="img/line_01.gif"> </td>
</tr>
<tr>
<td width="778" height="26" colspan="4"><!--#include file=copywright.asp--></td>
</tr>
</table>
</center>
</div>
</body>
</html>
<%
rs.close
set rs=nothing
closedb
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -