📄 admin_itemmodify3.asp

📁 本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置、MSSQL/MySQL数据库方面的专业问题请自行解决。本人仅提供本系统相关的一些技术问题的解释、解答。
💻 ASP
📖 第 1 页 / 共 5 页
字号:
12 3 4 5 下一页
<!-- #include file="../conn.asp" -->
<!--#include file="../inc/config.asp"-->
<!--#include file="../inc/GetFunction.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>
<%
Dim ItemID
Dim Rs,Sql,FoundErr,ErrMsg,FolderType,FolderType1,FolderType2,FolderStr
Dim ShowStr,ListStr,ShowStrUrl,SBsString,SBoString,B_NameType,B_NameStr,B_NsType,B_NoType,B_NsString,B_NoString,B_AuthorType,B_AuthorStr,B_AsType,B_AoType,B_AsString,B_AoString,B_LeiType,B_LeiStr,B_LsType,B_LoType,B_LsString,B_LoString
Dim B_PicType,B_PicStr,B_PsType,B_PoType,B_PsString,B_PoString,B_KeyType,B_KeyStr,B_KsType,B_KoType,B_KsString,B_KoString,B_InfoType,B_InfoStr,B_IsType,B_IoType,B_IsString,B_IoString
Dim B_TaiType,B_TaiStr,B_TsType,B_ToType,B_TsString,B_ToString

Dim B_NsType1,B_NoType1,B_NsString1,B_NoString1,B_AuthorType1,B_AsType1,B_AoType1,B_AsString1,B_AoString1,B_LeiType1,B_LsType1,B_LoType1,B_LsString1,B_LoString1
Dim B_PicType1,B_PicType2,B_PicStr1,B_PicStr2,B_PsType1,B_PoType1,B_PsString1,B_PoString1,B_KeyType1,B_KsType1,B_KoType1,B_KsString1,B_KoString1,B_InfoType1,B_IsType1,B_IoType1,B_IsString1,B_IoString1
Dim B_TaiType1,B_TsType1,B_ToType1,B_TsString1,B_ToString1

ItemID=Trim(Request.Form("ItemID"))
ShowStr=Request.Form("ShowStr")
ListStr=Request.Form("ListStr")
ShowStrUrl=Trim(Request.Form("ShowStrUrl"))
SBsString=Request.Form("SBsString")
SBoString=Request.Form("SBoString")

FolderType=Trim(Request.Form("FolderType"))
FolderType1=Trim(Request.Form("FolderType1"))
B_readsType=Trim(Request.Form("B_readsType"))
B_readoType=Trim(Request.Form("B_readoType"))
B_readsString=Request.Form("B_readsString")
B_readoString=Request.Form("B_readoString")
B_readsType1=Trim(Request.Form("B_readsType1"))
B_readoType1=Trim(Request.Form("B_readoType1"))
B_readsString1=Request.Form("B_readsString1")
B_readoString1=Request.Form("B_readoString1")

B_NameType=Trim(Request.Form("B_NameType"))
B_NameStr=Request.Form("B_NameStr")
B_NsType=Trim(Request.Form("B_NsType"))
B_NsString=Request.Form("B_NsString")
B_NoType=Trim(Request.Form("B_NoType"))
B_NoString=Request.Form("B_NoString")

B_AuthorType=Trim(Request.Form("B_AuthorType"))
B_AuthorStr=Request.Form("B_AuthorStr")
B_AsType=Trim(Request.Form("B_AsType"))
B_AsString=Request.Form("B_AsString")
B_AoType=Trim(Request.Form("B_AoType"))
B_AoString=Request.Form("B_AoString")

B_LeiType=Trim(Request.Form("B_LeiType"))
B_LeiStr=Request.Form("B_LeiStr")
B_LsType=Trim(Request.Form("B_LsType"))
B_LsString=Request.Form("B_LsString")
B_LoType=Trim(Request.Form("B_LoType"))
B_LoString=Request.Form("B_LoString")

