📄 addtime.asp
字号:
<!--#include file="conn.asp"-->
<%'---------程序编写说明-------%>
<%'本程序由junping96编写
'程序名称：新世纪影院VOD播放系统（商业版）
'FileName: Addtime.asp
'EditDate:2003-12-07
'Editer:junping96
'Email:junping96@163.com
'QQ: 249112913 249114058
'请尊重本人劳动，禁止修改版权，有任何问题请和我联系。
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta name="”keywords”" content="”新世纪影院VOD影视播放程序出售”">
<meta name="”description”" content="”新世纪影院VOD影视(商业版)出售”">
<title>新世纪影院</title>
<link rel="stylesheet" type="text/css" href="css/css.css">
<script language="vbscript">
sub check()
if login.username.value=empty then
alert "错误，请输入用户名!"
exit sub
end if
if login.carid.value=empty or isnumeric(login.carid.value)=false then
alert "错误，请输入你的卡号!"
exit sub
end if
if login.carpassword.value=empty then
alert "错误，请输入你的冲值卡密码!"
exit sub
end if
login.submit
end sub
</script>
</head>
<body topmargin="2" leftmargin="0" bgcolor="#FF9900">
<%
act=trim(request.querystring("act"))
if act<>"add" then
%>
<div align="center">
<center>
<form name="login" method="post" action="addtime.asp?act=add">
<table border="0" cellpadding="0" cellspacing="1" width="184">
<tr>
<td valign="middle" align="center" bgcolor="#FFFFFF" height="21" colspan="2" width="182">用户冲值</td>
</tr>
<tr>
<td valign="middle" align="center" bgcolor="#FFFFFF" height="21" width="51">卡
号</td>
<td valign="middle" align="center" bgcolor="#FFFFFF" height="21" width="129"><input type=text name=carid size=15 class="inputs"></td>
</tr>
<tr>
<td valign="middle" align="center" bgcolor="#FFFFFF" height="21" width="51">密
码</td>
<td valign="middle" align="center" bgcolor="#FFFFFF" height="21" width="129"><input name=carpassword size=15 class="inputs"></td>
</tr>
<tr>
<td valign="middle" align="center" bgcolor="#FFFFFF" height="21" width="51">用户名</td>
<td valign="middle" align="center" bgcolor="#FFFFFF" height="21" width="129"><input name=username size=15 class="inputs"></td>
</tr>
<tr>
<td valign="middle" align="center" bgcolor="#FFFFFF" height="21" width="180" colspan="2"><input type=button onclick="check" name=b1 value="冲值">
<input type=reset name=b2 value="重置"> </td>
</tr>
<tr>
<td valign="middle" align="left" bgcolor="#FFFFFF" height="21" width="180" colspan="2">1、相同类型才可冲值。
</td>
</tr>
<tr>
<td valign="middle" align="left" bgcolor="#FFFFFF" height="21" width="180" colspan="2">2、电影游客可以接受任何冲值。</td>
</tr>
</table>
</form>
</center>
</div>
<%
else
carid=trim(request.form("carid"))
carpassword=trim(request.form("carpassword"))
username=trim(request.form("username"))
'判断此卡是否存在
set rs=server.createobject("adodb.recordset")
sql="select * from chzhk where carid="&carid
rs.open sql,conn,1,3
if rs.eof or bof then
response.write"<script language=javascript>alert('此卡不存在或者已经用过，或者你未填写正确。');history.back(-1);</script>"
response.end
end if
carid=rs("carid") '记录卡号
carlx=rs("carlx") '卡的类型 EX:1、2、3
carname=rs("carname") '全年高级会员卡
cartime=rs("cartime") '卡的时间
yesorno=rs("yesorno") '记录该卡的代理
rs.close
'判断该用户是否存在
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from user where username='"&username&"'"
rs.open sql,conn,1,3
if rs.eof or bof then
response.write"<script language=javascript>alert('此用户不存在，请注册或者使用其他帐号。');history.back(-1);</script>"
response.end
end if
'读取用户的相关信息
userdj=rs("userdj") '用户等级
stoptime=rs("stoptime") '停止使用时间
if stoptime<now() then
stoptime=now()
end if
'开始冲值
'排除无法冲值的用户
if userdj>0 and userdj<>carlx then
response.write"<script language=javascript>alert('卡的类型和用户等级不相同，系统无法完成冲值。');history.back(-1);</script>"
response.end
end if
'将时间冲入用户
sstoptime=stoptime+cartime
rs("userdj")=carlx
rs("stoptime")=stoptime+cartime
rs("starttime")=now()
rs.update
rs.close
'冲值完成
'处理冲值卡
set rs=server.createobject("adodb.connection")
rs.open conn
sql="delete from chzhk where carid="&carid
rs.execute(sql)
'删除冲值卡
'记录冲值卡的去向
if cartime=74 then
carlxs=2
elseif cartime=390 then
carlxs=12
else
carlxs=0
end if
set rs=server.createobject("adodb.recordset")
sql="select * from chzhkbak"
rs.open sql,conn,1,3
rs.addnew
rs("carid")=carid
rs("username")=username
rs("dlid")=yesorno
rs("carlx")=carlxs
rs.update
rs.close
set rs=nothing
'冲值过程结束
response.write"用户:"&username&",你好，你已经成功的冲入了"&cartime&"天，你的终止时间是"&sstoptime
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -