admin_itemaddnew5.asp

小说站源代码文件

      If NewsCode<>"$False$" Then
         NewsCode=GetBody(NewsCode,VsString,VoString,True,True)
         If NewsCode="$False$" Then
            FoundErr=True
            ErrMsg=ErrMsg & "<br><li>在截取:" & NewsUrl & "章节内容页时发生错误</li>"
         Else

         	if CsType=1 then
		    	CsType=true
		    elseif CsType=0 then
		    	CsType=False
		    end if
		    if CoType=1 then
		    	CoType=true
		    elseif CoType=0 then
		    	CoType=False
		    end if
		    Content=GetBody(NewsCode,CsString,CoString,CsType,CoType)
		    If ContType1=1 Then
		      	if CsType1=1 then
		      		CsType1=true
		      	elseif CsType1=0 then
		      		CsType1=False
		      	end if
		     	if CoType1=1 then
		      		CoType1=true
		      	elseif CoType1=0 then
		      		CoType1=False
		      	end if
		    Content=GetBody(Content,CsString1,CoString1,CsType1,CoType1)
		    End If

         If Content="$False$" Then
            FoundErr=True
            ErrMsg=ErrMsg & "<br><li>在截取正文的时候发生错误：" & NewsUrl & "</li>"
         Else
		     If ContType2=2 Then
		     Content=DefiniteUrl(Content,NewsUrl)
		      	if CsType2=1 then
		      		CsType2=true
		      	elseif CsType2=0 then
		      		CsType2=False
		      	end if
		     	if CoType2=1 then
		      		CoType2=true
		      	elseif CoType2=0 then
		      		CoType2=False
		      	end if
		      	ViewUrl=Content
		      	ContentCode=GetHttpPage(ViewUrl,EquivType)
              	Content=GetBody(ContentCode,CsString2,CoString2,CsType2,CoType2)
              	If Content="$False$" Then
                 	FoundErr=True
                 	ErrMsg=ErrMsg & "<br><li>在截取正文的时候发生错误：" & ViewUrl & "</li>"
              	End If
		     End If
			If JDTHType1=1 Then
				Content=Replace(Content,JDTH1sStr,JDTH1oStr)
			End If
			If JDTHType2=1 Then
				Content=Replace(Content,JDTH2sStr,JDTH2oStr)
			End If
			If JDTHType3=1 Then
				Content=Replace(Content,JDTH3sStr,JDTH3oStr)
			End If
         End If

            If cookType=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
      			cook=GetBody(NewsCode,cosString,cooString,cosType,cooType)
            	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
      			  cook=GetBody(cook,cosString1,cooString1,cosType1,cooType1)
		      	end if
            ElseIf cookType=2 Then
				cook=cookStr
            ElseIf cookType=0 Then
				cook="正文"
        	Else
	    		FoundErr=True
	    		ErrMsg=ErrMsg & "<br><li>分卷标题类型参数错误，请从有效链接进入</li>" 
        	End If

         If cook="$False$" Then
            FoundErr=True
            ErrMsg=ErrMsg & "<br><li>在截取分卷标题的时候发生错误：" & NewsUrl & "</li>"
         End If

         If TitleTypes=0 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
      		Title=GetBody(NewsCode,TsString,ToString,TsType,ToType)
            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=GetBody(Title,TsString1,ToString1,TsType1,ToType1)
		    end if
   			If Title="$False$" Then
            	FoundErr=True
            	ErrMsg=ErrMsg & "<br><li>在截取标题的时候发生错误：" & NewsUrl & "</li>"
   			End If
         Elseif TitleTypes=1 Then
         	Title=TitleTest
         Else
         	FoundErr=True
         	ErrMsg=ErrMsg & "<br><li>标题参数错误，请从有效链接进入</li>" 
         End If
      End If
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>在获取源码时发生错误："& NewsUrl &"</li>"
   End If 
End If
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>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border" style="LINE-HEIGHT: 150%">
	<tr align="center" class="tdbg">
		<td height="40" colspan="2" valign="bottom"><span lang="zh-cn">
		<font size="5"><%=Title%></span></font></td>
	</tr>
	<tr align="center" class="tdbg">
		<td colspan="2">分卷名称：<%=cook%></td>
	</tr>
	<tr class="tdbg">
		<td colspan="2">
		<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
			<tr>
				<td height="200" valign="top">
				<p><span lang="zh-cn"><%=Content%></span></p>
				<br>
				</td>
			</tr>
		</table>
		</td>
	</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border" style="LINE-HEIGHT: 150%">
	<form method="post" action="Admin_ItemAddNew6.asp" name="form1">
		<tr id="NewsPaing2">
			<td width="40%" align="right" class="alt2"><font color="blue">章节内容高级替换：</font></td>
			<td colspan=3 width="60%" class="alt1">
			<input type="radio" value="1" name="GJTHType1" class="form" onclick="GJTH1.style.display=''"><font color="blue">启用</font>第一个&nbsp; 
			<input type="radio" value="1" name="GJTHType2" class="form" onclick="GJTH2.style.display=''"><font color="blue">启用</font>第二个&nbsp; 
			<input type="radio" value="1" name="GJTHType3" class="form" onclick="GJTH3.style.display=''"><font color="blue">启用</font>第三个<br>
			<input type="radio" value="0" name="GJTHType1" class="form" checked onclick="GJTH1.style.display='none'">废除第一个&nbsp; 
			<input type="radio" value="0" name="GJTHType2" class="form" checked onclick="GJTH2.style.display='none'">废除第二个&nbsp; 
			<input type="radio" value="0" name="GJTHType3" class="form" checked onclick="GJTH3.style.display='none'">废除第三个</td>
		</tr>
		<tr id="GJTH1" style="display:none">
			<td colspan=3 width=70% align="center" class="alt2">原文内容开始标记：　　　　　　　　原文内容结束标记：<br>
			<textarea name="GJTH1sStr" cols="25" rows="5" class="form"></textarea>
			<textarea name="GJTH1oStr" cols="25" rows="5" class="form"></textarea></td>
			<td class="alt1" align="center">替换内容：<br>
			<textarea name="GJTH1cStr" cols="35" rows="5" class="form"></textarea>
			</td>
		</tr>
		<tr id="GJTH2" style="display:none">
			<td colspan=3 width=70% align="center" class="alt2">原文内容开始标记：　　　　　　　　原文内容结束标记：<br>
			<textarea name="GJTH2sStr" cols="25" rows="5" class="form"></textarea>
			<textarea name="GJTH2oStr" cols="25" rows="5" class="form"></textarea></td>
			<td class="alt1" align="center">替换内容：<br>
			<textarea name="GJTH2cStr" cols="35" rows="5" class="form"></textarea>
			</td>
		</tr>
		<tr id="GJTH3" style="display:none">
			<td colspan=3 width=70% align="center" class="alt2">原文内容开始标记：　　　　　　　　原文内容结束标记：<br>
			<textarea name="GJTH3sStr" cols="25" rows="5" class="form"></textarea>
			<textarea name="GJTH3oStr" cols="25" rows="5" class="form"></textarea></td>
			<td class="alt1" align="center">替换内容：<br>
			<textarea name="GJTH3cStr" cols="35" rows="5" class="form"></textarea>
			</td>
		</tr>
		<textarea name="Content" style="display:none"><%=Content%></textarea>
		<tr>
			<td colspan="4" align="center" class="alt3">
			<input name="ItemID" type="hidden" value="<%=ItemID%>">
			<input name="readType" type="hidden" value="<%=readType%>">
			<input type="button" name="button1" value="上&nbsp;一&nbsp;步" onclick="window.location.href='javascript:history.go(-1)'" class="button">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
			<input type="submit" name="Submit" value="下&nbsp;一&nbsp;步" class="button"></td>
		</tr>
	</form>
</table>
<%End If
end sub

Sub cookset()

cooksString=Request.Form("cooksString")
cookoString=Request.Form("cookoString")
cookTypes=Trim(Request.Form("cookTypes"))
cookType=Trim(Request.Form("cookType"))
costype=Trim(Request.Form("costype"))
cootype=Trim(Request.Form("cootype"))
cosString=Request.Form("cosString")
cooString=Request.Form("cooString")
cookType1=Trim(Request.Form("cookType1"))
costype1=Trim(Request.Form("costype1"))
cootype1=Trim(Request.Form("cootype1"))
cosString1=Request.Form("cosString1")
cooString1=Request.Form("cooString1")

readType1=Trim(Request.Form("readType1"))
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"))

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")
CsType=Trim(Request.Form("CsType"))
CoType=Trim(Request.Form("Cotype"))
CsString=Request.Form("CsString")
CoString=Request.Form("CoString")
ContType1=Trim(Request.Form("ContType1"))
CsType1=Trim(Request.Form("CsType1"))
CoType1=Trim(Request.Form("Cotype1"))
CsString1=Request.Form("CsString1")
CoString1=Request.Form("CoString1")
ContType2=Trim(Request.Form("ContType2"))
CsType2=Trim(Request.Form("CsType2"))
CoType2=Trim(Request.Form("Cotype2"))
CsString2=Request.Form("CsString2")
CoString2=Request.Form("CoString2")

If ItemID="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>ItemID参数错误，请从有效链接进入</li>"
Else
   ItemID=Clng(ItemID)
End If
If UrlTest="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>参数错误，数据传递时发生错误</li>"
Else
   NewsUrl=UrlTest
End If
If cooksString="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>分卷页面开始标记不能为空</li>"
End If
If cooksString="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>分卷页面结束标记不能为空</li>" 
End If

If cookTypes=0 Then
      If cosString="" or cooString="" or cosType="" or cooType="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将分卷标题的开始/结束标记填写完整</li>" 
      Else
         If cookType1="" Then
            FoundErr=True
            ErrMsg=ErrMsg & "<br><li>请选择是否修正分卷标题</li>" 
         Else
            cookType1=Clng(cookType1)
            If cookType1=1 Then
               If cosString1="" or cooString1="" or cosType1="" or cooType1="" Then
                  FoundErr=True
                  ErrMsg=ErrMsg & "<br><li>请将分卷标题修正的开始/结束标记填写完整</li>"
               End If
            ElseIf cookType1=0 Then
            Else
               FoundErr=True
               ErrMsg=ErrMsg & "<br><li>cookType1参数错误，请从有效链接进入</li>"
            End If
         End If
      End If
End If

If readType1=0 Then
	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>" 
	else
        HUrlType1=Clng(HUrlType1)
		If 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>HUrlType1参数错误，请从有效链接进入</li>"
        End If
	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>"