B_PicType=Trim(Request.Form("B_PicType"))
B_PicStr=Request.Form("B_PicStr")
B_PsType=Trim(Request.Form("B_PsType"))
B_PsString=Request.Form("B_PsString")
B_PoType=Trim(Request.Form("B_PoType"))
B_PoString=Request.Form("B_PoString")

B_KeyType=Trim(Request.Form("B_KeyType"))
B_KeyStr=Request.Form("B_KeyStr")
B_KsType=Trim(Request.Form("B_KsType"))
B_KsString=Request.Form("B_KsString")
B_KoType=Trim(Request.Form("B_KoType"))
B_KoString=Request.Form("B_KoString")

B_InfoType=Trim(Request.Form("B_InfoType"))
B_InfoStr=Request.Form("B_InfoStr")
B_IsType=Trim(Request.Form("B_IsType"))
B_IsString=Request.Form("B_IsString")
B_IoType=Trim(Request.Form("B_IoType"))
B_IoString=Request.Form("B_IoString")

B_TaiType=Trim(Request.Form("B_TaiType"))
B_TaiStr=Request.Form("B_TaiStr")
B_TsType=Trim(Request.Form("B_TsType"))
B_TsString=Request.Form("B_TsString")
B_ToType=Trim(Request.Form("B_ToType"))
B_ToString=Request.Form("B_ToString")

B_NameType1=Trim(Request.Form("B_NameType1"))
B_NsType1=Trim(Request.Form("B_NsType1"))
B_NsString1=Request.Form("B_NsString1")
B_NoType1=Trim(Request.Form("B_NoType1"))
B_NoString1=Request.Form("B_NoString1")

B_AuthorType1=Trim(Request.Form("B_AuthorType1"))
B_AsType1=Trim(Request.Form("B_AsType1"))
B_AsString1=Request.Form("B_AsString1")
B_AoType1=Trim(Request.Form("B_AoType1"))
B_AoString1=Request.Form("B_AoString1")

B_LeiType1=Trim(Request.Form("B_LeiType1"))
B_LsType1=Trim(Request.Form("B_LsType1"))
B_LsString1=Request.Form("B_LsString1")
B_LoType1=Trim(Request.Form("B_LoType1"))
B_LoString1=Request.Form("B_LoString1")

B_PicType1=Trim(Request.Form("B_PicType1"))
B_PicType2=Trim(Request.Form("B_PicType2"))
B_PicStr1=Request.Form("B_PicStr1")
B_PicStr2=Request.Form("B_PicStr2")
B_PsType1=Trim(Request.Form("B_PsType1"))
B_PsString1=Request.Form("B_PsString1")
B_PoType1=Trim(Request.Form("B_PoType1"))
B_PoString1=Request.Form("B_PoString1")

B_KeyType1=Trim(Request.Form("B_KeyType1"))
B_KsType1=Trim(Request.Form("B_KsType1"))
B_KsString1=Request.Form("B_KsString1")
B_KoType1=Trim(Request.Form("B_KoType1"))
B_KoString1=Request.Form("B_KoString1")

B_InfoType1=Trim(Request.Form("B_InfoType1"))
B_IsType1=Trim(Request.Form("B_IsType1"))
B_IsString1=Request.Form("B_IsString1")
B_IoType1=Trim(Request.Form("B_IoType1"))
B_IoString1=Request.Form("B_IoString1")

B_TaiType1=Trim(Request.Form("B_TaiType1"))
B_TsType1=Trim(Request.Form("B_TsType1"))
B_TsString1=Request.Form("B_TsString1")
B_ToType1=Trim(Request.Form("B_ToType1"))
B_ToString1=Request.Form("B_ToString1")

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

If ShowStr="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>作品资料页面地址不能为空</li>"
End If
If ShowStrUrl="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>测试作品ID不能为空</li>"
End If

