⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_itemaddnew4.asp

📁 功能介绍： 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
<!-- #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>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr align="center">
		<td height="30"><a href="Admin_ItemManage.asp">管理首页</a> &gt;&gt;
		<a href="Admin_ItemAddNew.asp">添加项目</a> &gt;&gt;
		<a href="Admin_ItemModify.asp?ItemID=<%=ItemID%>">基本设置</a> &gt;&gt;
		<a href="Admin_ItemModify2.asp?ItemID=<%=ItemID%>">资料页设置</a> &gt;&gt;
		<a href="Admin_ItemModify3.asp?ItemID=<%=ItemID%>">目录页设置</a> &gt;&gt;
		<font color="red">分卷/章节页设置</font> &gt;&gt; 章节采样测试 &gt;&gt; 其他设置 &gt;&gt; 完成</td>
	</tr>
</table>
<%
Dim ItemID
Dim Rs,Sql,FoundErr,ErrMsg
Dim ListsUrl,ListStrUrl,LsString,LoString
Dim HsType,HoType,HsString,HoString,HttpUrlType,HttpUrlStr
Dim rHsType,rHoType,rHsString,rHoString,rHttpUrlType,rHttpUrlStr
Dim ListUrl,ListCode,NewsArrayCode,NewsArray,UrlTest,NewsCode
dim Testi
ItemID=Trim(Request("ItemID"))
ListsUrl=Request("ListsUrl")
ListStrUrl=Trim(Request("ListStrUrl"))
LsString=Request.Form("LsString")
LoString=Request.Form("LoString")
readType=Trim(Request.Form("readType"))
If ItemID="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>ItemID参数错误，请从有效链接进入</li>"
Else
   ItemID=Clng(ItemID)
End If

If Listsurl="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>作品目录页面地址不能为空</li>"
End If
If ListStrUrl="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>测试作品ID不能为空</li>"
End If
If LsString="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>作品目录页面开始标记不能为空</li>"
End If
If LoString="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>作品目录页面结束标记不能为空</li>" 
End If
If readType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请选择要从目录中获取的类型</li>" 
End If
If FoundErr=True Then
   Call WriteErrMsg(ErrMsg)
   response.End
end if
Select Case readType
	Case "0"
		Call viewset()
	Case "1"
		Call cookset()
	Case "2"
		Call cookse()
end select

Sub viewset()

HsType=Trim(Request.Form("HsType"))
HoType=Trim(Request.Form("HoType"))
HsString=Request.Form("HsString")
HoString=Request.Form("HoString")
HUrlType1=Request.Form("HUrlType1")
HsType1=Request.Form("HsType1")
HoType1=Request.Form("HoType1")
HsString1=Request.Form("HsString1")
HoString1=Request.Form("HoString1")
HttpUrlType=Trim(Request.Form("HttpUrlType"))
HttpUrlStr=Trim(Request.Form("HttpUrlStr"))

TitleTypes=Trim(Request.Form("TitleTypes"))
TsType=Trim(Request.Form("TsType"))
ToType=Trim(Request.Form("ToType"))
TsString=Request.Form("TsString")
ToString=Request.Form("ToString")
TitleType1=Trim(Request.Form("TitleType1"))
TsType1=Trim(Request.Form("TsType1"))
ToType1=Trim(Request.Form("ToType1"))
TsString1=Request.Form("TsString1")
ToString1=Request.Form("ToString1")

	If HsString="" or HsType="" or HoString="" or HoType="" Then
	   FoundErr=True
	   ErrMsg=ErrMsg & "<br><li>章节链接/章节ID开始/结束标记不能为空</li>"
	End If
	if HUrlType1="" then
	   FoundErr=True
	   ErrMsg=ErrMsg & "<br><li>请选择要是否修正章节链接/章节ID</li>" 
	elseif HUrlType1=1 then
		If HsString1="" or HsType1="" or HoString1="" or HoType1="" Then
		   FoundErr=True
		   ErrMsg=ErrMsg & "<br><li>修正章节链接/章节ID开始/结束标记不能为空</li>" 
		End If
	elseif HUrlType1=0 then
	else
	   FoundErr=True
	   ErrMsg=ErrMsg & "<br><li>参数传递错误</li>"
	End If
	If HttpUrlType="" Then
	   FoundErr=True
	   ErrMsg=ErrMsg & "<br><li>请选择链接处理类型</li>"
	Else
	   HttpUrlType=Clng(HttpUrlType)
	   If HttpUrlType=1 Then
	      If HttpUrlStr="" Then
	         FoundErr=True
	         ErrMsg=ErrMsg & "<br><li>绝对链接字符设置不能为空</li>"
	      Else
	            If  Len(HttpUrlStr)<10  Then
	               FoundErr=True
	               ErrMsg=ErrMsg & "<br><li>绝对链接字符设置不正确(10个字符以上)</li>"
	            End  If      
	      End If
	   End If
	End If
	
	If TitleTypes="" Then
	   FoundErr=True
	   ErrMsg=ErrMsg & "<br><li>请设置章节标题类型</li>" 
	Else
	   TitleTypes=Clng(TitleTypes)
	   If TitleTypes=1 Then
	      If TsType="" or TsString="" or ToType="" or ToString="" Then
	         FoundErr=True
	         ErrMsg=ErrMsg & "<br><li>请将章节标题的开始/结束标记填写完整</li>"
	      Else
		      if Titletype1="" then
		         FoundErr=True
		         ErrMsg=ErrMsg & "<br><li>请选择是否修正章节标题</li>"
		      elseif Titletype1=1 then
			      If TsType1="" or TsString1="" or ToType1="" or ToString1="" Then
			         FoundErr=True
			         ErrMsg=ErrMsg & "<br><li>请将修正章节标题的开始/结束标记填写完整</li>"
			      end if
		      end if
	      End If
	   ElseIf TitleTypes=0 Then
	   Else
	      FoundErr=True
	      ErrMsg=ErrMsg & "<br><li>标题类型参数错误，请从有效链接进入</li>" 
	   End If 
	End If

