📄 baoyuecz.asp
字号:
<!--#include file="articleconn.asp"-->
<!--#include file="head.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<title>七彩影院－－喜欢看免费电影和下载免费电影朋友的天堂</title>
<meta content="text/html; charset=gb2312" http-equiv="Content-Type">
<link href="../images/style.css" rel="stylesheet" type="text/css">
<SCRIPT>
function formnamecheck(){
if (formname.car1.value=="")
{
alert('请输入卡号。');
formname.car1.focus();
return false;
}
return true;
}
</SCRIPT>
</TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=778 align=center border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
background=../images/inchelp-04.gif border=0>
<TBODY>
<TR>
<TD width=35><IMG height=29 src="../images/inchelp-05.gif"
width=27></TD>
<TD>
<marquee class= behavior=scoll width=404 scrollDelay=2 scrollAmount=1 onmouseover=this.stop(); onmouseout=this.start();> <script src="../js/jstopgd.js" ></script></marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee>
</marquee></TD>
<TD width=17><IMG height=29 src="../images/inchelp-01.gif"
width=18></TD>
<TD align=middle width=55 background=../images/inchelp-06.gif><A
class=left href="playhelp.asp">播放帮助</A></TD>
<TD width=27><IMG height=29 src="../images/inchelp-02.gif"
width=27></TD>
<TD align=middle width=55 background=../images/inchelp-06.gif><A
class=left href="downhelp.asp">下载帮助</A></TD>
<TD width=27><IMG height=29 src="../images/inchelp-02.gif"
width=27></TD>
<TD align=middle width=55 background=../images/inchelp-06.gif>
<a class="left" target="_blank" href="/bbs">本站论坛</a></TD>
<TD width=27><IMG height=29 src="../images/inchelp-02.gif"
width=27></TD>
<TD align=middle width=55 background=../images/inchelp-06.gif><A
class=left href="reguser.asp">注册会员</A></TD>
<TD width=14><IMG height=29 src="../images/inchelp-03.gif"
width=14></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=778 align=center border=0>
<TBODY>
<TR>
<TD background=../images/fufeibg.gif>
<P> </P>
<TABLE cellSpacing=0 cellPadding=0 width=562 align=center border=0>
<TBODY>
<TR>
<TD><IMG height=51 src="../images/dkzztop.gif" width=562></TD></TR>
<TR>
<TD align=middle background=../images/fufeiconbg.gif height=300>
<form id=formname name=formname
onsubmit="if (!formnamecheck()) return false;" method="POST" action="baoyuecz.asp">
<table border="0" cellpadding="2" cellspacing="0" width="50%" ">
<tr>
<td width="100%" colspan="2" bgcolor="#FFFFFF" bordercolor="#FFFFFF" height="165">
<p align="center"><font size="2"> <tr>
<td width="100%" style="color: black; border-style: none" colspan="2" bgcolor="#FFFFFF" bordercolor="#FFFFFF">
<% if request("car1")<>"" or request("car2")<>"" then
car1=replace(trim(request("car1")),"'","")
car2=replace(trim(Request("car2")),"'","")
set rs=server.createobject("adodb.recordset")
sql="select * from car where carid='"&car1&"'and carpws='"&car2&"' "
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"<script>alert('该充值卡不存在或者卡号密码错了！');history.back();</Script>"
response.end
else
if rs("ok")=true then
response.write"<script>alert('该充值卡已充过了！');history.back();</Script>"
response.end
end if
paymoney=rs("paymoney")
dayer=rs("day")
oklook=rs("oklook")
set rs1=server.createobject("adodb.recordset")
sql1="select money,starlook,baoyue,oklook,askmejoin from users where userid='"&Replace(request("userid"), "'", "''")&"'"
rs1.open sql1,conn,1,3
if rs1.eof and rs1.bof then
response.write"<script>alert('该用户帐号不存在！');history.back();</Script>"
response.end
else
rs1("starlook")=now()
if rs1("money")-now()<1 then
rs1("money")=now() + dayer
rs1("oklook")=oklook
rs1("baoyue")=1
else
rs1("money")=rs1("money") + dayer
rs1("oklook")=oklook
rs1("baoyue")=1
end if
end if
rs1.update
conn.execute"update car set userid='"&request("userid")&"',ok=1 where carid='"&car1&"'"
end if
if rs1("askmejoin")<>"" then
set rs2=server.createobject("adodb.recordset")
sql2="select getmoney,payno,oklook from users where userid='"&rs1("askmejoin")&"'"
rs2.open sql2,conn,1,3
if rs2("oklook")=0 or rs2("oklook")=1 then
give=1
elseif rs2("oklook")=2 then
give=2
elseif rs2("oklook")=3 then
give=3
end if
rs2("getmoney")=cint(rs2("getmoney"))+paymoney/10*give
rs2("payno")=cint(rs2("payno"))+1
rs2.update
rs2.close
set rs2=nothing
end if
if oklook=1 then
oklook="普通会员"
elseif oklook=2 then
oklook="白银会员"
elseif oklook=3 then
oklook="黄金会员"
elseif oklook=4 then
oklook="钻石会员"
end if
rs.close
rs1.close
set rs=nothing
set rs1=nothing
%>
已经成功地将<%=dayer%>天的<%=oklook%>卡充入你的帐号<br><br>你现在是<%=oklook%>会员。</td>
</tr>
<%else%>
<tr>
<td width="28%" style="color: black; border-style: none" align="center">
<font size="2">月 卡<span lang="en-us"> </span>号：</font></td>
<td width="72%" style="color: black; border-style: none">
<INPUT class=button2 name=car1 size="20"></td>
</tr>
<tr>
<td width="28%" style="color: black; border-style: none" align="center">
<font size="2">密<span lang="en-us">
</span>码：</font></td>
<td width="72%" style="color: black; border-style: none">
<font size="2">
<INPUT class=button2 name=car2 size="20"></td>
</tr>
<tr>
<td width="28%" style="color: black; border-style: none" align="center">
<font size="2">充值帐号：</font></td>
<td width="72%" style="color: black; border-style: none">
<font size="2">
<INPUT class=button2 name=car3 size="20"></td>
</tr>
<tr>
<td width="100%" style="color: black; border-style: none" colspan="2">
<p align="center">
<INPUT class=button1 type=submit value=提交 name=b1>
<INPUT class=button1 type=reset value=重置 name=b2></td>
</tr>
<tr>
<td width="100%" style="color: black; border-style: none" colspan="2">
注：本页面只适于购买包月卡充值卡的用户使用!</td>
</tr>
<%end if%>
</table>
</FORM></TD></TR>
<TD bgColor=#94c50a height=6><IMG height=1
src="../images/spacer.gif" width=1></TD></TR></TBODY></TABLE>
<P> </P></TD>
<TD vAlign=top width=156 bgColor=#c3ef26>
<TABLE cellSpacing=0 cellPadding=0 width=156 align=center border=0>
<TBODY>
<TR>
<TD align=middle><IMG height=25 src="../images/service-001.gif"
width=156></TD></TR>
<TR>
<TD align=middle background=../images/service-002.gif>
<TABLE width="80%" border=0>
<TBODY>
<TR>
<%
sql="select articleid,domurl,title,content from learning where firstbest=1 order by articleid desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
b=0
row_count=1
%> <%
do while not rs.eof
b=b+1%>
<td align="center"><span lang="zh-cn">
<a href="../html/<%=rs("articleid")%>.html" target="_blank">
<img border="0" height="131" src="<%if rs("domurl")="" then%>../images/nopic.gif<%else%><%=rs("domurl")%><%end if%>" width="111"></a></span></td>
</tr>
<tr>
<% if row_count mod 1 =0 then%>
<td align="center">
</td>
</tr>
<tr>
<td align="center"><a href="../html/<%=rs("articleid")%>.html" target="_blank" class="left">
<%content=rs("title")
if len(content)>8 then content=left(content,8)&"…"
response.write content
%></a></td>
<%end if%>
<%row_count=row_count+1
if b>=1 then exit do
rs.movenext
loop
rs.close
set rs=nothing
%> </TBODY></TABLE></TD></TR>
<TR>
<TD align=middle><IMG height=50 src="../images/service-003.gif"
width=156></TD></TR>
<TR>
<TD align=middle background=../images/service-002.gif>
<TABLE width="100%" border=0>
<TBODY>
<tr>
<TD align=middle><a ><STRONG><FONT
color=#3c5b17><< 在线支付</FONT></a></STRONG></TD>
</tr>
<tr>
<TD align=middle><A
href="sj.asp"><STRONG><FONT
color=#3c5b17><< 手机支付</FONT></STRONG></A></TD>
</tr>
<tr>
<TD align=middle><A
href="168.asp"><STRONG><FONT
color=#3c5b17><<
声讯支付</FONT></STRONG></A></TD>
</tr>
</TBODY></TABLE><IMG height=19
src="../images/service-005.gif" width=156></TD></TR>
<TR>
<TD align=middle bgColor=#c3ef26 height=10><IMG height=1
src="../images/spacer.gif"
width=1></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
</BODY></HTML>
<!--#include file="end.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -