📄 admin_mov_add_05.asp

📁 重庆宽频P2P电影小偷程序,可以做一个大型的电影站了
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<%Sub Add5
Dim RsItem,SqlItem,FoundErr,ErrMsg
Dim UrlTest,TsString,ToString,CsString,CoString
Dim AuthorType,AsString,AoString,AuthorStr
Dim UpdateTimeType,UsString,UoString,UpdateTimeStr
Dim CopyFromType,FsString,FoString,CopyFromStr
Dim KeyType,KsString,KoString,KeyStr
Dim NewsPaingType,NPsString,NPoString,NewsPaingStr1,NewsPaingStr2
Dim NewsUrl,NewsCode
Dim Title,ConTent,Author,UpdateTime,CopyFrom,Key,keytempstr
Dim FilesStartStr,FilesOverStr,FilesPath
Dim UploadFiles
Dim DsStringbType,DsStringb,DoStringb,DsStringbtxt,DsStringbb,DoStringbb
Dim XsStringbType,XsStringb,XoStringb,XsStringbtxt,XsStringbb,XoStringbb,sXsStringbtxt,HttpDownUrlType,HttpDownUrlStr
Dim BsStringbType,BsStringb,BoStringb,BsStringbtxt,BoStringbstr
Dim YsStringbType,YsStringb,YoStringb,YsStringbtxt,YoStringbstr
Dim PsStringbType,PsStringb,PoStringb,PsStringbtxt,PoStringbstr
Dim HsStringbType,HsStringb,HoStringb,HsStringbtxt,HoStringbstr
Dim JsStringbType,JsStringb,JoStringb,JsStringbtxt,JoStringbstr
Dim SsStringbType,SsStringb,SoStringb,SsStringbtxt,SoStringbstr
Dim ZsStringbType,ZsStringb,ZoStringb,ZsStringbtxt,ZoStringbstr
Dim LsStringbType,LsStringb,LoStringb,LsStringbtxt,LoStringbstr
Dim MsStringbType,MsStringb,MoStringb,MsStringbtxt,MoStringbstr
Dim QsStringbType,QsStringb,QoStringb,QsStringbtxt,QoStringbstr

FilesStartStr="src="
FilesOverStr="gif|jpg|bmp"
FilesPath="UploadFiles"






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
	ListUrl=rrs("ListStr")
	TsString=rrs("TsString")
	ToString=rrs("ToString")
	CsString=rrs("CsString")
	CoString=rrs("CoString")

	DsStringbType=rrs("DsStringbType")
	DsStringb=rrs("DsStringb")
	DoStringb=rrs("DoStringb")
	DsStringbb=rrs("DsStringbb")
	DoStringbb=rrs("DoStringbb")

	XsStringbType=rrs("XsStringbType")
	XsStringb=rrs("XsStringb")
	XoStringb=rrs("XoStringb")
	XsStringbb=rrs("XsStringbb")
	XoStringbb=rrs("XoStringbb")
	
	HttpDownUrlType=rrs("HttpDownUrlType")
    HttpDownUrlStr=rrs("HttpDownUrlStr")
	
	BsStringbType=rrs("BsStringbType")
	BsStringb=rrs("BsStringb")
	BoStringb=rrs("BoStringb")
	BoStringbStr=rrs("BoStringbStr")
	
	YsStringbType=rrs("YsStringbType")
	YsStringb=rrs("YsStringb")
	YoStringb=rrs("YoStringb")
	YoStringbStr=rrs("YoStringbStr")
	
	PsStringbType=rrs("PsStringbType")
	PsStringb=rrs("PsStringb")
	PoStringb=rrs("PoStringb")
	PoStringbStr=rrs("PoStringbStr")
	
	HsStringbType=rrs("HsStringbType")
	HsStringb=rrs("HsStringb")
	HoStringb=rrs("HoStringb")
	HoStringbStr=rrs("HoStringbStr")
	
	JsStringbType=rrs("JsStringbType")
	JsStringb=rrs("JsStringb")
	JoStringb=rrs("JoStringb")
	JoStringbStr=rrs("JoStringbStr")
	
	SsStringbType=rrs("SsStringbType")
	SsStringb=rrs("SsStringb")
	SoStringb=rrs("SoStringb")
	SoStringbStr=rrs("SoStringbStr")
	
	ZsStringbType=rrs("ZsStringbType")
	ZsStringb=rrs("ZsStringb")
	ZoStringb=rrs("ZoStringb")
	ZoStringbStr=rrs("ZoStringbStr")
	
	LsStringbType=rrs("LsStringbType")
	LsStringb=rrs("LsStringb")
	LoStringb=rrs("LoStringb")
	LoStringbStr=rrs("LoStringbStr")
	
	MsStringbType=rrs("MsStringbType")
	MsStringb=rrs("MsStringb")
	MoStringb=rrs("MoStringb")
	MoStringbStr=rrs("MoStringbStr")
	
	QsStringbType=rrs("QsStringbType")
	QsStringb=rrs("QsStringb")
	QoStringb=rrs("QoStringb")
	QoStringbStr=rrs("QoStringbStr")
	

	AuthorType=rrs("AuthorType")
	AsString=rrs("AsString")
	AoString=rrs("AoString")
	AuthorStr=rrs("AuthorStr")
	
	UpdateTimeType=rrs("UpdateTimeType")
	UsString=rrs("UsString")
	UoString=rrs("UoString")
	UpdateTimeStr=rrs("UpdateTimeStr")
	
	CopyFromType=rrs("CopyFromType")
	FsString=rrs("FsString")
	FoString=rrs("FoString")
	CopyFromStr=rrs("CopyFromStr")
	
	KeyType=rrs("KeyType")
	KsString=rrs("KsString")
	KoString=rrs("KoString")
	KeyStr=rrs("KeyStr")
	
	NewsPaingType=rrs("NewsPaingType")
	NPsString=rrs("NPsString")
	NPoString=rrs("NPoString")
	NewsPaingStr1=rrs("NewsPaingStr1")
	NewsPaingStr2=rrs("NewsPaingStr2")

	rrs.close
	set rrs=nothing
	
	ListCode=GetHttpPage(ListUrl)
	If ListCode<>"$False$" Then
		ListCode=GetBody(ListCode,LsString,LoString,False,False)
		If ListCode<>"$False$" Then 
			NewsArrayCode=GetArray(ListCode,HsString,HoString,False,False)
			If NewsArrayCode<>"$False$" Then
				NewsArray=Split(NewsArrayCode,"$Array$")
				If HttpUrlType=1 Then
					UrlTest=Trim(Replace(HttpUrlStr,"{$ID}",NewsArray(0)))
				Else
					UrlTest=Trim(DefiniteUrl(NewsArray(0),ListUrl))
				End If
			Else
				FoundErr=True
				ErrMsg=ErrMsg & "<br><li>在获取链接列表时出错。</li>"
			End If   
		Else
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>在截取列表时发生错误。</li>"
		End If
	Else
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>在获取:" & ListUrl & "网页源码时发生错误。</li>"
	End If
