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

📄 admin_itemmodify4.asp

📁 功能介绍： 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
	If rHttpUrlType="" Then
	   FoundErr=True
	   ErrMsg=ErrMsg & "<br><li>请选择分卷链接处理类型</li>"
	Else
	   rHttpUrlType=Clng(rHttpUrlType)
	   If rHttpUrlType=1 Then
	      If rHttpUrlStr="" Then
	         FoundErr=True
	         ErrMsg=ErrMsg & "<br><li>绝对链接字符设置不能为空</li>"
	      Else
	            If  Len(rHttpUrlStr)<10  Then
	               FoundErr=True
	               ErrMsg=ErrMsg & "<br><li>绝对链接字符设置不正确(10个字符以上)</li>"
	            End  If      
	      End If
	   End If
	End If
	
	If cookTypes="" Then
	   FoundErr=True
	   ErrMsg=ErrMsg & "<br><li>请设置分卷标题类型</li>" 
	Else
	   cookTypes=Clng(cookTypes)
	   If cookTypes=1 Then
	      If cosType="" or cooType="" or cosString="" or cooString="" Then
	         FoundErr=True
	         ErrMsg=ErrMsg & "<br><li>请将分卷标题的开始/结束标记填写完整</li>" 
	      Else
		      if cooktype1="" then
		         FoundErr=True
		         ErrMsg=ErrMsg & "<br><li>请选择是否修正分卷标题</li>"
		      elseif cooktype1=1 then
			      If cosType1="" or cosString1="" or cooType1="" or cooString1="" Then
			         FoundErr=True
			         ErrMsg=ErrMsg & "<br><li>请将修正分卷标题的开始/结束标记填写完整</li>"
			      end if
		      elseif cooktype1=0 then
				else
					FoundErr=True
					ErrMsg=ErrMsg & "<br><li>参数传递错误</li>"
			End If
	      End If
	   ElseIf cookTypes=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("rHsType")=rHsType
   Rs("rHoType")=rHoType
   Rs("rHsString")=rHsString
   Rs("rHoString")=rHoString
	   Rs("rHUrlType1")=rHUrlType1
	   if rHUrlType1=1 then
		   Rs("rHsType1")=rHsType1
		   Rs("rHoType1")=rHoType1
		   Rs("rHsString1")=rHsString1
		   Rs("rHoString1")=rHoString1
	   end if
   Rs("rHttpUrlType")=rHttpUrlType
   If rHttpUrlType=1 Then
      Rs("rHttpUrlStr")=rHttpUrlStr
   End If
	Rs("cookTypes")=cookTypes
	if cookTypes=1 then
			Rs("cosType")=cosType
			Rs("cooType")=cooType
			Rs("cosString")=cosString
			Rs("cooString")=cooString
			Rs("cooktype1")=cooktype1
			if cooktype1=1 then
				Rs("cosType1")=cosType1
				Rs("cooType1")=cooType1
				Rs("cosString1")=cosString1
				Rs("cooString1")=cooString1
			end if
	End if
   Rs.UpDate
   EquivType=Rs("EquivType")
