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

📄 admin_itemaddnew6.asp

📁 本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置、MSSQL/MySQL数据库方面的专业问题请自行解决。 本人仅提供本系统相关的一些技术问题的解释、解答。
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
End If

If JDTHType1="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请选择是否替换章节内容一</li>"
ElseIf JDTHType1=1 then
	If JDTH1sStr="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>第一个原文内容不能为空</li>"
	End If
ElseIf JDTHType1=0 then
Else
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>参数传递错误</li>"
End If
	
If JDTHType2="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请选择是否替换章节内容一</li>"
ElseIf JDTHType2=1 then
	If JDTH2sStr="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>第一个原文内容不能为空</li>"
	End If
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 JDTHType1,JDTHType2,JDTHType3,JDTH1sStr,JDTH1oStr,JDTH2sStr,JDTH2oStr,JDTH3sStr,JDTH3oStr,GJTHType1,GJTHType2,GJTHType3,GJTH1sStr,GJTH2sStr,GJTH3sStr,GJTH1oStr,GJTH2oStr,GJTH3oStr,GJTH1cStr,GJTH2cStr,GJTH3cStr,Itemfalst from Item Where ItemID=" & ItemID
   Set Rs=server.CreateObject("adodb.recordset")
   Rs.Open Sql,ConnItem,2,3
   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
   Rs.Close
   Set Rs=Nothing
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
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%" height="100" border="0" cellpadding="0" cellspacing="5">
		<tr align="center" class="tdbg">
			<td colspan="2" height="25">替换处理后的章节内容：<br></td>
		</tr>
        <tr>
          <td height="100" valign="center"><p><span lang="zh-cn"><%=Content%></span></p></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
else

End If
end sub

Sub cookse()
Content=Request.Form("Content")
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>"
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 GJTHType1,GJTHType2,GJTHType3,GJTH1sStr,GJTH2sStr,GJTH3sStr,GJTH1oStr,GJTH2oStr,GJTH3oStr,GJTH1cStr,GJTH2cStr,GJTH3cStr,Itemfalst from Item Where ItemID=" & ItemID
   Set Rs=server.CreateObject("adodb.recordset")
   Rs.Open Sql,ConnItem,2,3
   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
   Rs.Close
   Set Rs=Nothing
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
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%" height="100" border="0" cellpadding="0" cellspacing="5">
		<tr align="center" class="tdbg">
			<td colspan="2" height="25">替换处理后的章节内容：<br></td>
		</tr>
        <tr>
          <td height="100" valign="center"><p><span lang="zh-cn"><%=Content%></span></p></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
end sub

%>

</body>

</html>
123

⌨️ 快捷键说明

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