admin_user_shhok.asp

新世纪影院源码

<!--#include file="conn.asp"-->
<!--#include file="xshjyy.asp"-->
<%'---------程序编写说明-------%> 
<%'本程序由junping96编写
'程序名称：新世纪影院VOD播放系统（商业版）
'FileName: Admin_user_shhok.asp
'EditDate:2003-12-07
'Editer:junping96
'Email:[e-mail]
'QQ:       249112913 249114058
'请尊重本人劳动，禁止修改版权，有任何问题请和我联系。
%>
<%
username=trim(request.querystring("username"))
'username="junping96"
if username="" then
response.redirect"../error.htm"
end if
addtime=trim(request.form("addtime"))

addtime=cint(addtime)
if addtime="" then
response.redirect"../error.htm"
end if
set rs=server.createobject("adodb.recordset")
sql="select starttime,stoptime,userdj from user where username='"&username&"'"
rs.open sql,conn,1,3
if rs.eof or bof then
response.redirect"../error.htm"
else
rs("starttime")=now()
rs("stoptime")=now()+addtime
if addtime=37 then
rs("userdj")=1
elseif addtime=74 then
rs("userdj")=3
elseif addtime=200 then
rs("userdj")=2
else
rs("userdj")=3
end if
rs.update
rs.close
set rs=server.createobject("adodb.connection")
rs.open conn
sql="delete from userbuycar where username='"&username&"'"
rs.execute(sql)

set rs=nothing
response.redirect request.servervariables("HTTP_REFERER")
end if
%>