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

📄 admin_itemmodify4.asp

📁 功能介绍： 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
			<input type="radio" name="cosType1" value="1" <%if costype1=1 then response.write "checked"%> class="form">包含 
			<input type="radio" name="cosType1" value="0" <%if costype1=0 then response.write "checked"%> class="form">不包含<br>
			<textarea name="cosString1" cols="30" rows="6" class="form"><%=cosString1%></textarea></td>
			<td width="50%" align="center" class="alt1" colspan="2">修正分卷标题结束标记： 
			<input type="radio" name="cooType1" value="1" <%if cootype1=1 then response.write "checked"%> class="form">包含 
			<input type="radio" name="cooType1" value="0" <%if cootype1=0 then response.write "checked"%> class="form">不包含<br>
			<textarea name="cooString1" cols="30" rows="6" class="form"><%=cooString1%></textarea></td>
		</tr>
		<input type="hidden" name="cookTypes" value="<%=cookTypes%>"><%else%>
		<input type="hidden" name="cookTypes" value="<%=cookTypes%>"><%end if%>
		<tr>
			<td width="40%" align="right" class="alt3">我要从目录中获取：</td>
			<td width="60%" colspan="3" class="alt3">
			<input type="radio" value="0" name="readType1" <%if readtype1=0 then response.write "checked"%> onclick="read1.style.display='';read2.style.display='none'" class="form">章节连接/ID
			<input type="radio" value="1" name="readType1" <%if readtype1=1 then response.write "checked"%> onclick="read1.style.display='none';read2.style.display=''" class="form">章节标题和章节内容</td>
		</tr>
		<tr id="read1" style="display:<%if readType1=1 then response.write "none"%>">
			<td colspan="4">
			<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0650D2" bordercolordark="#FFFFFF" bgcolor="#D9D9D9">
				<tr>
					<td width="50%" align="center" class="alt2" colspan="2">章节链接/章节ID开始标记： 
					<input type="radio" name="HsType" value="1" <%if hstype=1 then response.write "checked"%> class="form">包含 
					<input type="radio" name="HsType" value="0" <%if hstype=0 then response.write "checked"%> class="form">不包含<br>
					<textarea name="HsString" cols="30" rows="5" class="form"><%=HsString%></textarea><br>
					避免填写包含有“(”、“)”等的内容，容易引起程序错误。</td>
					<td width="50%" align="center" class="alt1" colspan="2">章节链接/章节ID结束标记： 
					<input type="radio" name="HoType" value="1" <%if hotype=1 then response.write "checked"%> class="form">包含 
					<input type="radio" name="HoType" value="0" <%if hotype=0 then response.write "checked"%> class="form">不包含<br>
					<textarea name="HoString" cols="30" rows="5" class="form"><%=HoString%></textarea><br>
					避免填写包含有“(”、“)”等的内容，容易引起程序错误。</td>
				</tr>
				<tr>
					<td width="50%" align="center" class="alt3" colspan="2">是否需要修正章节链接/章节ID</td>
					<td width="50%" class="alt3" colspan="2">
					<input type="radio" value="0" name="HUrlType1" <%if hurltype1=0 then response.write "checked"%> class="form" onclick="listed1.style.display='none'">不需要&nbsp; 
					<input type="radio" value="1" name="HUrlType1" <%if hurltype1=1 then response.write "checked"%> class="form" onclick="listed1.style.display=''">需要&nbsp; 
					</td>
				</tr>
				<tr id="listed1" style="display:<%if HUrlType1=0 then response.write "none"%>">
					<td width="50%" align="center" colspan="2" class="alt2">修正章节链接/章节ID开始标记： 
					<input type="radio" name="HsType1" value="1" <%if hstype1=1 then response.write "checked"%> class="form">包含 
					<input type="radio" name="HsType1" value="0" <%if hstype1=0 then response.write "checked"%> class="form">不包含<br>
					<textarea name="HsString1" cols="30" rows="6" class="form"><%=HsString%></textarea></td>
					<td width="50%" align="center" colspan="2" class="alt1">修正章节链接/章节ID结束标记： 
					<input type="radio" name="HoType1" value="1" <%if hotype1=1 then response.write "checked"%> class="form">包含 
					<input type="radio" name="HoType1" value="0" <%if hotype1=0 then response.write "checked"%> class="form">不包含<br>
					<textarea name="HoString1" cols="30" rows="6" class="form"><%=HoString1%></textarea></td>
				</tr>
				<tr align="center">
					<td colspan="4" align="center" class="alt1"><b>获取后的内容如果为ID形式请在下面的处理类型中选择&quot;重新定向&quot;并按照要求正确填写.</b><br>
					例如:起点中文网获取后为ID形式<br>
					<b>获取后的内容如果为连接形式,则获取内容必须是以当前页面为基准的相对或绝对地址</b><br>
					例如:世纪文学获取后为连接形式</td>
				</tr>
				<tr>
					<td width="40%" align="right" class="alt3">章节链接/章节ID处理类型：</td>
					<td width="60%" colspan="3" class="alt3">
					<input type="radio" value="0" name="HttpUrlType" <%if httpurltype=0 then response.write "checked"%> onclick="HttpUrl1.style.display='none'" class="form">自动处理&nbsp; 
					<input type="radio" value="1" name="HttpUrlType" <%if httpurltype=1 then response.write "checked"%> onclick="HttpUrl1.style.display=''" class="form">重新定向 
					</td>
				</tr>
				<tr id="HttpUrl1" style="display:<%if HttpUrlType=0 then response.write "none"%>">
					<td width="40%" align="right" class="alt2">重新定向链接字符：</td>
					<td width="60%" colspan="3" class="alt1">
					<input name="HttpUrlStr" type="text" size="49" maxlength="200" value="<%=HttpUrlStr%>" class="form"><br>
					格式：http://www.cmfu.com/readchapter.asp?bl_id={$Bl_id$}&amp;bu_id={$ID$}<br>
					其中 {$Bl_id$} 代表作品ID/Url ； {$ID$} 代表上述截取到的章节ID </td>
				</tr>
			</table>
			</td>
		</tr>
		<tr id="read2" style="display:<%if readType1=0 then response.write "none"%>">
			<td colspan="4">
			<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0650D2" bordercolordark="#FFFFFF" bgcolor="#D9D9D9">
				<tr>
					<td width="50%" align="center" class="alt2">标题开始标记： 
					<input type="radio" name="TsType" value="1" <%if tstype=1 then response.write "checked"%> class="form">包含 
					<input type="radio" name="TsType" value="0" <%if tstype=0 then response.write "checked"%> class="form">不包含<br>
					<textarea name="TsString" cols="30" rows="6" class="form"><%=TsString%></textarea><br>
					避免填写包含有“(”、“)”等的内容，容易引起程序错误。</td>
					<td width="50%" align="center" class="alt1">标题结束标记： 
					<input type="radio" name="ToType" value="1" <%if totype=1 then response.write "checked"%> class="form">包含 
					<input type="radio" name="ToType" value="0" <%if totype=0 then response.write "checked"%> class="form">不包含<br>
					<textarea name="ToString" cols="30" rows="6" class="form"><%=ToString%></textarea><br>
					避免填写包含有“(”、“)”等的内容，容易引起程序错误。</td>
				</tr>
				<tr>
					<td width="50%" align="center" class="alt3">是否需要修正：&nbsp; 
					</td>
					<td width="50%" class="alt3">
					<input type="radio" value="0" name="TitleType1" <%if titletype1=0 then response.write "checked"%> class="form" onclick="Title1.style.display='none'">不需要&nbsp; 
					<input type="radio" value="1" name="TitleType1" <%if titletype1=1 then response.write "checked"%> class="form" onclick="Title1.style.display=''">需要&nbsp; 
					</td>
				</tr>
				<tr id="Title1" style="display:<%if Titletype1=0 then response.write "none"%>">
					<td width="50%" align="center" class="alt3">修正标题开始标记： 
					<input type="radio" name="TsType1" value="1" <%if tstype1=1 then response.write "checked"%> class="form">包含 
					<input type="radio" name="TsType1" value="0" <%if tstype1=0 then response.write "checked"%> class="form">不包含<br>
					<textarea name="TsString1" cols="30" rows="6" class="form"><%=TsString1%></textarea></td>
					<td width="50%" align="center" class="alt3">修正标题结束标记： 
					<input type="radio" name="ToType1" value="1" <%if totype1=1 then response.write "checked"%> class="form">包含 
					<input type="radio" name="ToType1" value="0" <%if totype1=0 then response.write "checked"%> class="form">不包含<br>
					<textarea name="ToString1" cols="30" rows="6" class="form"><%=ToString1%></textarea></td>
				</tr>
				<tr>
					<td width="50%" align="center" class="alt2">正文开始标记： 
					<input type="radio" name="CsType" value="1" <%if cstype=1 then response.write "checked"%> class="form">包含 
					<input type="radio" name="CsType" value="0" <%if cstype=0 then response.write "checked"%> class="form">不包含<br>
					<textarea name="CsString" cols="30" rows="6" class="form"><%=CsString%></textarea><br>
					避免填写包含有“(”、“)”等的内容，容易引起程序错误。</td>
					<td width="50%" align="center" class="alt1">正文结束标记： 
					<input type="radio" name="CoType" value="1" <%if cotype=1 then response.write "checked"%> class="form">包含 
					<input type="radio" name="CoType" value="0" <%if cotype=0 then response.write "checked"%> class="form">不包含<br>
					<textarea name="CoString" cols="30" rows="6" class="form"><%=CoString%></textarea><br>
					避免填写包含有“(”、“)”等的内容，容易引起程序错误。</td>
				</tr>
				<tr>
					<td width="50%" align="center" class="alt3">是否需要修正：&nbsp; 
					</td>
					<td width="50%" class="alt3">
					<input type="radio" value="0" name="ContType1" <%if conttype1=0 then response.write "checked"%> class="form" onclick="Cont1.style.display='none'">不需要&nbsp; 
					<input type="radio" value="1" name="ContType1" <%if conttype1=1 then response.write "checked"%> class="form" onclick="Cont1.style.display=''">需要&nbsp; 
					</td>
				</tr>
				<tr id="Cont1" style="display:<%if Conttype1=0 then response.write "none"%>">
					<td width="50%" align="center" class="alt3">修正正文开始标记： 
					<input type="radio" name="CsType1" value="1" <%if cstype1=1 then response.write "checked"%> class="form">包含 
					<input type="radio" name="CsType1" value="0" <%if cstype1=0 then response.write "checked"%> class="form">不包含<br>
					<textarea name="CsString1" cols="30" rows="6" class="form"><%=CsString1%></textarea></td>
					<td width="50%" align="center" class="alt3">修正正文结束标记： 
					<input type="radio" name="CoType1" value="1" <%if cotype1=1 then response.write "checked"%> class="form">包含 
					<input type="radio" name="CoType1" value="0" <%if cotype1=0 then response.write "checked"%> class="form">不包含<br>
					<textarea name="CoString1" cols="30" rows="6" class="form"><%=CoString1%></textarea></td>
				</tr>
				<tr>
					<td width="50%" align="center" class="alt3">获取到的正文类型：&nbsp; 
					</td>
					<td width="50%" class="alt3">
					<input type="radio" value="0" name="ContType2" <%if conttype2=0 then response.write "checked"%> class="form" onclick="Cont2.style.display='none'">纯文字&nbsp; 
					<input type="radio" value="1" name="ContType2" <%if conttype2=1 then response.write "checked"%> class="form" onclick="Cont2.style.display='none'">图文混排&nbsp; 
					<input type="radio" value="2" name="ContType2" <%if conttype2=2 then response.write "checked"%> class="form" onclick="Cont2.style.display=''">TXT 
					文件&nbsp; 
					<input type="radio" value="3" name="ContType2" <%if conttype2=3 then response.write "checked"%> class="form" onclick="Cont2.style.display='none'">单张图片 
					</td>
				</tr>
				<tr id="Cont2" style="display:<%if Conttype2=0 or Conttype2=1 or Conttype2=3 then response.write "none"%>">
					<td width="50%" align="center" class="alt2">TXT文件中正文开始标记： 
					<input type="radio" name="CsType2" value="1" <%if cstype2=1 then response.write "checked"%> class="form">包含 
					<input type="radio" name="CsType2" value="0" <%if cstype2=0 then response.write "checked"%> class="form">不包含<br>
					<textarea name="CsString2" cols="30" rows="6" class="form"><%=CsString2%></textarea></td>
					<td width="50%" align="center" class="alt1">TXT文件中正文结束标记： 
					<input type="radio" name="CoType2" value="1" <%if cotype2=1 then response.write "checked"%> class="form">包含 
					<input type="radio" name="CoType2" value="0" <%if cotype2=0 then response.write "checked"%> class="form">不包含<br>
					<textarea name="CoString2" cols="30" rows="6" class="form"><%=CoString2%></textarea></td>
				</tr>
			</table>
			</td>
		</tr>
		<tr>
			<td colspan="4" align="center" class="alt3">
			<input type="button" name="button1" value="上&nbsp;一&nbsp;步" onclick="window.location.href='javascript:history.go(-1)'" class="button">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
			<input name="ItemID" type="hidden" value="<%=ItemID%>">
			<input name="readType" type="hidden" value="<%=readType%>">
			<input type="submit" name="Submit" value="下&nbsp;一&nbsp;步" class="button"></td>
			<input type="hidden" name="UrlTest" value="<%=UrlTest%>">
			<input type="hidden" name="TitleTest" value="<%=TitleTest%>">
		</tr>
	</table>
