⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 buyserver.asp

📁 1.可以批量添加电影
💻 ASP
字号:
🔍 
<!--#include file="conn.asp"-->
<%
 dim userip,id
   userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR") 

 if Replace(request.cookies("userid"), "'", "''")="" or Replace(request.cookies("password"), "'", "''")="" then
 response.write"<script>alert('只有注册会员才可以付费,请到首页登陆后在来付费！');window.close();</Script>"
 response.end
 end if
 
set rs=server.createobject("adodb.recordset")
sql="select * from setmoney where id=1"
rs.open sql,conn,1,3
pmoney=rs("pmoney")
bmoney=rs("bmoney")
hmoney=rs("hmoney")
zmoney=rs("zmoney")
rs.close
set rs=nothing

 set rs=server.createobject("adodb.recordset")
 rs.open "select * from users where userid='"&Replace(request.cookies("userid"), "'", "''")&"' and password='"&Replace(request.cookies("password"), "'", "''")&"'" ,conn,1,1
    if rs("pay")<>"" then
response.write"你已下过订单了，请不要重复再下！<br><br>如果您要升级为其他等级会员，请先与我们联系，谢谢！"
elseif request("money")=30 and request("vip")="普通会员" then
response.write"普通会员至少要买2个月以上哦！"
elseif request("money")=15 and request("vip")<>"普通会员" then
response.write"只有普通会员才有免费试用！"
else
 askmejoin=rs("askmejoin")
 money=request("money")
 giveme=request("giveme")
 myname=rs("name")
 userid=rs("userid")
 email=rs("email")
 vip=request("vip")
 rs.close
 if request("money")=60 and request("vip")="普通会员" then
 paymoney=pmoney*2 
 ipsdate="1"
 oklook=1
 vipdown=false
 elseif request("money")=180 and request("vip")="普通会员" then
 paymoney=pmoney*6
 ipsdate="1"
 oklook=1
 vipdown=false
 elseif request("money")=365 and request("vip")="普通会员" then
 paymoney=pmoney*12 
 ipsdate="1"
 oklook=1
 vipdown=false
 elseif request("money")=30 and request("vip")="白银会员" then
 paymoney=bmoney
 ipsdate="6"
 oklook=2
 vipdown=false
 elseif request("money")=60 and request("vip")="白银会员" then
 paymoney=bmoney*2 
 ipsdate="6"
 oklook=2
 vipdown=false
 elseif request("money")=180 and request("vip")="白银会员" then
 paymoney=bmoney*6
 ipsdate="1"
 oklook=2
 vipdown=false
 elseif request("money")=365 and request("vip")="白银会员" then
 paymoney=bmoney*12 
 ipsdate="12"
 oklook=2
 vipdown=true
  elseif request("money")=30 and request("vip")="黄金会员" then
 paymoney=hmoney
 ipsdate="6"
 oklook=3
 vipdown=false
 elseif request("money")=60 and request("vip")="黄金会员" then
 paymoney=hmoney*2
 ipsdate="6"
 oklook=3
 vipdown=false
 elseif request("money")=180 and request("vip")="黄金会员" then
 paymoney=hmoney*6 
 ipsdate="1"
 oklook=3
 vipdown=true
 elseif request("money")=365 and request("vip")="黄金会员" then
 paymoney=hmoney*12 
 ipsdate="12"
 oklook=3
 vipdown=true
 elseif request("money")=36000 or request("vip")="钻石会员" then
 paymoney=zmoney '一百年450元钻石会员
 ipsdate="1200"
 money=36000
 oklook=4
 vipdown=true
 end if

set rs=server.createobject("adodb.recordset")
sql="select * from users where userid='"&Replace(request("userid"), "'", "''")&"'"
rs.open sql,conn,1,3
rs("pay")=0
rs("userip")=userip
rs.update
rs.close