If FolderType="" Then
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>请选择是否为以作品ID为规律的多极目录</li>"
Else
	FolderType=Clng(FolderType)
	If FolderType=1 Then
		If ListStr="" Then
		   FoundErr=True
		   ErrMsg=ErrMsg & "<br><li>作品目录页面地址不能为空</li>"
		End If
	ElseIf FolderType=0 Then
		If B_readsType="" or B_readoType="" or B_readsString="" or B_readoString="" Then
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>作品目录连接参数错误</li>" 
		Else
			if FolderType1="" then
				FoundErr=True
				ErrMsg=ErrMsg & "<br><li>请选择是否修正作品目录连接</li>" 
			Else
	            FolderType1=Clng(FolderType1)
	            if FolderType1=1 then
					If B_readsType1="" or B_readoType1="" or B_readsString1="" or B_readoString1="" Then
		               FoundErr=True
		               ErrMsg=ErrMsg & "<br><li>请将作品目录连接修正的开始/结束标记填写完整</li>"
		            End If
		        ElseIf FolderType1=0 Then
		        Else
		            FoundErr=True
		            ErrMsg=ErrMsg & "<br><li>修正作品目录连接参数错误</li>"
		        End If
			End If
		End If
	ElseIf FolderType=2 Then
	Else
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>否为以作品ID为规律的多极目录参数错误</li>" 
	End If
End If

If SBsString="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>作品资料页面开始标记不能为空</li>"
End If
If SBoString="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>作品资料页面结束标记不能为空</li>" 
End If

If B_NameType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置作品名称类型</li>" 
Else
   B_NameType=Clng(B_NameType)
   If B_NameType=0 Then
      If B_NsString="" or B_NoString="" or B_NsType="" or B_NoType="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将作品名称的开始/结束标记填写完整</li>" 
      Else
         If B_NameType1="" Then
            FoundErr=True
            ErrMsg=ErrMsg & "<br><li>请选择是否修正作品名称</li>" 
         Else
            B_NameType1=Clng(B_NameType1)
            If B_NameType1=1 Then
               If B_NsString1="" or B_NoString1="" or B_NsType1="" or B_NoType1="" Then
                  FoundErr=True
                  ErrMsg=ErrMsg & "<br><li>请将作品名称修正的开始/结束标记填写完整</li>"
               End If
            ElseIf B_NameType1=0 Then
            Else
               FoundErr=True
               ErrMsg=ErrMsg & "<br><li>修正的作品名称类型参数错误，请从有效链接进入</li>"
            End If
         End If
      End If
   ElseIf B_NameType=2 Then
      If B_NameStr="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请指定作品名称</li>" 
      End If
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>作品名称类型参数错误，请从有效链接进入</li>" 
   End If 
End If

If B_AuthorType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置作品作者类型</li>" 
Else
   B_AuthorType=Clng(B_AuthorType)
   If B_AuthorType=0 Then
      If B_AsString="" or B_AoString="" or B_AsType="" or B_AoType="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将作品作者的开始/结束标记填写完整</li>" 
      Else
         If B_AuthorType1="" Then
            FoundErr=True
            ErrMsg=ErrMsg & "<br><li>请选择是否修正作品作者</li>" 
         Else
            B_AuthorType1=Clng(B_AuthorType1)
            If B_AuthorType1=1 Then
               If B_AsString1="" or B_AoString1="" or B_AsType1="" or B_AoType1="" Then
                  FoundErr=True
                  ErrMsg=ErrMsg & "<br><li>请将作品作者修正的开始/结束标记填写完整</li>"
               End If
            ElseIf B_AuthorType1=0 Then
            Else
               FoundErr=True
               ErrMsg=ErrMsg & "<br><li>修正的作品作者类型参数错误，请从有效链接进入</li>"
            End If
         End If
      End If
   ElseIf B_AuthorType=2 Then
      If B_AuthorStr="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请指定作品作者</li>" 
      End If
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>作品作者类型参数错误，请从有效链接进入</li>" 
   End If 
End If

If B_LeiType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置作品类别类型</li>" 
Else
   B_LeiType=Clng(B_LeiType)
   If B_LeiType=0 Then
      If B_LsString="" or B_LoString="" or B_LsType="" or B_LoType="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将作品类别的开始/结束标记填写完整</li>" 
      Else
         If B_NameType1="" Then
            FoundErr=True
12 3 4 5 下一页
💿 文件大小 542 K
👤 上传用户 foreverlovely
📂 所属分类 Internet/网络编程
🏷️ 相关标签

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

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