?? 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=../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 + -