📄 admin_itemmodify2.asp

📁 小说站源代码文件
💻 ASP
📖 第 1 页 / 共 4 页
字号:
12 3 4 下一页
<!-- #include file="../conn.asp" -->
<!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" -->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css.css">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<div id=topmomo>长篇采集系统项目管理</div>
<%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

ItemID=Request.Form("ItemID")
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=Request.Form("listedsType")
listed0Type=Request.Form("listedoType")
listedsString=Request.Form("listedsString")
listedoString=Request.Form("listedoString")
listedType1=Request.Form("listedType1")
listedsType1=Request.Form("listedsType1")
listedoType1=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 listed0Type="" 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 listed0Type="" 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
12 3 4 下一页
⌨️ 快捷键说明

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