Else
	ItemID=Trim(Request.Form("ItemID"))
	UrlTest=Trim(Request.Form("UrlTest"))
	TsString=Request.Form("TsString")
	ToString=Request.Form("ToString")
	CsString=Request.Form("CsString")
	CoString=Request.Form("CoString")
	
	DsStringbType=Request.Form("DsStringbType")
	DsStringb=Request.Form("DsStringb")
	DoStringb=Request.Form("DoStringb")
	DsStringbb=Request.Form("DsStringbb")
	DoStringbb=Request.Form("DoStringbb")
	
	XsStringbType=Request.Form("XsStringbType")
	XsStringb=Request.Form("XsStringb")
	XoStringb=Request.Form("XoStringb")
	XsStringbb=Request.Form("XsStringbb")
	XoStringbb=Request.Form("XoStringbb")
	
	HttpDownUrlType=Request.Form("HttpDownUrlType")
	HttpDownUrlStr=Request.Form("HttpDownUrlStr")
	
	BsStringbType=Request.Form("BsStringbType")
	BsStringb=Request.Form("BsStringb")
	BoStringb=Request.Form("BoStringb")
	BoStringbStr=Request.Form("BoStringbStr")
	
	YsStringbType=Request.Form("YsStringbType")
	YsStringb=Request.Form("YsStringb")
	YoStringb=Request.Form("YoStringb")
	YoStringbStr=Request.Form("YoStringbStr")
	
	PsStringbType=Request.Form("PsStringbType")
	PsStringb=Request.Form("PsStringb")
	PoStringb=Request.Form("PoStringb")
	PoStringbStr=Request.Form("PoStringbStr")
	
	HsStringbType=Request.Form("HsStringbType")
	HsStringb=Request.Form("HsStringb")
	HoStringb=Request.Form("HoStringb")
	HoStringbStr=Request.Form("HoStringbStr")
	
	JsStringbType=Request.Form("JsStringbType")
	JsStringb=Request.Form("JsStringb")
	JoStringb=Request.Form("JoStringb")
	JoStringbStr=Request.Form("JoStringbStr")
	
	SsStringbType=Request.Form("SsStringbType")
	SsStringb=Request.Form("SsStringb")
	SoStringb=Request.Form("SoStringb")
	SoStringbStr=Request.Form("SoStringbStr")
	
	ZsStringbType=Request.Form("ZsStringbType")
	ZsStringb=Request.Form("ZsStringb")
	ZoStringb=Request.Form("ZoStringb")
	ZoStringbStr=Request.Form("ZoStringbStr")
	
	LsStringbType=Request.Form("LsStringbType")
	LsStringb=Request.Form("LsStringb")
	LoStringb=Request.Form("LoStringb")
	LoStringbStr=Request.Form("LoStringbStr")
	
	MsStringbType=Request.Form("MsStringbType")
	MsStringb=Request.Form("MsStringb")
	MoStringb=Request.Form("MoStringb")
	MoStringbStr=Request.Form("MoStringbStr")
	
	QsStringbType=Request.Form("QsStringbType")
	QsStringb=Request.Form("QsStringb")
	QoStringb=Request.Form("QoStringb")
	QoStringbStr=Request.Form("QoStringbStr")


	AuthorType=Trim(Request.Form("AuthorType"))
	AsString=Request.Form("AsString")
	AoString=Request.Form("AoString")
	AuthorStr=Trim(Request.Form("AuthorStr"))
	
	UpdateTimeType=Trim(Request.Form("UpdateTimeType"))
	UsString=Request.Form("DsString")
	UoString=Request.Form("DoString")
	UpdateTimeStr=Trim(Request.Form("DoString1"))
	
	CopyFromType=Request.Form("CopyFromType")
	FsString=Request.Form("FsString")
	FoString=Request.Form("FoString")
	CopyFromStr=Trim(Request.Form("CopyFromStr"))
	
	KeyType=Trim(Request.Form("KeyType"))
	KsString=Request.Form("KsString")
	KoString=Request.Form("KoString")
	KeyStr=Trim(Request.Form("KeyStr"))
	
	NewsPaingType=Trim(Request.Form("NewsPaingType"))
	NPsString=Trim(Request.Form("NPsString"))
	NPoString=Trim(Request.Form("NPoString"))
	NewsPaingStr1=Trim(Request.Form("NewsPaingStr1"))
	NewsPaingStr2=Trim(Request.Form("NewsPaingStr2"))
