?? admin_itemsdownsnovel.asp

?? 本人僅業(yè)余學(xué)習(xí)一些基礎(chǔ)的ASP知識以供系統(tǒng)設(shè)計(jì)之用,并非專業(yè)人員,相關(guān)服務(wù)器設(shè)置、MSSQL/MySQL數(shù)據(jù)庫方面的專業(yè)問題請自行解決。本人僅提供本系統(tǒng)相關(guān)的一些技術(shù)問題的解釋、解答。
?? ASP
字號:
<!-- #include file="../conn.asp" -->
<!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" -->
<%
act = Request("act")

if act = "getbook" then
makebookHTML = Request("makebookHTML")
If makebookHTML="" or makebookHTML=null Then
	makebookHTML=0
end if
Fastbook = Request("Fastbook")
If Fastbook="" or Fastbook=null Then
	Fastbook=0
end if
flushbook = Request("flushbook")
If flushbook="" or flushbook=null Then
	flushbook=0
end if
lostbook = Request("lostbook")
If lostbook="" or lostbook=null Then
	lostbook=0
end if

ItemID = Request("ItemID")
If ItemID="" Then
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>ItemID參數(shù)錯誤，請從有效鏈接進(jìn)入</li>"
Else
   ItemID=Clng(ItemID)
End If

If FoundErr=True Then
	call WriteErrMsg(ErrMsg)
Else
	startid = request("startid")
	endid = request("endid")
	If startid="" or endid="" Then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>請?zhí)顚懲暾畔?lt;/li>"
	else
		if endid-startid<0 then
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>未指定有效的作品編號!</li>"
		else
			for i = startid  to endid
				if listedID<>"" then
					listedID=listedID&"|"&i
				else
					listedID=i
				end if
			Next
			idTotal=endid-startid+1
		end if
	end if
	If FoundErr=True Then
		call WriteErrMsg(ErrMsg)
	Else
		response.write "<SCRIPT language=JavaScript>if(!confirm('"
		response.write "\n你選擇的是按照ID范圍采集　　　 \n"
		response.write "\n根據(jù)填寫范圍，接下來將要采集"&idTotal&"部作品　　　 \n"
		if idTotal>99 and idTotal<500 then
			response.write "\n你填寫的范圍大，采集"&idTotal&"部作品需要的時間比較長　　　 \n"
			response.write "\n且容易造成采集系統(tǒng)停止響應(yīng)，你確定繼續(xù)嗎？　　　 \n"
		elseif idTotal>500 and idTotal<1000 then
			response.write "\n你填寫的范圍稍大，采集"&idTotal&"部作品需要的時間很長　　　 \n"
			response.write "\n且很易造成采集系統(tǒng)停止響應(yīng)，建議返回重新設(shè)置，你確定繼續(xù)嗎？　　　 \n"
		elseif idTotal>1000 and idTotal<10000 then
			response.write "\n你填寫的范圍很大，采集"&idTotal&"部作品需要的時間非常長　　　 \n"
			response.write "\n且極易造成采集系統(tǒng)停止響應(yīng)，建議返回重新設(shè)置，你確定繼續(xù)嗎？　　　 \n"
		elseif idTotal>10000 then
			response.write "\n你填寫的范圍過大，采集"&idTotal&"部作品需要的時間無法估量　　　 \n"
			response.write "\n且必然造成采集系統(tǒng)停止響應(yīng)，建議返回重新設(shè)置，你確定繼續(xù)嗎？　　　 \n"
		end if
		response.write "\n點(diǎn)擊 [ 確定 ] 繼續(xù),點(diǎn)擊 [ 取消 ] 返回　　　 \n"
		response.write "')){history.back(-1);}else{}</SCRIPT>"
		response.Write "<meta http-equiv='refresh' content='1;URL=Admin_Itemsloadsnovel.asp?listedID="&listedID&"&makebookHTML="&makebookHTML&"&lostbook="&lostbook&"&Fastbook="&Fastbook&"&flushbook="&flushbook&"&ItemID="&ItemID&"'>"
		response.End
	end if
End If

else
%>
<html>

<title>終點(diǎn)小說連載系統(tǒng)_定制批量采集系統(tǒng)</title>
<link href="css.css" rel="stylesheet" type="text/css">
<body>

<script language="javascript">
function checkstatu(frm)
	{
		if (frm.lostbook.checked == true)
        	if (!confirm("按照保存的最后采集參數(shù)向后采集，將照保存的最后采集參數(shù)向后采集,不再逐章檢查。\n\n"))
        	{frm.lostbook.checked=false;}
	}
