?? buyserver.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:372481373@qq.com">372481373@qq.com</a></font></strong>給我們，或者直接在<strong><font color="#0000FF">QQ(372481373）</font></strong>里與我們聯系，當我們收到款后，將馬上為您開通！</font><br>
<br>
<font color=blue><b>注意：所提交的訂單如果在一星期內還沒匯款過來或者與我們聯系的話，此訂單將作廢！</b></font></p>
<hr>
<p><b>如要匯款請聯系QQ：372481373</b>:</p>
銀行：xxxxxxxxxx 銀行：xxxxxxxxxx<br>
帳號：xxxxxxxxxx 帳號：xxxxxxxxxx<br>
姓名：xxxxxxxxxx 姓名：xxxxxxxxxx<br>
開戶銀行地址：xxxxxxxxxx
開戶銀行地址：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 + -