📄 czpt.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="css/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="jstopgd.asp" ></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="http://bbs.cn-mayi.com">本站论坛</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="czpt.asp">
<table border="0" cellpadding="2" cellspacing="0" width="50%" ">
<tr>
<td width="100%" colspan="2" bgcolor="#FFFFFF" bordercolor="#FFFFFF">
<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
paymoney=rs("paymoney")
dayer=rs("day")
oklook=rs("oklook")
set rs1=server.createobject("adodb.recordset")
sql1="select money,starlook,oklook,usercount,baoyue,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 oklook<>0 then
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
else
rs1("usercount")=rs1("usercount") + dayer
rs1("baoyue")=0
end if
rs1.update
conn.execute"delete from car 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=0 then
oklook="计点"
elseif oklook=1 then
oklook="普通"
elseif oklook=2 then
oklook="白银"
elseif oklook=3 then
oklook="黄金"
elseif oklook=4 then
oklook="钻石"
end if
end if
rs.close
rs1.close
set rs=nothing
set rs1=nothing
%>
<font size="2">已经成功地将<font color="#FF0000"><%=dayer%>天/点</font>的<font color="#FF0000"><%=oklook%>卡</font>充入你的帐号，你现在是<font color="#FF0000"><%=oklook%>会员</font>。</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>
<%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="movie.asp?id=<%=rs("articleid")%>" 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="movie.asp?id=<%=rs("articleid")%>" 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="center" height="15">
<img src="images/tel.gif"><font color="#a17711">客服联系：</font></td>
</tr>
<tr>
<td align="center" height="4">
</td>
</tr>
<tr>
<td align="center" height="1">
</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 + -