dim rs
set rs=server.createobject("adodb.recordset")
sql="select * from pay where id=1"
rs.open sql,conn,1,3
urlback=rs("urlback")
code=rs("code")
payusername=rs("username")
paypassword=rs("password")
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
rs.open "select * from buy",conn,1,3
rs.addnew
rs("askmejoin")=askmejoin
rs("name")=myname
rs("oklook")=oklook
rs("paymoney")=paymoney
rs("userid")=userid
rs("email")=email
rs("giveme")=giveme
rs("money")=money
rs("pay")=0
rs("baoyue")=1
rs("vip")=vip
rs.update
id=rs("id")
response.cookies("server")="ok"
%>

<%if request("giveme")="在线支付"  then %>
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>双六空间在线--双六空间影院系统会员继费</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body bgcolor="#3B5815">
<div align="center"><font color=#00FFFF><b>双六空间在线--双六空间影院系统会员继费在线支付</b></font></div><br>

<form name=mypay action=http://www.1st-pay.net/work/work.asp target=_blank  method="POST">
  <input type=hidden name=username value=<%=payusername%>>
  <input type=hidden name=leixing value=1>
  <input type=hidden name=softwareid value=11>
  <input type=hidden name=shopname value=购买<%=request("money")%>天的<%=vip%>>
    <input type=hidden name=email value=<%=email%>>
    <input type=hidden name=name value=<%=userid%>>
    <input type=hidden name=address value=<%=Province%>>
	<input type=hidden name=note value=购买<%=request("money")%>天的<%=vip%> >
	 <input type=hidden name=xinxi>
  <input type=hidden name=payid value=<%=id%>>
<input type=hidden name=urlback value=<%=urlback%>>
<input type=hidden name=1stusername value=<%=payusername%>>
<input type=hidden name=1stpassword value=<%=paypassword%>>

  <div align="center">
  <center>
      <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="80%" id="AutoNumber1" height="96" bordercolorlight="#000000" bordercolordark="#000000">
        <tr style="font-size:14px"> 
          <td width="37%" height="35" align="right" ><font color="#FFFF00">您的会员账号：</font></td>
          <td width="63%" height="35"><font color="#00FFFF">　　<%=userid%></font></td>
        </tr>
        <tr style="font-size:14px"> 
          <td width="37%" height="35" align="right" ><font color="#FFFF00">您所购买的会员等级是:</font></td>
          <td width="63%" height="35"><font color="#00FFFF">　　<%=vip%></font></td>
        </tr>
        <tr style="font-size:14px"> 
          <td width="37%" height="35" align="right" ><font color="#FFFF00">您所购买的会员期限是：</font></td>
          <td width="63%" height="35"> <font color="#00FFFF"> 
            <%if request("money")=15 then%>
            　　15天免费试用</font> <font color="#00FFFF"> 
            <%elseif request("money")=30 then%>
            　　1个月</font> <font color="#00FFFF"> 
            <%elseif request("money")=60 then%>
            　　2个月</font> <font color="#00FFFF"> 
            <%elseif request("money")=180 then%>
            　　半年</font> <font color="#00FFFF"> 
            <%elseif request("money")=365 then%>
            　　1年</font> <font color="#00FFFF"> 
            <%elseif request("money")=36000 or request("vip")="钻石会员" then%>
            　　永久</font> <font color="#00FFFF"> 
            <%end if%>
            </font></td>
        </tr>
        <tr style="font-size:14px"> 
          <td width="37%" height="35" align="right"><font color="#FFFF00">支付的金额：</font></td>
          <td width="63%" height="35"><font color="#00FFFF">　　<%=paymoney%>元</font> 
          </td>
        </tr>
        <tr style="font-size:14px"> 
          <td width="37%" height="35" align="right"><font color="#FFFF00">所需手续费（1%）：</font></td>
          <td width="63%" height="35"><font color="#00FFFF">　　<%=paymoney*0.01%>元</font> 
          </td>
        </tr>
        <tr style="font-size:14px"> 
          <td width="37%" height="35" align="right"><font color="#FFFF00">总共需支付的金额：</font></td>
          <td width="63%" height="35">　　<font color="#99FF00"><b><%=paymoney*0.01+paymoney%>元</b></font> 
  <input type=hidden name=cash value=<%=paymoney*0.01+paymoney%>> </td>

        </tr>
        <tr style="font-size:14px"> 
          <td width="37%" height="35" align="right"><font color="#FFFF00">选择支付方式：</font></td>
          <td width="63%" height="35">　　 <select name="fangshi">
              <option value="01" selected>人民币卡</option>
              <option value="02">外币卡</option>
            </select>
            　　<font color=#00FFFF></font> </td>
        </tr>
        <tr> 
          <td width="100%" height="34" align="right" colspan="2"> <p align="center"> 
              <input type="submit" value="进行在线支付" name="B1">
              　　<a href=../helponline.asp target="_blank"><font color=#FFFF00><b>[查看在线支付帮助]</b></font></a> 
          </td>
        </tr>
        <tr> 
          <td width="100%" height="34" align="center" colspan="2"> <br>
            <b><font color="#FFFFFF">说明</font> 
            <p align="left"> <font color=#FFFFFF> 　　　　　1、完成在线交易后，请务必记住你的<font color="#FFFF00">订单号</font><font color="#FFFFFF">，以便万一出问题时查询</font><br>
              　　　　　2、<font color="#00FFFF">我们的系统将实行全程自动交易，交易成功后，你的服务将自动开通</font><br>
              　　　　　3、由于在线支付成本比较高，所以将会加收<font color="#FFFF00">1%</font>的手续费！</font></b><font color=red><br>
              <br>
              </font> </td>
        </tr>
      </table>
	  <br>
			 　　
  </center>
</div>
</form>
</body>
</html>
<%else%>
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<body bgcolor="#3B5815">

<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

<hr>
<p>您好<strong><font color="#0000FF"><%=userid%></font></strong>，你所购买的会员等级是:<strong><font color="#0000FF"><%=vip%></font></strong><br>
  您所购买的会员期限是： 
  <%if request("money")=15 then%>
  <strong><font color="#0000FF">15天免费试用</font></strong> 
  <%elseif request("money")=30 then%>
  <strong><font color="#0000FF">1个月</font></strong> 
  <%elseif request("money")=60 then%>
  <strong><font color="#0000FF">2个月</font></strong> 
  <%elseif request("money")=180 then%>
  <strong><font color="#0000FF">半年</font></strong> 
  <%elseif request("money")=365 then%>
  <strong><font color="#0000FF">1年</font></strong> 
  <%elseif request("money")=36000 or request("vip")="钻石会员" then%>
  <strong><font color="#0000FF">永久</font></strong> 
  <%end if%>
  <br>
  您应付的金额是：<strong><font color="#0000FF"><%=paymoney%>元</font></strong> </p>
  <hr>

<p><font color="#FF0000">以下是通过银行汇款：请将汇款后以上发EMAIL：<strong><font color="#0000FF"><a target="_blank" href="mailto:16496843@qq.com">16496843@qq.com</a></font></strong>给我们，或者直接在<strong><font color="#0000FF">QQ(16496843）</font></strong>里与我们联系，当我们收到款后，将马上为您开通！</font><br>
  <br>
  <font color=blue><b>注意：所提交的订单如果在一星期内还没汇款过来或者与我们联系的话，此订单将作废！</b></font></p>
<hr>
<p><b>如要汇款请联系QQ：16496843</b>:</p>
银行：xxxxxxxxxx　　　　　　　　　　　　　　 银行：xxxxxxxxxx<br>
帐号：xxxxxxxxxx　　　　　　　　　　　　　　 帐号：xxxxxxxxxx<br>
姓名：xxxxxxxxxx　　　　　　　　　　　　　　 姓名：xxxxxxxxxx<br>
开户银行地址：xxxxxxxxxx&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
　　　 开户银行地址：xxxxxxxxxx<br><br>

<br><br>
<p><br>
</p>

<%end if%>
<%end if%>

</body>
</html>







</body>
</html>

⌨️ 快捷键说明

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