</form>
<%end if
end sub

Sub cookse()
cooksString=Request.Form("cooksString")
cookTypes=Request.Form("cookTypes2")
Costype=Request.Form("Costype2")
Cootype=Request.Form("Cootype2")
CosString=Request.Form("CosString2")
CooString=Request.Form("CooString2")
CookType1=Request.Form("CookType3")
Costype1=Request.Form("Costype3")
Cootype1=Request.Form("Cootype3")
CosString1=Request.Form("CosString3")
CooString1=Request.Form("CooString3")

HsType=Request.Form("HsType2")
HoType=Request.Form("HoType2")
HsString=Request.Form("HsString2")
HoString=Request.Form("HoString2")
HUrlType1=Request.Form("HUrlType3")
HsType1=Request.Form("HsType3")
HoType1=Request.Form("HoType3")
HsString1=Request.Form("HsString3")
HoString1=Request.Form("HoString3")
HttpUrlType=Request.Form("HttpUrlType2")
HttpUrlStr=Request.Form("HttpUrlStr2")

TitleTypes=Request.Form("TitleTypes2")
TsType=Request.Form("TsType2")
ToType=Request.Form("ToType2")
TsString=Request.Form("TsString2")
ToString=Request.Form("ToString2")
TitleType1=Request.Form("TitleType3")
TsType1=Request.Form("TsType3")
ToType1=Request.Form("ToType3")
TsString1=Request.Form("TsString3")
ToString1=Request.Form("ToString3")

	if cooksString="" Then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请将分卷区块分割标记填写完整</li>" 
	End if
	If cookTypes="" Then
	   FoundErr=True
	   ErrMsg=ErrMsg & "<br><li>请设置分卷标题类型</li>" 
	Else
	   cookTypes=Clng(cookTypes)
	   If cookTypes=1 Then
	      If cosType="" or cooType="" or cosString="" or cooString="" Then
	         FoundErr=True
	         ErrMsg=ErrMsg & "<br><li>请将分卷标题的开始/结束标记填写完整</li>" 
	      Else
		      if cooktype1="" then
		         FoundErr=True
		         ErrMsg=ErrMsg & "<br><li>请选择是否修正分卷标题</li>"
		      elseif cooktype1=1 then
			      If cosType1="" or cosString1="" or cooType1="" or cooString1="" Then
			         FoundErr=True
			         ErrMsg=ErrMsg & "<br><li>请将修正分卷标题的开始/结束标记填写完整</li>"
			      end if
		      elseif cooktype1=0 then
				else
					FoundErr=True
					ErrMsg=ErrMsg & "<br><li>参数传递错误</li>"
			End If
	      End If
	   ElseIf cookTypes=0 Then
	   Else
	      FoundErr=True
	      ErrMsg=ErrMsg & "<br><li>分卷标题类型参数错误，请从有效链接进入</li>" 
	   End If 
	End If
	
	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>" 
	elseif 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>参数传递错误</li>"
	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>"
	            End  If      
	      End If
	   End If
	End If
	
	If TitleTypes="" Then
	   FoundErr=True
	   ErrMsg=ErrMsg & "<br><li>请设置章节标题类型</li>" 
	Else
	   TitleTypes=Clng(TitleTypes)
	   If TitleTypes=1 Then
	      If TsType="" or TsString="" or ToType="" or ToString="" Then
	         FoundErr=True
	         ErrMsg=ErrMsg & "<br><li>请将章节标题的开始/结束标记填写完整</li>"
	      Else
		      if Titletype1="" then
		         FoundErr=True
		         ErrMsg=ErrMsg & "<br><li>请选择是否修正章节标题</li>"
		      elseif Titletype1=1 then
			      If TsType1="" or TsString1="" or ToType1="" or ToString1="" Then
			         FoundErr=True
			         ErrMsg=ErrMsg & "<br><li>请将修正章节标题的开始/结束标记填写完整</li>"
			      end if
		      end if
	      End If
	   ElseIf TitleTypes=0 Then
	   Else
	      FoundErr=True
	      ErrMsg=ErrMsg & "<br><li>标题类型参数错误，请从有效链接进入</li>" 
	   End If 
	End If


If FoundErr<>True Then
   Sql="Select * from Item Where ItemID=" & ItemID
12345

⌨️ 快捷键说明

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