📄 admin_mov_add.asp

📁 重庆宽频P2P电影小偷程序,可以做一个大型的电影站了
💻 ASP
字号:
<%@language=vbscript codepage=936%>
<%
Option Explicit
Server.ScriptTimeOut = 9999999
%>
<!--#include file="Admin_mov_Conn.asp"-->
<!--#include file="../Conn.asp"-->
<!--#include file="../inc/Function.asp"-->
<!--#include file="Admin_ChkPurview.asp"-->
<!--#include file="Admin_mov_Function.asp"-->
<!--#include file="Admin_mov_Add_01.asp"-->
<!--#include file="Admin_mov_Add_02.asp"-->
<!--#include file="Admin_mov_Add_03.asp"-->
<!--#include file="Admin_mov_Add_04.asp"-->
<!--#include file="Admin_mov_Add_05.asp"-->
<!--#include file="Admin_mov_Add_06.asp"-->
<!--#include file="Admin_mov_Add_07.asp"-->
<html>
<head>
<title>电影采集系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="Admin_Style.css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
  <tr class='topbg'>
    <td height="22" colspan="2" align="center" ><strong>电 影 采 集 系 统 项 目 管 理</strong></td>
  </tr>
</table>
<%
'Dim stChannelID,ClassID,SpecialID,FoundErr,ErrMsg
Dim ItemID,ItemName,WebName,WebUrl,ListStr,ItemDemo,LoginType,LoginUrl,LoginPostUrl,LoginUser,LoginPass,LoginFalse,SqlItem,RsItem
Dim LsString,LoString,ListPaingType,LPsString,LPoString,ListPaingStr1,ListPaingStr2,ListPaingID1,ListPaingID2,ListPaingStr3
Dim HsString,HoString,HttpUrlType,HttpUrlStr,NewsArrayCode,NewsArray,UrlTest
Dim ListUrl,ListCode
Dim ListPaingNext
dim SqlItemR,rrs
Dim sType,ishothits

sType=Trim(Request("Type"))
If sType="modify" then
	ItemID=Trim(Request("ItemID"))
	Set rrs=server.createobject("adodb.recordset")
	SqlItemR="Select * from Item Where ItemID=" & ItemID
	rrs.open SqlItemR,ConnItem,1,1	
	ItemName=rrs("ItemName")
	WebName=rrs("WebName")
	WebUrl=rrs("WebUrl")
	ListStr=rrs("ListStr")
	stChannelID=rrs("ChannelID")
	ClassID=rrs("ClassID")
	SpecialID=rrs("SpecialID")
	ItemDemo=rrs("ItemDemo")
	LoginType=rrs("LoginType")
	LoginUrl=rrs("LoginUrl")
	LoginPostUrl=rrs("LoginPostUrl")
	LoginUser=rrs("LoginUser")
	LoginPass=rrs("LoginPass")
	LoginFalse=rrs("LoginFalse")
	LsString=rrs("LsString")
	LoString=rrs("LoString")
	ListPaingType=rrs("ListPaingType")
	LPsString=rrs("LPsString")
	LPoString=rrs("LPoString")
	ListPaingStr1=rrs("ListPaingStr1")
	ListPaingStr2=rrs("ListPaingStr2")
	ListPaingID1=rrs("ListPaingID1")
	ListPaingID2=rrs("ListPaingID2")
	ListPaingStr3=rrs("ListPaingStr3")
	HsString=rrs("HsString")
	HoString=rrs("HoString")
	HttpUrlType=rrs("HttpUrlType")
	HttpUrlStr=rrs("HttpUrlStr")
	
	rrs.close
	set rrs=nothing
else
	ItemID=Trim(Request.Form("ItemID"))
	ItemName=Trim(Request.Form("ItemName"))
	WebName=Trim(Request.Form("WebName"))
	WebUrl=Trim(Request.Form("WebUrl"))
	ListStr=Trim(Request.Form("ListStr"))
	stChannelID=Trim(Request.Form("ChannelID"))
	ClassID=Trim(Request.Form("ClassID"))
	SpecialID=Trim(Request.Form("SpecialID"))
	ItemDemo=Request.Form("ItemDemo")
	LoginType=Request.Form("LoginType")
	LoginUrl=Request.Form("LoginUrl")
	LoginPostUrl=Request.Form("LoginPostUrl")
	LoginUser=Request.Form("LoginUser")
	LoginPass=Request.Form("LoginPass")
	LoginFalse=Request.Form("LoginFalse")
	LsString=Request.Form("LsString")
	LoString=Request.Form("LoString")
	ListPaingType=Request.Form("ListPaingType")
	LPsString=Request.Form("LPsString")
	LPoString=Request.Form("LPoString")
	ListPaingStr1=Trim(Request.Form("ListPaingStr1"))
	ListPaingStr2=Trim(Request.Form("ListPaingStr2"))
	ListPaingID1=Trim(Request.Form("ListPaingID1"))
	ListPaingID2=Trim(Request.Form("ListPaingID2"))
	ListPaingStr3=Trim(Request.Form("ListPaingStr3"))
	HsString=Request.Form("HsString")
	HoString=Request.Form("HoString")
	HttpUrlType=Trim(Request.Form("HttpUrlType"))
	HttpUrlStr=Trim(Request.Form("HttpUrlStr"))
End if

Dim tAction
tAction= Trim(request("Action"))
if tAction="" then
	Call Add1
elseif tAction="Add1" then
	Call Add2
elseif tAction="Add2" then
	Call Add3
elseif tAction="Add3" then
	Call Add4
elseif tAction="Add4" then
	Call Add5
elseif tAction="Add5" then
	Call Add6
elseif tAction="Add6" then
	Call Add7
End if
%>
</body>
</html>

