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

📄 admin_itemmodify4.asp

📁 功能介绍： 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
   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("cooksString")=cooksString
	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("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")
VsString=Rs("VsString")
VoString=Rs("VoString")
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")
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")
JDTHType1=Rs("JDTHType1")
JDTH1sStr=Rs("JDTH1sStr")
JDTH1oStr=Rs("JDTH1oStr")
JDTHType2=Rs("JDTHType2")
JDTH2sStr=Rs("JDTH2sStr")
JDTH2oStr=Rs("JDTH2oStr")
JDTHType3=Rs("JDTHType3")
JDTH3sStr=Rs("JDTH3sStr")
JDTH3oStr=Rs("JDTH3oStr")
   Rs.Close
   Set Rs=Nothing
   
'--------------------------------------------------------------------------------------------------------
ListUrl=ListsUrl
readCode=GetHttpPage(ListUrl,EquivType)
If readCode<>"$False$" Then
	readCode=GetBody(readCode,LsString,LoString,True,True)
	If readCode<>"$False$" Then 
		If Instr(readCode,cooksString)>0 then
			cooksArray=Split(readCode,cooksString)
			okfile="共截取到"&Ubound(cooksArray)&"个分卷<br>"
			For cooki=1 To Ubound(cooksArray)
				ListCode=cooksArray(cooki)
				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=GetBody(ListCode,cosString,cooString,cosType,cooType)
					if cookCode<>"$False$" Then
						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
							cookCode=GetBody(cookCode,cosString1,cooString1,cosType1,cooType1)
							If cookCode="$False$" Then
								FoundErr=True
								ErrMsg=ErrMsg & "<br><li>在修正分卷标题时出错。</li>"
							End if
						End if
						okfile=okfile&"分卷"&cooki&"："&cookCode&"<br>"
					Else
						FoundErr=True
						ErrMsg=ErrMsg & "<br><li>在获取分卷标题时出错。</li>"
					End If
					cookTest=cookCode
				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 vTesti=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(vTesti)=GetBody(Title(vTesti),TsString1,ToString1,TsType1,ToType1)
								If Title(vTesti)="$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
				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
						okfile=okfile&"<a href='" & NewsArray(Testi) & "' target=_blank>"
						if TitleTypes=1 then
							okfile=okfile&Title(Testi)
						else
							okfile=okfile&NewsArray(Testi)
						end if
						okfile=okfile&"</a><br>"
					Next
					UrlTest=NewsArray(0)
				Else
					FoundErr=True
					ErrMsg=ErrMsg & "<br><li>在获取章节连接/章节ID时出错。</li>"
				End If
			Next
		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
End If  'If FoundErr=True

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>
<%
Response.Write okfile
okfile=""
%> <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="form3">
	<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder" style="LINE-HEIGHT: 150%">
		<tr>
			<td colspan="2" align="center" class="thead">项 目 编 辑--章 节 页 设 置</td>
		</tr>
		<tr>
			<td width="50%" align="center" class="alt2">作品章节页面开始标记：<br>
			<textarea name="VsString" cols="30" rows="6" class="form"><%=VsString%></textarea>
			</td>
			<td width="50%" align="center" class="alt1">作品章节页面结束标记：<br>
			<textarea name="VoString" cols="30" rows="6" class="form"><%=VoString%></textarea>
			</td>
		</tr>
		<%if TitleTypes=0 then%>
		<tr>
			<td width="50%" align="center" class="alt2">标题开始标记： 
			<input type="radio" name="TsType" value="1" <%if tstype=1 then response.write "checked"%> class="form">包含 
			<input type="radio" name="TsType" value="0" <%if tstype=0 then response.write "checked"%> class="form">不包含<br>
			<textarea name="TsString" cols="30" rows="6" class="form"><%=TsString%></textarea></td>
			<td width="50%" align="center" class="alt1">标题结束标记： 
			<input type="radio" name="ToType" value="1" <%if totype=1 then response.write "checked"%> class="form">包含 
			<input type="radio" name="ToType" value="0" <%if totype=0 then response.write "checked"%> class="form">不包含<br>
			<textarea n
12345

⌨️ 快捷键说明

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