If FoundErr<>True Then
   Sql="Select * from Item Where ItemID=" & ItemID
   Set Rs=server.CreateObject("adodb.recordset")
   Rs.Open Sql,ConnItem,2,3

   Rs("ListStrUrl")=ListStrUrl
   Rs("LsString")=LsString
   Rs("LoString")=LoString
	Rs("readType")=readType
   Rs("HsType")=HsType
   Rs("HoType")=HoType
   Rs("HsString")=HsString
   Rs("HoString")=HoString
	   Rs("HUrlType1")=HUrlType1
	   if HUrlType1=1 then
		   Rs("HsType1")=HsType1
		   Rs("HoType1")=HoType1
		   Rs("HsString1")=HsString1
		   Rs("HoString1")=HoString1
	   end if
   Rs("HttpUrlType")=HttpUrlType
   If HttpUrlType=1 Then
      Rs("HttpUrlStr")=HttpUrlStr
   End If
	Rs("TitleTypes")=TitleTypes
	if TitleTypes=1 then
			Rs("TsType")=TsType
			Rs("ToType")=ToType
			Rs("TsString")=TsString
			Rs("ToString")=ToString
			Rs("Titletype1")=Titletype1
			if Titletype1=1 then
				Rs("TsType1")=TsType1
				Rs("ToType1")=ToType1
				Rs("TsString1")=TsString1
				Rs("ToString1")=ToString1
			end if
	End if
   Rs.UpDate
   EquivType=Rs("EquivType")
   Rs.Close
   Set Rs=Nothing
   
'--------------------------------------------------------------------------------------------------------
ListUrl=ListsUrl
ListCode=GetHttpPage(ListUrl,EquivType)
If ListCode<>"$False$" Then
	ListCode=GetBody(ListCode,LsString,LoString,True,True)
	If ListCode<>"$False$" Then 
		if HsType=1 then
			HsType=true
		elseif HsType=0 then
			HsType=False
		end if
		if HoType=1 then
			HoType=true
		elseif HoType=0 then
			HoType=False
		end if
		NewsArrayCode=GetArray(ListCode,HsString,HoString,HsType,HoType)
		If NewsArrayCode<>"$False$" Then
			NewsArray=Split(NewsArrayCode,"$Array$")
			For Testi=0 To Ubound(NewsArray)
				If HUrlType1=1 Then
					if HsType1=1 then
						HsType1=true
					elseif HsType1=0 then
						HsType1=False
					end if
					if HoType1=1 then
						HoType1=true
					elseif HoType1=0 then
						HoType1=False
					end if
					NewsArray(Testi)=GetBody(NewsArray(Testi),HsString1,HoString1,HsType1,HoType1)
					If NewsArray(Testi)="$False$" Then
						FoundErr=True
						ErrMsg=ErrMsg & "<br><li>在修正章节连接/章节ID时出错。</li>"
					End if
				End if
				If HttpUrlType=1 Then
					NewsArray(Testi)=Replace(HttpUrlStr,"{$ID$}",NewsArray(Testi))
					NewsArray(Testi)=Replace(NewsArray(Testi),"{$Bl_id$}",ListStrUrl)
				Else
					NewsArray(Testi)=DefiniteUrl(NewsArray(Testi),ListUrl)
				End If
			Next
			UrlTest=NewsArray(0)
		Else
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>在获取章节连接/章节ID时出错。</li>"
		End If
		if TitleTypes=1 then
			if TsType=1 then
	     		TsType=true
	     	elseif TsType=0 then
	     		TsType=False
	     	end if
	    	if ToType=1 then
	     		ToType=true
	      	elseif ToType=0 then
	      		ToType=False
	      	end if
			TitleCode=GetArray(ListCode,TsString,ToString,TsType,ToType)
			if TitleCode<>"$False$" Then
				Title=Split(TitleCode,"$Array$")
				For Testi=0 To Ubound(Title)
					If TitleType1=1 Then
				      if TsType1=1 then
				    	TsType1=true
				      elseif TsType1=0 then
				    	TsType1=False
				      end if
				      if ToType1=1 then
				    	ToType1=true
				      elseif ToType1=0 then
				    	ToType1=False
				      end if
						Title(Testi)=GetBody(Title(Testi),TsString1,ToString1,TsType1,ToType1)
						If Title(Testi)="$False$" Then
							FoundErr=True
							ErrMsg=ErrMsg & "<br><li>在修正章节标题时出错。</li>"
						End if
					End if
				Next
			Else
				FoundErr=True
				ErrMsg=ErrMsg & "<br><li>在获取章节标题时出错。</li>"
			End If
			TitleTest=Title(0)
		end if
		Else
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>在截取目录页面时发生错误。</li>"
		End If
	Else
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>在获取:" & ListUrl & "网页源码时发生错误。</li>"
	End If
End If
If FoundErr=True Then
   Call WriteErrMsg(ErrMsg)
Else
%>
12345

⌨️ 快捷键说明

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