function checkstatus(frm)
	{
		if (frm.flushbook.checked == true)
        	if (!confirm("強(qiáng)制更新章節(jié)內(nèi)容，將把所有的章節(jié)內(nèi)容重新采集并更新，請慎重考慮。\n\n"))
        	{frm.flushbook.checked=false;}
	}
function checkstatuss(frm)
	{
		if (frm.Fastbook.checked == true)
        	if (!confirm("快速批量采集作品，不采集章節(jié)內(nèi)容直接調(diào)用采集站內(nèi)容，請慎重考慮。\n\n"))
        	{frm.Fastbook.checked=false;}
	}
function checkstatuse(frm)
	{
		if (frm.makebookHTML.checked == true)
        	if (!confirm("自動生成HTML頁面，在采集的同時生成HTML靜態(tài)頁面\n\n請慎重考慮此操作將占用更多的系統(tǒng)資源。\n\n"))
        	{frm.makebookHTML.checked=false;}
	}
</script>
<div id="topmomo">
	長篇采集系統(tǒng)項(xiàng)目管理</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> | <a href="Admin_ItemAddNew.asp">添加新項(xiàng)目</a> | <a href="Admin_ItemManages.asp">批量更新作品</a></td>
  </tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder" style="LINE-HEIGHT: 150%">
	<tr>
		<td height="30" align="center" valign="middle" class="thead" colspan="2">全自動批量更新作品(按照ID范圍<u><font color="#FFE1FF" style="font-size: 11pt" face="楷體_GB2312">不可停止</font></u>版)</td>
	</tr>
	<tr>
		<td height="26" align="center" valign="middle" class="tcat" colspan="2">
		此操作將自動更新指定范圍內(nèi)的作品如果作品不存在則自動跳過,
		此操作大量占用系統(tǒng)資源每次填寫范圍請不要過大</td>
	</tr>
	<form method="post" action="">
		<tr>
			<td width="30%" height="26" align=right class=alt2>請選擇服務(wù)器：</td>
			<td width="70%" class=alt1>
			<select name="ItemID" class="form" onchange="window.open('Admin_ItemsDownsnovel.asp?ItemID='+this.options[this.selectedIndex].value,'_self')">
<%Set Rs=server.createobject("adodb.recordset")         
Sql="select ItemID,WebUrl,WebName from [Item] where Islisted<>2 order by ItemID"         
Rs.open Sql,ConnItem,1,1

if Rs.Eof then%>
			<option value="0">暫無可用站點(diǎn)以供采集</option>

<%else
Do While Not Rs.Eof%>
			<option value="<%=rs("ItemID")%>"<%if Request.QueryString("ItemID")=cstr(rs("ItemID")) then response.write(" selected") end if%>><%=rs("WebName")%>　<%=rs("WebUrl")%></option>
<%rs.MoveNext
Loop
end if
rs.close
set rs=nothing
%></select><br>
			</td>
		</tr>
<%Set Rs=server.createobject("adodb.recordset")         
if Request.QueryString("ItemID")<>"" then
	Sql="select Islisted,Islisted1,listedUrl,ListPaingType from [Item] where Islisted<>2 and ItemID="&request.querystring("ItemID")         
Else
	Sql="select Islisted,Islisted1,listedUrl,ListPaingType from [Item] where Islisted<>2 order by ItemID"
End If
Rs.open Sql,ConnItem,1,1

