📄 paytip.asp

📁 顶级影视站ＡＳＰ源代码系统。很全面很强大。数据库用access
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="HMconnection.asp"-->
<%
Sub chkLevel (filmGrade)
   if session("username")="" or session("grade")="" or session("grade")<filmGrade then
     response.Write("<script language='javascript'>alert('对不起，您没有登陆或没有权限观看此片！');window.close();</script>")
     response.End
   end if
end Sub
dim filmGrade,filmID,userRS,action,userdRS1
action=trim(request.QueryString("action"))
filmGrade=cint(trim(request.QueryString("grade")))
filmID=trim(request.QueryString("id"))
chkLevel (filmGrade)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>付款提示</title>
</head>
<%
set userRS=server.createobject("adodb.recordset")
userRS.open "select paymethod,id from user where UserName='"&session("username")&"'",conn,1,1
set userdRS1=server.createobject("adodb.recordset")
userdRS1.open "select * from useDeteil where filmID="&filmID&" and userID="&userRS("id"),conn,0,1
select case action
  case "downfilm"
	if userRS("paymethod")=1 then
	   response.Write("<script language='javascript'>document.URL='downFilm.asp?id="&filmID&"&grade="&filmGrade&"';</script>")
		userdRS1.close
		set userdRS1=nothing
		userRS.close
		set userRS=nothing
		set conn=nothing
	    response.End
    elseif not userdRS1.eof then
	   response.Write("<script language='javascript'>document.URL='downFilm.asp?id="&filmID&"&grade="&filmGrade&"';</script>")
		userdRS1.close
		set userdRS1=nothing
		userRS.close
		set userRS=nothing
		set conn=nothing
	    response.End
	else
	%>
	<script language="JavaScript" type="text/javascript">
	   if(!confirm("确认进入影片下载页面吗？\n我们将扣除您<%=trim(request.QueryString("price"))%>点的点数！"))
		  window.close();
		else
		  document.URL="downFilm.asp?id=<%=filmID%>&grade=<%=filmGrade%>";     
	</script>
	<%
	
	end if
  case "seefilm"
	if userRS("paymethod")=1 then
	   response.Write("<script language='javascript'>document.URL='seeFilm.asp?id="&filmID&"&grade="&filmGrade&"';</script>")
		userdRS1.close
		set userdRS1=nothing
		userRS.close
		set userRS=nothing
		set conn=nothing
	    response.End
    elseif not userdRS1.eof then
	   response.Write("<script language='javascript'>document.URL='seeFilm.asp?id="&filmID&"&grade="&filmGrade&"';</script>")
		userdRS1.close
		set userdRS1=nothing
		userRS.close
		set userRS=nothing
		set conn=nothing
	    response.End
	else
	%>
	<script language="JavaScript" type="text/javascript">
	   if(!confirm("确认进入在线观看页面吗？\n我们将扣除您<%=trim(request.QueryString("price"))%>点的点数！"))
		  window.close();
		else
		  document.URL="seeFilm.asp?id=<%=filmID%>&grade=<%=filmGrade%>";     
	</script>
	<%end if
end select
userdRS1.close
set userdRS1=nothing
userRS.close
set userRS=nothing
set conn=nothing
%>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -