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

📄 admin_itemaddnew6.asp

📁 本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置、MSSQL/MySQL数据库方面的专业问题请自行解决。 本人仅提供本系统相关的一些技术问题的解释、解答。
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
ElseIf JDTHType2=0 then
Else
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>参数传递错误</li>"
End If
	
If JDTHType3="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请选择是否替换章节内容一</li>"
ElseIf JDTHType3=1 then
	If JDTH3sStr="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>第一个原文内容不能为空</li>"
	End If
ElseIf JDTHType3=0 then
Else
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>参数传递错误</li>"
End If

If GJTHType1="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请选择是否替换章节内容一</li>"
ElseIf GJTHType1=1 then
	If GJTH1sStr="" and GJTH1oStr="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>第一个原文内容不能为空</li>"
	End If
ElseIf GJTHType1=0 then
Else
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>参数传递错误</li>"
End If
	
If GJTHType2="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请选择是否替换章节内容一</li>"
ElseIf GJTHType2=1 then
	If GJTH2sStr="" and GJTH2oStr="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>第一个原文内容不能为空</li>"
	End If
ElseIf GJTHType2=0 then
Else
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>参数传递错误</li>"
End If
	
If GJTHType3="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请选择是否替换章节内容一</li>"
ElseIf GJTHType3=1 then
	If GJTH3sStr="" and GJTH3oStr="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>第一个原文内容不能为空</li>"
	End If
ElseIf GJTHType3=0 then
Else
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>参数传递错误</li>"
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("VsString")=VsString
   Rs("VoString")=VoString

   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
   Rs("CsType")=CsType
   Rs("CoType")=CoType
   Rs("CsString")=CsString
   Rs("CoString")=CoString
   Rs("ContType1")=ContType1
   Rs("ContType2")=ContType2
	IF ContType1=1 THEN
	   Rs("CsType1")=CsType1
	   Rs("CoType1")=CoType1
	   Rs("CsString1")=CsString1
	   Rs("CoString1")=CoString1
	END IF
	IF ContType2=2 THEN
	   Rs("CsType2")=CsType2
	   Rs("CoType2")=CoType2
	   Rs("CsString2")=CsString2
	   Rs("CoString2")=CoString2
	END IF
   Rs("JDTHType1")=JDTHType1

If JDTHType1=1 Then
	Rs("JDTH1sStr")=JDTH1sStr
	Rs("JDTH1oStr")=JDTH1oStr
End If

   Rs("JDTHType2")=JDTHType2
If JDTHType2=1 Then
	Rs("JDTH2sStr")=JDTH2sStr
	Rs("JDTH2oStr")=JDTH2oStr
End If

   Rs("JDTHType3")=JDTHType3
If JDTHType3=1 Then
	Rs("JDTH3sStr")=JDTH3sStr
	Rs("JDTH3oStr")=JDTH3oStr
End If

   Rs("GJTHType1")=GJTHType1
If GJTHType1=1 Then
	Rs("GJTH1sStr")=GJTH1sStr
	Rs("GJTH1oStr")=GJTH1oStr
	Rs("GJTH1cStr")=GJTH1cStr
End If

   Rs("GJTHType2")=GJTHType2
If GJTHType2=1 Then
	Rs("GJTH2sStr")=GJTH2sStr
	Rs("GJTH2oStr")=GJTH2oStr
	Rs("GJTH2cStr")=GJTH2cStr
End If

   Rs("GJTHType3")=GJTHType3
If GJTHType3=1 Then
	Rs("GJTH3sStr")=GJTH3sStr
	Rs("GJTH3oStr")=GJTH3oStr
	Rs("GJTH3cStr")=GJTH3cStr
End If

   Rs("Itemfalst")=1

   Rs.UpDate
   EquivType=Rs("EquivType")
   Rs.Close
   Set Rs=Nothing
End If

If FoundErr<>True Then
   NewsCode=GetHttpPage(NewsUrl,EquivType)
   If NewsCode<>"$False$" Then
      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)
              	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
	If GJTHType1=1 Then
		ContentCode1=GetArray(Content,GJTH1sStr,GJTH1oStr,true,true)
		ContentArray1=Split(ContentCode1,"$Array$")
            For i1=0 To Ubound(ContentArray1)
				Content=Replace(Content,ContentArray1(i1),GJTH1cStr)
            Next
	End If
	If GJTHType2=1 Then
		ContentCode2=GetArray(Content,GJTH2sStr,GJTH2oStr,true,true)
		ContentArray2=Split(ContentCode2,"$Array$")
            For i2=0 To Ubound(ContentArray2)
				Content=Replace(Content,ContentArray2(i2),GJTH2cStr)
            Next
	End If
	If GJTHType3=1 Then
		ContentCode3=GetArray(Content,GJTH3sStr,GJTH3oStr,true,true)
		ContentArray3=Split(ContentCode3,"$Array$")
            For i3=0 To Ubound(ContentArray3)
				Content=Replace(Content,ContentArray3(i3),GJTH3cStr)
            Next
	End If
         End If

			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
	      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">项 目 管 理--章 节 采 样 测 试</font></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 align="center" class="tdbg">
				<td colspan="2" height="25">替换处理后的章节内容：<br></td>
			</tr>
			<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="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0650D2" bordercolordark="#FFFFFF" style="LINE-HEIGHT: 150%">
    <tr class="tdbg"> 
      <td colspan="2" align="center" class="tdbg">
        <input  type="button" name="button1" value=" 完&nbsp;成 " onClick="window.location.href='Admin_ItemManage.asp'" class="button"></td>
    </tr>
</table>
<%End If
elseif readType1=1 then
Content=Request.Form("Content")
JDTHType1=Trim(Request.Form("JDTHType1"))
JDTHType2=Trim(Request.Form("JDTHType2"))
JDTHType3=Trim(Request.Form("JDTHType3"))
JDTH1sStr=Request.Form("JDTH1sStr")
JDTH1oStr=Request.Form("JDTH1oStr")
JDTH2sStr=Request.Form("JDTH2sStr")
JDTH2oStr=Request.Form("JDTH2oStr")
JDTH3sStr=Request.Form("JDTH3sStr")
JDTH3oStr=Request.Form("JDTH3oStr")

GJTHType1=Trim(Request.Form("GJTHType1"))
GJTHType2=Trim(Request.Form("GJTHType2"))
GJTHType3=Trim(Request.Form("GJTHType3"))
GJTH1sStr=Request.Form("GJTH1sStr")
GJTH1oStr=Request.Form("GJTH1oStr")
GJTH1cStr=Request.Form("GJTH1cStr")
GJTH2sStr=Request.Form("GJTH2sStr")
GJTH2oStr=Request.Form("GJTH2oStr")
GJTH2cStr=Request.Form("GJTH2cStr")
GJTH3sStr=Request.Form("GJTH3sStr")
GJTH3oStr=Request.Form("GJTH3oStr")
GJTH3cStr=Request.Form("GJTH3cStr")

If ItemID="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>ItemID参数错误，请从有效链接进入</li>"
Else
   ItemID=Clng(ItemID)
End If

If Content="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>获取的内容为空？返回修改吧！</li>"
123

⌨️ 快捷键说明

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