📄 pay.asp

📁 九酷网络个人主页系统破解版
💻 ASP
字号:
<!--#include file="config.asp"-->
<!--#include file="chkuser.asp"-->
<!--#include file="inc/user.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="mytop.asp"-->
<link href="css/user.css" rel="stylesheet" type="text/css">
<script language=javascript>
function manage(url)
{
window.open('manage.asp','manage','fullscren=yes');
}
</script>
<script language="JavaScript">
function IsDigit(){
  return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
</script>
</head>
<body>
<%
if request("pay")="online" then
select case pay_gate
case 1
response.redirect("pay/payto1.asp")
case 2
response.redirect("pay/payto2.asp")
case 3
response.redirect("pay/payto3.asp")
case else
WriteErrMsg("在线支付功能没有开通！")
response.end
end select
elseif request("pay")="card" then
card
else
payonline
end if
if request("action")="post" then
ip=request.ServerVariables("HTTP_X_FORWARDED_FOR")
if ip="" then ip=request.ServerVariables("REMOTE_ADDR")
If not conn.Execute("select * from [pay] where username='"&Request.Cookies("9cool_username")&"' and ip='"&ip&"' and tjdate=Date()").eof Then
WriteErrMsg("您还有一条付费信息等待确认，请不要重复递交您的信息！")
response.end
end if
if Request.Form("type")="" or Request.Form("money")="" or Request.Form("date")="" then
WriteErrMsg("您的必填资料没有填写完全，请重新输入！")
response.end
end if
sql="select * from [pay]"
rs.open sql,conn,1,3
rs.addnew
rs("username")=Request.Cookies("9cool_username")
rs("type")=htmlencode2(Request.Form("type"))
rs("money")=htmlencode2(Request.Form("money"))
rs("paydate")=htmlencode2(Request.Form("date"))
rs("tjdate")=Now()
rs("other")=htmlencode2(Request.Form("other"))
rs("ip")=ip
rs.update
rs.close
Response.Write "<script>alert('您的付费信息已经成功递交，我们将在确认后追加到您的帐户上！');location.href='pay.asp'</script>"
end if
sub payonline()%>
<table width="778" border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
  <form name="frm" method="post" action="pay.asp?action=post">
    <tr align="center" class="a1">
      <td height="25" colspan="2">付费确认</td>
    </tr>
    <tr class="a3">
      <td width="73"> 付款方式：</td>
      <td width="362">
        <input name="type" type="text" id="type">
        * </td>
    </tr>
    <tr class="a4">
      <td> 付款金额：</td>
      <td width="362">
        <input name="money" type="text" ONKEYPRESS='event.returnValue=IsDigit();'>
        * 您实际给我们汇款的金额，填写数字</td>
    </tr>
    <tr class="a3">
      <td> 付款日期：</td>
      <td width="362">
        <input name="date" type="text" id="date" value="<%=date()%>">
        *（请依照格式填写,例如:<%=date()+10%>）</td>
    </tr>
    <tr class="a4">
      <td> 备注：</td>
      <td width="362">
        <textarea name="other" cols="30" rows="3" id="other"></textarea>
        如有其它说明请填写
      </td>
    </tr>
    <tr align="center" class="a3">
      <td colspan="2"><input name=submit type=submit value=" 递 交 "></td>
    </tr>
  </form>
</table>
<%end sub%>
<br>
<%sub card()%>
<table width="778" border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
  <form name="form1" method="post" action="card.asp" onSubmit="this.paycard.disabled=true;">
    <tr align="center" class="a1">
      <td height="25" colspan="2">充值卡充值</td>
    </tr>
    <tr class="a3">
      <td width="73"> 充值帐号：</td>
      <td width="362"><input name="username" type="text" value="<%=Request.Cookies("9cool_username")%>">
      输入别的用户名，可替其他用户充值</td>
    </tr>
    <tr class="a4">
      <td> 卡　　号：</td>
      <td width="362"><input name="card1" type="text"></td>
    </tr>
    <tr class="a3">
      <td> 密　　码：</td>
      <td width="362"><input name="card2" type="password"></td>
    </tr>
    
    <tr align="center" class="a4">
      <td colspan="2"><input name="paycard" type="submit" value=" 递 交 "></td>
    </tr>
  </form>
</table>
<%end sub%>
<!--#include file="links.asp"-->
<!--#include file="bottom.asp"-->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -