📄 admin_itemaddnew2.asp

📁 小说站源代码文件
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!-- #include file="../conn.asp" -->
<!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" -->
<%
Dim Rs,Sql,FoundErr,ErrMsg
Dim ItemID,WebName,WebUrl,ItemDemo,LoginType,LoginUrl,LoginPostUrl,LoginUser,LoginPass,LoginFalse
Dim Islisted,Islisted1,listedUrl,listedsString,listedoString,ListPaingsString,ListPaingoString,ListPaingType,LPsType,LPoType,LPsString,LPoString
Dim IsSaveFace,IsSaveFiles,EquivType,InputerType,EditorType,Inputer,Editor,LPUrlType,ListPaingStr

WebName=Trim(Request.Form("WebName"))
WebUrl=Trim(Request.Form("WebUrl"))
EquivType=Request.Form("EquivType")
LoginType=Request.Form("LoginType")
LoginUrl=Trim(Request.Form("LoginUrl"))
LoginPostUrl=Trim(Request.Form("LoginPostUrl"))
LoginUser=Trim(Request.Form("LoginUser"))
LoginPass=Trim(Request.Form("LoginPass"))
LoginFalse=Trim(Request.Form("LoginFalse"))

Islisted=Request.Form("Islisted")
Islisted1=Request.Form("Islisted1")
listedUrl=Trim(Request.Form("listedUrl"))
ListPaingsString=Request.Form("ListPaingsString")
ListPaingoString=Request.Form("ListPaingoString")
listedsType=Trim(Request.Form("listedsType"))
listedoType=Trim(Request.Form("listedoType"))
listedsString=Request.Form("listedsString")
listedoString=Request.Form("listedoString")
listedType1=Trim(Request.Form("listedType1"))
listedsType1=Trim(Request.Form("listedsType1"))
listedoType1=Trim(Request.Form("listedoType1"))
listedsString1=Request.Form("listedsString1")
listedoString1=Request.Form("listedoString1")
ListPaingType=Request.Form("ListPaingType")
LPsType=Request.Form("LPsType")
LPoType=Request.Form("LPoType")
LPsString=Request.Form("LPsString")
LPoString=Request.Form("LPoString")
LPUrlType=Request.Form("LPUrlType")
ListPaingStr=Trim(Request.Form("ListPaingStr"))
ListPaingStr2=Trim(Request.Form("ListPaingStr2"))

ShowType=Request.Form("ShowType")
IsSaveFace=Request.Form("IsSaveFace")
IsSaveFiles=Request.Form("IsSaveFiles")
InputerType=Request.Form("InputerType")
Inputer=Trim(Request.Form("Inputer"))
EditorType=Request.Form("EditorType")
Editor=Trim(Request.Form("Editor"))
ItemDemo=Trim(Request.Form("ItemDemo"))

If WebName="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>网站名称不能为空</li>"
End If

If WebUrl="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>网站网址不能为空</li>" 
End If

If EquivType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请选择页面编码</li>" 
End If

If LoginType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请选择登录类型</li>"
Else
   LoginType=Clng(LoginType)
   If LoginType=1 Then
      If LoginUrl="" or LoginPostUrl="" or LoginUser="" or  LoginPass="" or  LoginFalse="" then
         FoundErr=True
         ErrMsg=ErrMsg& "<br><li>请将登录参数填写完整</li>"
      End If
   End If
End If

If Islisted="" Then
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>请填选择是否可以按照ID列表进行采集</li>"
ElseIf Islisted=0 Then
	If Islisted1="" Then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请填选择ID列表获取方式</li>"
	ElseIf Islisted1=1 Then
		If listedUrl="" or listedsString="" or listedoString="" then
			FoundErr=True
			ErrMsg=ErrMsg& "<br><li>请将测试作品列表页面参数填写完整</li>"
		End If
		If listedsType="" or listedoType="" or listedsString="" or listedoString="" then
			FoundErr=True
			ErrMsg=ErrMsg& "<br><li>请将作品ID/URL开始/结束标记参数填写完整</li>"
		Else
			If listedType1="" then
				FoundErr=True
				ErrMsg=ErrMsg& "<br><li>请选择是否修正作品ID/URL</li>"
			Elseif listedType1=1 then
				If listedsType1="" or listedoType1="" or listedsString1="" or listedoString1="" then
					FoundErr=True
					ErrMsg=ErrMsg& "<br><li>请将修正作品ID/URL开始/结束标记参数填写完整</li>"
				End If
			Elseif listedType1=0 then
			else
			   FoundErr=True
			   ErrMsg=ErrMsg & "<br><li>参数传递错误</li>"
			End If
		End If
		If ListPaingType="" Then
			FoundErr=True
			ErrMsg=ErrMsg& "<br><li>请列表索引分页方式</li>"
		ElseIf ListPaingType=1 Then
			If LPsType="" or LPsString="" or LPsType="" or LPsString="" Then
				FoundErr=True
				ErrMsg=ErrMsg& "<br><li>请将列表索引分页下一页参数填写完整</li>"
			End If
			If LPUrlType="" Then
				FoundErr=True
				ErrMsg=ErrMsg& "<br><li>请选择下页链接处理类型</li>"
			ElseIf LPUrlType=1 Then
				If ListPaingStr="" Then
					FoundErr=True
					ErrMsg=ErrMsg& "<br><li>请填写分页重定向链接字符</li>"
				End If
			ElseIf LPUrlType=0 Then
			Else
				FoundErr=True
				ErrMsg=ErrMsg& "<br><li>下页链接处理类型参数错误</li>"
			End If
		ElseIf ListPaingType=0 or ListPaingType=2 Then
		Else
			FoundErr=True
			ErrMsg=ErrMsg& "<br><li>列表索引分页方式参数错误</li>"
		End If
	ElseIf Islisted1=0 Then
	Else
		FoundErr=True
		ErrMsg=ErrMsg& "<br><li>ID列表获取方式参数错误</li>"
	End If
ElseIf Islisted=1 Then
ElseIf Islisted=2 Then
	If Islisted1="" Then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请填选择Url列表获取方式</li>"
	ElseIf Islisted1=1 Then
		If listedUrl="" or listedsString="" or listedoString="" then
			FoundErr=True
			ErrMsg=ErrMsg& "<br><li>请将测试作品列表页面参数填写完整</li>"
		End If
		If listedsType="" or listedoType="" or listedsString="" or listedoString="" then
			FoundErr=True
			ErrMsg=ErrMsg& "<br><li>请将作品ID/URL开始/结束标记参数填写完整</li>"
		Else
			If listedType1="" then
				FoundErr=True
				ErrMsg=ErrMsg& "<br><li>请选择是否修正作品ID/URL</li>"
			Elseif listedType1=1 then
				If listedsType1="" or listedoType1="" or listedsString1="" or listedoString1="" then
					FoundErr=True
					ErrMsg=ErrMsg& "<br><li>请将修正作品ID/URL开始/结束标记参数填写完整</li>"
				End If
			Elseif listedType1=0 then
			else
			   FoundErr=True
			   ErrMsg=ErrMsg & "<br><li>参数传递错误</li>"
			End If
		End If
		If ListPaingType="" Then
			FoundErr=True
			ErrMsg=ErrMsg& "<br><li>请列表索引分页方式</li>"
		ElseIf ListPaingType=1 Then
			If LPsType="" or LPsString="" or LPsType="" or LPsString="" Then
				FoundErr=True
				ErrMsg=ErrMsg& "<br><li>请将列表索引分页下一页参数填写完整</li>"
			End If
			If LPUrlType="" Then
				FoundErr=True
				ErrMsg=ErrMsg& "<br><li>请选择下页链接处理类型</li>"
			ElseIf LPUrlType=1 Then
				If ListPaingStr="" Then
					FoundErr=True
					ErrMsg=ErrMsg& "<br><li>请填写分页重定向链接字符</li>"
				End If
			ElseIf LPUrlType=0 Then
			Else
				FoundErr=True
				ErrMsg=ErrMsg& "<br><li>下页链接处理类型参数错误</li>"
			End If
		ElseIf ListPaingType=2 Then
			If ListPaingStr2="" Then
				FoundErr=True
				ErrMsg=ErrMsg& "<br><li>请填写分页重定向链接字符</li>"
			End If
		ElseIf ListPaingType=0 Then
		Else
			FoundErr=True
			ErrMsg=ErrMsg& "<br><li>列表索引分页方式参数错误</li>"
		End If
	ElseIf Islisted1=0 Then
		FoundErr=True
		ErrMsg=ErrMsg& "<br><li>按照URL列表只能选择按照页面获取</li>"
	Else
		FoundErr=True
		ErrMsg=ErrMsg& "<br><li>ID列表获取方式参数错误</li>"
	End If
Else
	FoundErr=True
	ErrMsg=ErrMsg& "<br><li>是否可以按照ID列表进行采集参数错误</li>"
End If

If IsSaveFace="" or IsSaveFiles="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请填写完整信息</li>"
End If

If EditorType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请选择作品编辑类型</li>"
Else
   EditorType=Clng(EditorType)
   If EditorType=1 Then
      If Editor="" then
         FoundErr=True
         ErrMsg=ErrMsg& "<br><li>请填写指定的作品编辑</li>"
      End If
   End If
End If

If InputerType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请选择作品录入员类型</li>"
Else
   InputerType=Clng(InputerType)
   If InputerType=1 Then
      If Inputer="" then
         FoundErr=True
         ErrMsg=ErrMsg& "<br><li>请填写指定的录入员</li>"
      End If
   End If
End If

If Islisted=0 or Islisted=2 then
	if Islisted1=1 Then
		ListCode=GetHttpPage(listedUrl,EquivType)
		If ListCode<>"$False$" Then
			ListCode=GetBody(ListCode,ListPaingsString,ListPaingoString,True,True)
			If ListCode<>"$False$" Then
				if listedsType=1 then
					listedsType=true
				elseif listedsType=0 then
					listedsType=False
				end if
				if ListedoType=1 then
					ListedoType=true
				elseif ListedoType=0 then
					ListedoType=False
				end if
				NewsArrayCode=GetArray(ListCode,listedsString,listedoString,listedsType,ListedoType)
				If NewsArrayCode<>"$False$" Then
					NewsArray=Split(NewsArrayCode,"$Array$")
					For Testi=0 To Ubound(NewsArray)
						If listedType1=1 Then
							if listedsType1=1 then
								listedsType1=true
							elseif listedsType1=0 then
								listedsType1=False
							end if
							if ListedoType1=1 then
								ListedoType1=true
							elseif ListedoType1=0 then
								ListedoType1=False
							end if
							NewsArray(Testi)=GetBody(NewsArray(Testi),listedsString1,listedoString1,listedsType1,ListedoType1)
							If NewsArray(Testi)="$False$" Then
								FoundErr=True
								ErrMsg=ErrMsg & "<br><li>在修正测试作品ID/Url时出错。</li>"
							End if
						End if
						if Islisted=0 then
							if IsNumeric(NewsArray(Testi))=false then
								FoundErr=True
								ErrMsg=ErrMsg & "<br><li>截取到的作品ID不是标准数字格式,请检查.</li>"
							End If
						End If
					Next
					ShowStrUrl=NewsArray(0)
				Else
					FoundErr=True
					ErrMsg=ErrMsg & "<br><li>在获取测试作品ID/Url时出错。</li>"
				End If
				If ListPaingType=1  Then
					if LPsType=1 then
						LPsType=true
12 3 下一页
⌨️ 快捷键说明

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