cooksString=Rs("cooksString")
cookoString=Rs("cookoString")
cookType=Rs("cookType")
cookStr=Rs("cookStr")
cosType=Rs("cosType")
cooType=Rs("cooType")
cosString=Rs("cosString")
cooString=Rs("cooString")
cookType1=Rs("cookType1")
cosType1=Rs("cosType1")
cooType1=Rs("cooType1")
cosString1=Rs("cosString1")
cooString1=Rs("cooString1")
readType1=Rs("readType1")
HsType=Rs("HsType")
HoType=Rs("HoType")
HsString=Rs("HsString")
HoString=Rs("HoString")
HUrlType1=Rs("HUrlType1")
HsType1=Rs("HsType1")
HoType1=Rs("HoType1")
HsString1=Rs("HsString1")
HoString1=Rs("HoString1")
HttpUrlType=Rs("HttpUrlType")
HttpUrlStr=Rs("HttpUrlStr")
TsType=Rs("TsType")
ToType=Rs("ToType")
TsString=Rs("TsString")
ToString=Rs("ToString")
TitleType1=Rs("TitleType1")
TsType1=Rs("TsType1")
ToType1=Rs("ToType1")
TsString1=Rs("TsString1")
ToString1=Rs("ToString1")
CsType=Rs("CsType")
CoType=Rs("CoType")
CsString=Rs("CsString")
CoString=Rs("CoString")
ContType1=Rs("ContType1")
CsType1=Rs("CsType1")
CoType1=Rs("CoType1")
CsString1=Rs("CsString1")
CoString1=Rs("CoString1")
ContType2=Rs("ContType2")
CsType2=Rs("CsType2")
CoType2=Rs("CoType2")
CsString2=Rs("CsString2")
CoString2=Rs("CoString2")
   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 rHsType=1 then
			rHsType=true
		elseif rHsType=0 then
			rHsType=False
		end if
		if rHoType=1 then
			rHoType=true
		elseif rHoType=0 then
			rHoType=False
		end if
		NewsArrayCode=GetArray(ListCode,rHsString,rHoString,rHsType,rHoType)
		If NewsArrayCode<>"$False$" Then
			NewsArray=Split(NewsArrayCode,"$Array$")
			For Testi=0 to Ubound(NewsArray)
				If rHUrlType1=1 Then
					if rHsType1=1 then
						rHsType1=true
					elseif rHsType1=0 then
						rHsType1=False
					end if
					if rHoType1=1 then
						rHoType1=true
					elseif rHoType1=0 then
						rHoType1=False
					end if
					NewsArray(Testi)=GetBody(NewsArray(Testi),rHsString1,rHoString1,rHsType1,rHoType1)
					If NewsArray(Testi)="$False$" Then
						FoundErr=True
						ErrMsg=ErrMsg & "<br><li>在修正分卷连接/分卷ID时出错。</li>"
					End if
				End if
				If rHttpUrlType=1 Then
					NewsArray(Testi)=Replace(rHttpUrlStr,"{$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 cookTypes=1 then
			if cosType=1 then
	     		cosType=true
	     	elseif cosType=0 then
	     		cosType=False
	     	end if
	    	if cooType=1 then
	     		cooType=true
	      	elseif cooType=0 then
	      		cooType=False
	      	end if
			cookCode=GetArray(ListCode,cosString,cooString,cosType,cooType)
			if cookCode<>"$False$" Then
				cookArray=Split(cookCode,"$Array$")
				For Testi=0 to Ubound(cookArray)
					If cookType1=1 Then
				      if cosType1=1 then
				    	cosType1=true
				      elseif cosType1=0 then
				    	cosType1=False
				      end if
				      if cooType1=1 then
				    	cooType1=true
				      elseif cooType1=0 then
				    	cooType1=False
				      end if
						cookArray(Testi)=GetBody(cookArray(Testi),cosString1,cooString1,cosType1,cooType1)
						If cookArray(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=cookArray(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 Err.Number <> 0 Then
	Response.Write Err.Description
	Err.Clear()
end if
If FoundErr=True Then
   Call WriteErrMsg(ErrMsg)
Else
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder" style="LINE-HEIGHT: 150%">
	<tr align="center">
		<td colspan="2" align="center" class="thead">项 目 管 理--目 录 页 采 集 测 试</td>
	</tr>
	<tr>
		<td height="22" colspan="2">以下是分析后所得到的分卷/章节绝对链接地址，请查看是否正确。<br>
		<%
For Testi=0 To Ubound(NewsArray)
   Response.Write "<a href='" & NewsArray(Testi) & "'"
   Response.Write " target=_blank>"
   if cookTypes=1 then
   Response.Write "" & cookArray(Testi) & ""
   else
   Response.Write "" & NewsArray(Testi) & ""
   end if
   Response.Write "</a><br>"
Next
%> <br>
		下面将抽取第一个分卷/章节地址进行测试的结果，在填写以下标记时尽量不要使用本内容。 </td>
	</tr>
</table>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr>
		<td height="22" colspan="2"></td>
	</tr>
</table>
<br>
<form method="post" action="Admin_ItemModify5.asp" name="form2">
	<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder" style="LINE-HEIGHT: 150%">
		<tr align="center">
			<td colspan="4" align="center" class="thead">项 目 编 辑--分 卷 页 设 置</td>
		</tr>
		<tr>
			<td width="50%" align="center" class="alt2" colspan="2">作品分卷页面开始标记：<br>
			<textarea name="cooksString" cols="30" rows="6" class="form"><%=cooksString%></textarea>
			</td>
			<td width="50%" align="center" class="alt1" colspan="2">作品分卷页面结束标记：<br>
			<textarea name="cookoString" cols="30" rows="6" class="form"><%=cookoString%></textarea>
			</td>
		</tr>
		<%if cookTypes=0 then%>
		<tr>
			<td width="50%" align="center" class="alt2" colspan="2">分卷标题开始标记： 
			<input type="radio" name="cosType" value="1" <%if costype=1 then response.write "checked"%> class="form">包含 
			<input type="radio" name="cosType" value="0" <%if costype=0 then response.write "checked"%> class="form">不包含<br>
			<textarea name="cosString" cols="30" rows="6" class="form"><%=cosString%></textarea><br>
			避免填写包含有“(”、“)”等的内容，容易引起程序错误。</td>
			<td width="50%" align="center" class="alt1" colspan="2">分卷标题结束标记： 
			<input type="radio" name="cooType" value="1" <%if cootype=1 then response.write "checked"%> class="form">包含 
			<input type="radio" name="cooType" value="0" <%if cootype=0 then response.write "checked"%> class="form">不包含<br>
			<textarea name="cooString" cols="30" rows="6" class="form"><%=cooString%></textarea><br>
			避免填写包含有“(”、“)”等的内容，容易引起程序错误。</td>
		</tr>
		<tr>
			<td width="50%" align="center" class="alt3" colspan="2">是否需要修正：&nbsp; </td>
			<td width="50%" class="alt3" colspan="2">
			<input type="radio" value="0" name="cookType1" <%if cooktype1=0 then response.write "checked"%> class="form" onclick="cook3.style.display='none'">不需要&nbsp; 
			<input type="radio" value="1" name="cookType1" <%if cooktype1=1 then response.write "checked"%> class="form" onclick="cook3.style.display=''">需要&nbsp; 
			</td>
		</tr>
		<tr id="cook3" style="display:<%if cookType1=0 then response.write "none"%>">
			<td width="50%" align="center" class="alt2" colspan="2">修正分卷标题开始标记：
12345

⌨️ 快捷键说明

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