📄 buyserver01.asp
字号:
<!--#include file="conn.asp"-->
<%
dim userip
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
p150=rs("p150")
p200=rs("p200")
p250=rs("p250")
p350=rs("p350")
p400=rs("p400")
p500=rs("p500")
p1000=rs("p1000")
p1500=rs("p1500")
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>如果您要升级为其他等级会员，请先与我们联系，谢谢！"
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("count")=150 then
paymoney=p150
count=150
vipdown=false
elseif request("count")=200 then
paymoney=p200
count=200
vipdown=false
elseif request("count")=250 then
paymoney=p250
count=250
vipdown=false
elseif request("count")=350 then
paymoney=p350
count=350
vipdown=false
elseif request("count")=400 then
paymoney=p400
count=400
vipdown=false
elseif request("count")=500 then
paymoney=p50
count=500
vipdown=false
elseif request("count")=1000 then
paymoney=p1000
count=1000
vipdown=false
elseif request("count")=1500 then
paymoney=p1500
count=1500
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("paymoney")=paymoney
rs("userid")=userid
rs("email")=email
rs("giveme")=giveme
rs("count")=count
rs("baoyue")=0
rs("money")=0
rs("pay")=0
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>
</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("count")%>点>
<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("count")%>点电影数 >
<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"> <%=count%>点</font>
</td>
<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="#CCFF00"><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="../index.asp">返回首页</a>
<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=red> </font><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"><strong><font color="#0000FF"><a target="_blank" href=""></a></font></strong><strong><font color="#0000FF"></font></strong></font><br>
<br>
<font color=blue><b></b></font></p>
<hr>
<p><b></b>:</p>
<br>
<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 + -