dljs.asp

新世纪影院源码

<!--#include file="conn.asp"-->
<!--#include file="xshjyy.asp"-->
<%'---------程序编写说明-------%> 
<%
'本程序由junping96编写
'程序名称：新世纪影院VOD播放系统（商业版）
'FileName: Dljs.asp
'EditDate:2003-12-07
'Editer:junping96
'Email:[e-mail]
'QQ:       249112913 249114058
'请尊重本人劳动，禁止修改版权，有任何问题请和我联系。
%>
<%
carids02=0
carids12=0
id=trim(request.querystring("id"))
if id="" then
response.redirect"../error.htm"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select carlx from chzhkbak where dlid="&id
rs.open sql,conn,1,3
if rs.eof or bof then
carids02=0
carids12=0
else
do while not rs.eof or bof
carlx=rs("carlx")
if carlx=2 then
carids02=carids02+1
end if
if carlx=12 then
carids12=carids12+1
end if
rs("carlx")=0
rs.update
rs.movenext
loop
end if
rs.close
sql="select * from dltch where id=1"
rs.open sql,conn,1,1
price02=rs("price02")
price12=rs("price12")
rs.close
carid02=carids02*price02
carid12=carids12*price12
sql="select carid02,carid12,jzhtime from dlcom where id="&id
rs.open sql,conn,1,3
rs("carid02")=carid02
rs("carid12")=carid12
rs("jzhtime")=date()
rs.update
rs.close
set rs=nothing
response.redirect request.servervariables("HTTP_REFERER")
%>