End If

If ItemID="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>参数错误，请从有效链接进入</li>"
Else
   ItemID=Clng(ItemID)
End If
If UrlTest="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>参数错误，数据传递时发生错误</li>"
End If
If TsString="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>标题开始标记不能为空</li>"
End If
If ToString="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>标题结束标记不能为空</li>" 
End If
If CsString="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>正文开始标记不能为空</li>"
End If
If CoString="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>正文结束标记不能为空</li>" 
End If

If AuthorType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置作者类型</li>" 
Else
   AuthorType=Clng(AuthorType)
   If AuthorType=0 Then
   ElseIf AuthorType=1 Then
      If AsString="" or AoString="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将作者的开始/结束标记填写完整</li>" 
      End If
   ElseIf AuthorType=2 Then
      If AuthorStr="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请指定作者</li>" 
      End If
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>参数错误，请从有效链接进入</li>" 
   End If 
End If

If UpdateTimeType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置日期类型</li>" 
Else
   UpdateTimeType=Clng(UpdateTimeType)
   If UpdateTimeType=0 Then
   ElseIf UpdateTimeType=1 Then
      If UsString="" or UoString="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将日期的开始/结束标记填写完整</li>" 
      End If
   ElseIf UpdateTimeType=2 Then
      If UpdateTimeStr="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请指定日期</li>" 
      End If
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>参数错误，请从有效链接进入</li>" 
   End If 
End If


If DsStringbType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置电影标签类型</li>" 
Else
	DsStringbType=Clng(DsStringbType)
	If DsStringbType=0 Then   
	ElseIf DsStringbType=1 Then   	
		If DsStringb="" or DoStringb="" or DsStringbb="" or DoStringbb="" Then
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>请将播放地址的开始/结束标记填写完整</li>" 
		End If
		If XsStringbType="" Then
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>请设置新页面播放标签类型</li>" 
		Else
			XsStringbType=Clng(XsStringbType)
		If XsStringbType=0 Then   
		ElseIf XsStringbType=1 Then
			If XsStringb="" or XoStringb="" or XsStringbb="" or XoStringbb="" Then
				FoundErr=True
				ErrMsg=ErrMsg & "<br><li>请将新页面播放地址的开始/结束标记填写完整</li>" 
			End If
		Else
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>参数错误，请从有效链接进入</li>" 
		End If 
	End If
	Else
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>参数错误，请从有效链接进入</li>"
12 3 下一页
⌨️ 快捷键说明

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