<%
'**************************************************
'过程名：WriteErrMsg
'作  用：显示错误提示信息
'参  数：无
'**************************************************
Sub WriteErrMsg(ErrMsg)
    Dim strErr
    strErr = strErr & "<html><head><title>错误信息</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
    strErr = strErr & "<link href='Admin_Style.css' rel='stylesheet' type='text/css'></head><body><br><br>" & vbCrLf
    strErr = strErr & "<table cellpadding=2 cellspacing=1 border=0 width=400 class='border' align=center>" & vbCrLf
    strErr = strErr & "  <tr align='center' class='title'><td height='22'><strong>错误信息</strong></td></tr>" & vbCrLf
    strErr = strErr & "  <tr class='tdbg'><td height='100' valign='top'><b>产生错误的可能原因：</b>" & ErrMsg & "</td></tr>" & vbCrLf
    strErr = strErr & "  <tr align='center' class='tdbg'><td>"
    strErr = strErr & "<a href='javascript:history.go(-1)'>&lt;&lt; 返回上一页</a>"
    strErr = strErr & "</td></tr>" & vbCrLf
    strErr = strErr & "</table>" & vbCrLf
    strErr = strErr & "</body></html>" & vbCrLf
    Response.Write strErr
End Sub





sub Admin_ShowClass_Option(CurrentID,ChannelID)

	dim rsClass,sqlClass,strTemp,tmpDepth,i
	dim arrShowLine(20)
	for i=0 to ubound(arrShowLine)
		arrShowLine(i)=False
	next
	sqlClass="Select * From PE_Class where channelid="&ChannelID&" order by RootID,OrderID"
	set rsClass=server.CreateObject("adodb.recordset")
	rsClass.open sqlClass,conn,1,1
	if rsClass.bof and rsClass.bof then
		response.write "<option value=''>请先添加栏目</option>"
	else
		do while not rsClass.eof
			tmpDepth=rsClass("Depth")			
			if rsClass("NextID")>0 then
				arrShowLine(tmpDepth)=True
			else
				arrShowLine(tmpDepth)=False
			end if

				if rsClass("Child")>0 and rsClass("EnableAdd")<>-1 then
					strTemp="<option value='0'"
				elseif rsClass("LinkUrl")<>"" then
					strTemp="<option value=''"
				else
					strTemp="<option style='background-color:green' value='" & rsClass("ClassID") & "'"
				end if
				

			if rsClass("ClassID")=Clng(CurrentID) then
				 strTemp=strTemp & " selected"
				' SkinID=rsClass("SkinID")
				' LayoutID=rsClass("LayoutID")
				 'BrowsePurview=rsClass("BrowsePurview")
				' AddPurview=rsClass("AddPurview")
			end if
			strTemp=strTemp & ">"
			
			if tmpDepth>0 then
				for i=1 to tmpDepth
					strTemp=strTemp & "&nbsp;&nbsp;"
					if i=tmpDepth then
						if rsClass("NextID")>0 then
							strTemp=strTemp & "├&nbsp;"
						else
							strTemp=strTemp & "└&nbsp;"
						end if
					else
						if arrShowLine(i)=True then
							strTemp=strTemp & "│"
						else
							strTemp=strTemp & "&nbsp;"
						end if
					end if
				next
			end if
			strTemp=strTemp & rsClass("ClassName")
			if rsClass("LinkUrl")<>"" then
				strTemp=strTemp & "(外)"
			end if
			strTemp=strTemp & "</option>"
			response.write strTemp
			rsClass.movenext
		loop
	end if
	rsClass.close
	set rsClass=nothing
end sub

sub Admin_ShowSpecial_Option(SpecialID,ChannelID)
	if ChannelID="" then		
	else                
		dim sqlSpecial,rsSpecial
		sqlSpecial="select * from PE_Special where ChannelID="&ChannelID&""
		set rsSpecial=server.CreateObject("adodb.recordset")
		rsSpecial.open sqlSpecial,conn,1,1
		do while not rsSpecial.eof
			if rsSpecial("SpecialID")=Clng(SpecialID) then
				response.write "<option value='" & rsSpecial("SpecialID") & "' selected>" & rsSpecial("SpecialName") & "</option>"
			else
				response.write "<option value='" & rsSpecial("SpecialID") & "'>" & rsSpecial("SpecialName") & "</option>"
			end if
			rsSpecial.movenext
		loop
		rsSpecial.close
    	set rsSpecial = nothing
    End if
end sub

sub Admin_ShowChannel_Option(ChannelID)	                
	dim sqlChannel,rsChannel
	sqlChannel="select * from PE_Channel where ModuleType=2 and Disabled=0"
	set rsChannel=server.CreateObject("adodb.recordset")
	rsChannel.open sqlChannel,conn,1,1
	if ChannelID="" then
		Response.Write "<option value='' selected>请选择频道</option>"
	else
		Response.Write "<option value='' >请选择频道</option>"
	ENd if
	do while not rsChannel.eof
		if rsChannel("ChannelID")=Clng(ChannelID) then
			response.write "<option value='" & rsChannel("ChannelID") & "' selected>" & rsChannel("ChannelName") & "</option>"
			ishothits=rsChannel("HitsOfHot")
		else
			response.write "<option value='" & rsChannel("ChannelID") & "'>" & rsChannel("ChannelName") & "</option>"
		end if
		rsChannel.movenext
	loop
	rsChannel.close
    set rsChannel = nothing
end sub




Function PPTF(ppstr)
	if ppstr="yes" then
		pptf=True
	Else
		pptf=False
	End if
End Function

Function ftpp(ppstr)
	if ppstr=True then
		ftpp="checked"
	Else
		ftpp=""
	End if
End Function
%>
⌨️ 快捷键说明

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