📄 admin_itemaddnew6.asp

📁 本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置、MSSQL/MySQL数据库方面的专业问题请自行解决。本人仅提供本系统相关的一些技术问题的解释、解答。
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!-- #include file="../conn.asp" -->
<!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" -->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css.css">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<div id="topmomo">
	长篇采集系统项目管理</div>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr align="center">
		<td height="30"><a href="Admin_ItemManage.asp">管理首页</a> &gt;&gt;
<a href="Admin_ItemAddNew.asp">添加项目</a> &gt;&gt;
		<a href="Admin_ItemModify.asp?ItemID=<%=ItemID%>">基本设置</a> &gt;&gt;
		<a href="Admin_ItemModify2.asp?ItemID=<%=ItemID%>">资料页设置</a> &gt;&gt;
		<a href="Admin_ItemModify3.asp?ItemID=<%=ItemID%>">目录页设置</a> &gt;&gt;
		<a href="Admin_ItemModify4.asp?ItemID=<%=ItemID%>">分卷/章节页设置</a> &gt;&gt;
		<a href="Admin_ItemModify5.asp?ItemID=<%=ItemID%>">章节采样测试</a> &gt;&gt; 
		<font color="red">其他设置</font> &gt;&gt; 完成</td>
	</tr>
</table>
<%
ItemID=Trim(Request.Form("ItemID"))
readType=Trim(Request.Form("readType"))

Select Case readType
	Case "0"
		Call viewset()
	Case "1"
		Call cookset()
	Case "2"
		Call cookse()
end select

Sub viewset()
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

Sub cookset()
readType1=Trim(Request.Form("readType1"))

if readType1=0 then
UrlTest=Trim(Request.Form("UrlTest"))
VsString=Request.Form("VsString")
VoString=Request.Form("VoString")
TitleTypes=Trim(Request.Form("TitleTypes"))
TsType=Trim(Request.Form("TsType"))
TsString=Request.Form("TsString")
ToType=Trim(Request.Form("ToType"))
ToString=Request.Form("ToString")
TitleType1=Trim(Request.Form("TitleType1"))
TsType1=Trim(Request.Form("TsType1"))
TsString1=Request.Form("TsString1")
ToType1=Trim(Request.Form("ToType1"))
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")

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 UrlTest="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>参数错误，数据传递时发生错误</li>"
Else
   NewsUrl=UrlTest
End If

If VsString="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>章节页面开始标记不能为空</li>"
End If
If VoString="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>章节页面结束标记不能为空</li>" 
End If

If TsString="" or ToString="" or TsType="" or ToType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请将章节标题的开始/结束标记填写完整</li>" 
Else
   If TitleType1="" Then
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>请选择是否修正章节标题</li>" 
   Else
      TitleType1=Clng(TitleType1)
      If TitleType1=1 Then
         If TsString1="" or ToString1="" or TsType1="" or ToType1="" Then
            FoundErr=True
            ErrMsg=ErrMsg & "<br><li>请将章节标题修正的开始/结束标记填写完整</li>"
         End If
      ElseIf TitleType1=0 Then
      Else
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>TitleType1参数错误，请从有效链接进入</li>"
      End If
   End If
End If

If CsString="" or CsType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>正文开始标记不能为空</li>"
End If
If CoString="" or CoType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>正文结束标记不能为空</li>" 
End If
If ContType1="" then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请选择是否修正章节正文</li>" 
Else
   ContType1=Clng(ContType1)
   If ContType1=1 Then
      If CsString1="" or CoString1="" or CsType1="" or CoType1="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将章节正文修正的开始/结束标记填写完整</li>"
      End If
   ElseIf ContType1=0 Then
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>ContType1参数错误，请从有效链接进入</li>"
   End If
End If
If ContType2="" then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请选择获取到的正文类型</li>" 
Else
   ContType2=Clng(ContType2)
   If ContType2=2 Then
      If CsString2="" or CoString2="" or CsType2="" or CoType2="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将TXT文件中正文的开始/结束标记填写完整</li>"
      End If
   ElseIf ContType2=1 Then
   ElseIf ContType2=0 Then
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>正文类型参数错误，请从有效链接进入</li>"
   End If
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
12 3 下一页
💿 文件大小 542 K
👤 上传用户 foreverlovely
📂 所属分类 Internet/网络编程
🏷️ 相关标签

#MSSQL #MySQL #ASP #系统设计
⌨️ 快捷键说明

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