if not(Rs.Eof) then
	if rs("Islisted")=0 then%>
		<tr>
			<td width="30%" height="26" align=right class=alt2>采集方式：</td>
			<td width="70%" class=alt1>按照ID范圍<br>
			<a href="admin_ItemsDownsbook.asp?ItemID=<%=Request.QueryString("ItemID")%>">點(diǎn)此進(jìn)入按照ID范圍更新<font color="#FF0000" style="font-size: 11pt" face="楷體_GB2312">可停止</font>版進(jìn)行更新采集</a> 
			</td>
		</tr>
		<tr>
			<td colspan="4">
			<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0650D2" bordercolordark="#FFFFFF" bgcolor="#D9D9D9">
				<tr>
					<td width="30%" height="26" align=right class=alt2>目標(biāo)站作品起始編號：</td>
					<td width="70%" class=alt1>
					<input type="text" name="startid" size="17" class="form"><br>
					</td>
				</tr>
				<tr>
					<td width="30%" height="26" align=right class=alt2>目標(biāo)站作品結(jié)束編號：</td>
					<td width="70%" class=alt1>
					<input type="text" name="endid" size="17" class="form"><br>
					</td>
				</tr>
			</table>
			</td>
		</tr>
	<%elseif rs("Islisted")=1 then%>
		<tr>
			<td width="30%" height="26" align=right class=alt2>采集方式：</td>
			<td width="70%" class=alt1>按照ID范圍<br>
			<a href="admin_ItemsDownsbook.asp?ItemID=<%=Request.QueryString("ItemID")%>">點(diǎn)此進(jìn)入按照ID范圍更新<font color="#FF0000" style="font-size: 11pt" face="楷體_GB2312">可停止</font>版進(jìn)行更新采集</a> 
			</td>
		</tr>
		<tr id="loadtype1" style="display:">
			<td colspan="4">
			<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0650D2" bordercolordark="#FFFFFF" bgcolor="#D9D9D9">
				<tr>
					<td width="30%" height="26" align=right class=alt2>目標(biāo)站作品起始編號：</td>
					<td width="70%" class=alt1>
					<input type="text" id="startid" size="17" class="form"><br>
					</td>
				</tr>
				<tr>
					<td width="30%" height="26" align=right class=alt2>目標(biāo)站作品結(jié)束編號：</td>
					<td width="70%" class=alt1>
					<input type="text" id="endid" size="17" class="form"><br>
					</td>
				</tr>
			</table>
			</td>
		</tr>
	<%elseif rs("Islisted")=2 then%>
		<tr>
			<td width="30%" height="26" align=right class=alt2>采集方式：</td>
			<td width="70%" class=alt1>按照Url列表(從頁面獲取)</td>
		</tr>
		<tr id="loadtype3">
			<td height="26" align="center" colspan="2" class=alt1>
			<font color="#FF0000">當(dāng)前采集方式不可用</font></td>
		</tr>
<%End If
End If
rs.close
set rs=nothing
%>
		<tr>
			<td width="30%" height="26" align="right" class="alt2">按照保存的最后采集參數(shù)向后采集：</td>
			<td width="70%" class="alt1">
			<input type="checkbox" name="lostbook" onclick="checkstatu(this.form)" value="1" class="form"><br>
			選擇本功能將按照保存的最后采集參數(shù)向后采集,不再逐章檢查判斷是否存在新章節(jié) <br>
			可以節(jié)約采集時間,節(jié)省采集資源.部分采集站不支持該功能(從目錄中獲取分卷ID的站點(diǎn)等)</td>
		</tr>
		<tr>
			<td width="30%" height="26" align=right class=alt2>強(qiáng)制更新章節(jié)內(nèi)容：</td>
			<td width="70%" class=alt1>
			<input type="checkbox" name="flushbook" onclick="checkstatus(this.form)" value="1" class="form"><br>
			選擇本功能將把所有的章節(jié)內(nèi)容重新采集并更新</td>
		</tr>
		<tr>
			<td width=30% class=alt2 height="26" align="right">快速批量采集作品：</td>
			<td width="70%" class=alt1>
			<input type="checkbox" name="Fastbook" onclick="checkstatus(this.form)" value="1" class="form"><br>選擇本功能將在采集進(jìn)行中不采集章節(jié)內(nèi)容直接調(diào)用采集站內(nèi)容
			<br>完成后可以選擇<a href="admin_Itemloadview.asp"><font color="#FF0000">批量采集作品章節(jié)內(nèi)容</font></a>完整采集作品</td>
		</tr>
		<tr>
			<td width=30% class=alt2 height="26" align="right">自動生成HTML頁面：</td>
			<td width="70%" class=alt1>
			<input type="checkbox" name="makebookHTML" onclick="checkstatuss(this.form)" value="1" class="form"><br>
			選擇本功能將在采集的同時生成HTML靜態(tài)頁面，但會占用更多的系統(tǒng)資源</td>
		</tr>
		<tr>
			<td height="30" align="center" colspan="2" class=alt3>
			<input type="hidden" name="act" value="getbook" id="act" size="20">
			<input type="submit" value="開始采集" name="B1" class="button">&nbsp;&nbsp;&nbsp;&nbsp;
			<input type="reset" value="重置設(shè)定" name="B2" class="button"> </td>
		</tr>
	</form>
</table>

</body>

</html>
<%end if%>
?? 文件大小 542 K
?? 上傳用戶 foreverlovely
?? 所屬分類 Internet/網(wǎng)絡(luò)編程
??? 相關(guān)標(biāo)簽

#MSSQL #MySQL #ASP #系統(tǒng)設(shè)計(jì)
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? admin_itemsdownsnovel.asp

?? 快捷鍵說明
