admin_itemdownbooks.asp

小说站源代码文件

<!-- #include file="../conn.asp" -->
<!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" -->
<%
act = Request("act")

if act = "getbook" then
makelookjt = Request("makelookhtml")
If makelookjt="" or makelookjt=null Then
	makelookjt=0
end if
makereadjt = Request("makereadhtml")
If makereadjt="" or makereadjt=null Then
	makereadjt=0
end if
makeviewjt = Request("makeviewhtml")
If makeviewjt="" or makeviewjt=null Then
	makeviewjt=0
end if
makecookjt = Request("makecookhtml")
If makecookjt="" or makecookjt=null Then
	makecookjt=0
end if
makeallpjt = Request("makeallphtml")
If makeallpjt="" or makeallpjt=null Then
	makeallpjt=0
end if

makebookHTML=makelookjt&","&makereadjt&","&makeviewjt&","&makecookjt&","&makeallpjt

Fastbook = Request("Fastbook")
If Fastbook="" or Fastbook=null Then
	Fastbook=0
end if
ItemID = Request("ItemID")
If ItemID="" Then
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>ItemID参数错误，请从有效链接进入</li>"
Else
   ItemID=Clng(ItemID)
End If
loadtype = Request("loadtype")
If loadtype="" Then
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>请填写完整信息</li>"
Elseif loadtype=1 then
	listedID = Request("listedID")
	If listedID="" Then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请填写完整信息</li>"
	else
		listedID=replace(replace(listedID,chr(10),""),chr(13),"|")
		arrBookList = Split(listedID,"|")
		idTotal=UBound(arrBookList)+1
	End If
Elseif loadtype=2 then
	listedUrl = Request("listedUrl")
	ListPaing = Request("ListPaing")
	ListPaings = Request("ListPaings")
	If listedUrl="" Then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请填写完整信息</li>"
	else
		Set Rs=server.CreateObject("adodb.recordset")
		Sql="Select Islisted,Islisted1,ShowType,EquivType,listedUrl,ListPaingsString,ListPaingoString,ListedsType,ListedoType,listedsString,listedoString,ListedType1,ListedsType1,ListedoType1,listedsString1,listedoString1,ListPaingType,LPsType,LPoType,LPsString,LPoString,LPUrlType,ListPaingStr from [Item] Where ItemID=" & ItemID
		Rs.Open Sql,ConnItem,1,1
		If Rs.Eof And Rs.Bof Then
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>参数错误，数据未找到！</li>"
		Else
			Islisted=Rs("Islisted")
			Islisted1=Rs("Islisted1")
			ShowType=Rs("ShowType")
			EquivType=Rs("EquivType")
'			listedUrl=Rs("listedUrl")
			ListPaingsString=Rs("ListPaingsString")
			ListPaingoString=Rs("ListPaingoString")
			listedsType=Rs("listedsType")
			listedoType=Rs("listedoType")
			listedsString=Rs("listedsString")
			listedoString=Rs("listedoString")
			listedType1=Rs("listedType1")
			listedsType1=Rs("listedsType1")
			listedoType1=Rs("listedoType1")
			listedsString1=Rs("listedsString1")
			listedoString1=Rs("listedoString1")
			ListPaingType=Rs("ListPaingType")
			LPsType=Rs("LPsType")
			LPsString=Rs("LPsString")
			LPoType=Rs("LPoType")
			LPoString=Rs("LPoString")
			LPUrlType=Rs("LPUrlType")
			ListPaingStr=Rs("ListPaingStr")
		End If
		Rs.Close
		Set Rs=Nothing
		if Islisted<>0 then
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>Islisted参数错误！</li>"
		else
			if Islisted1<>1 then
				FoundErr=True
				ErrMsg=ErrMsg & "<br><li>Islisted1参数错误！</li>"
			else
				ListCode=GetHttpPage(listedUrl,EquivType)
				If ListCode<>"$False$" Then
					ListCode=GetBody(ListCode,ListPaingsString,ListPaingoString,True,True)
					If ListCode<>"$False$" Then
						if listedsType=1 then
							listedsType=true
						elseif listedsType=0 then
							listedsType=False
						end if
						if ListedoType=1 then
							ListedoType=true
						elseif ListedoType=0 then
							ListedoType=False
						end if
						listedID=GetArray(ListCode,listedsString,listedoString,listedsType,ListedoType)
						If listedID<>"$False$" Then
							listedIDArray=Split(listedID,"$Array$")
							For Testi=0 To Ubound(listedIDArray)
								If listedType1=1 Then
									if listedsType1=1 then
										listedsType1=true
									elseif listedsType1=0 then
										listedsType1=False
									end if
									if ListedoType1=1 then
										ListedoType1=true
									elseif ListedoType1=0 then
										ListedoType1=False
									end if
									listedIDArray(Testi)=GetBody(listedIDArray(Testi),listedsString1,listedoString1,listedsType1,ListedoType1)
									If listedIDArray(Testi)="$False$" Then
										FoundErr=True
										ErrMsg=ErrMsg & "<br><li>在修正测试作品ID/Url时出错。</li>"
									End if
								End if
								if IsNumeric(listedIDArray(Testi))=false then
									FoundErr=True
									ErrMsg=ErrMsg & "<br><li>截取到的作品ID不是标准数字格式,请检查.</li>"
								End If
							Next
							listedID=replace(listedID,"$Array$","|")
							arrBookList = Split(listedID,"|")
							idTotal=UBound(arrBookList)
						Else
							FoundErr=True
							ErrMsg=ErrMsg & "<br><li>在获取测试作品ID/Url时出错。</li>"
						End If
						If ListPaingType=1  Then
							if ListPaings<>"" then
								if ListPaing<>"" then
									if ListPaings-ListPaing<=0 then
										if LPsType=1 then
											LPsType=true
										elseif LPsType=0 then
											LPsType=False
										end if
										if LPoType=1 then
											LPoType=true
										elseif LPoType=0 then
											LPoType=False
										end if
										ListPaingNext=GetPaing(ListCode,LPsString,LPoString,LPsType,LPoType)
										If ListPaingNext<>"$False$"  Then
											If LPUrlType=1  Then  
												ListPaingNext=Replace(ListPaingStr,"{$ID$}",ListPaingNext)
											ElseIf LPUrlType=0  Then
												ListPaingNext=DefiniteUrl(ListPaingNext,listedUrl)
											End  If
										Else
											FoundErr=True
											ErrMsg=ErrMsg & "<br><li>在获取测试作品列表页面下一页时出错。</li>"
										End  If
									else
										ListPaingend="end"
									end if
								else
									if LPsType=1 then
										LPsType=true
									elseif LPsType=0 then
										LPsType=False
									end if
									if LPoType=1 then
										LPoType=true
									elseif LPoType=0 then
										LPoType=False
									end if
										ListPaingNext=GetPaing(ListCode,LPsString,LPoString,LPsType,LPoType)
									If ListPaingNext<>"$False$"  Then
										If LPUrlType=1  Then  
											ListPaingNext=Replace(ListPaingStr,"{$ID$}",ListPaingNext)
										ElseIf LPUrlType=0  Then
											ListPaingNext=DefiniteUrl(ListPaingNext,listedUrl)
										End  If
									Else
										FoundErr=True
										ErrMsg=ErrMsg & "<br><li>在获取测试作品列表页面下一页时出错。</li>"
									End  If
								End  If
							Else
								ListPaings=1
								ListPaingend="end"
							End If
						End If
					Else
						FoundErr=True
						ErrMsg=ErrMsg & "<br><li>在截取测试作品列表页面时出错。</li>"
					End If
				Else
					FoundErr=True
					ErrMsg=ErrMsg & "<br><li>在获取测试作品列表页面时出错。</li>"
				End If
			end if
		end if
	End If
Elseif loadtype=3 then
	listedUrl = replace(Request("listedUrl"),"|＆|","&")
	zidingyi = Request("zidingyi")
	ListPaing = Request("ListPaing")
	ListPaings = Request("ListPaings")
	If listedUrl="" Then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请填写完整信息</li>"
	else
		Set Rs=server.CreateObject("adodb.recordset")
		Sql="Select Islisted,Islisted1,ShowType,EquivType,listedUrl,ListPaingsString,ListPaingoString,ListedsType,ListedoType,listedsString,listedoString,ListedType1,ListedsType1,ListedoType1,listedsString1,listedoString1,ListPaingType,LPsType,LPoType,LPsString,LPoString,LPUrlType,ListPaingStr from [Item] Where ItemID=" & ItemID
		Rs.Open Sql,ConnItem,1,1
		If Rs.Eof And Rs.Bof Then
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>参数错误，数据未找到！</li>"
		Else
			Islisted=Rs("Islisted")
			Islisted1=Rs("Islisted1")
			ShowType=Rs("ShowType")
			EquivType=Rs("EquivType")
'			listedUrl=Rs("listedUrl")
			ListPaingsString=Rs("ListPaingsString")
			ListPaingoString=Rs("ListPaingoString")
			listedsType=Rs("listedsType")
			listedoType=Rs("listedoType")
			listedsString=Rs("listedsString")
			listedoString=Rs("listedoString")
			listedType1=Rs("listedType1")
			listedsType1=Rs("listedsType1")
			listedoType1=Rs("listedoType1")
			listedsString1=Rs("listedsString1")
			listedoString1=Rs("listedoString1")
			ListPaingType=Rs("ListPaingType")
			LPsType=Rs("LPsType")
			LPsString=Rs("LPsString")
			LPoType=Rs("LPoType")
			LPoString=Rs("LPoString")
			LPUrlType=Rs("LPUrlType")
			ListPaingStr=Rs("ListPaingStr")
		End If
		Rs.Close
		Set Rs=Nothing
		if Islisted=1 then
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>Islisted参数错误！</li>"
		else
			if Islisted1<>1 then
				FoundErr=True
				ErrMsg=ErrMsg & "<br><li>Islisted1参数错误！</li>"
			else
				if ListPaingType=2 then
					if ListPaing="" then
						FoundErr=True
						ErrMsg=ErrMsg & "<br><li>你需要填写起始页码！</li>"
					Else
						if ListPaings="" then
							FoundErr=True
							ErrMsg=ErrMsg & "<br><li>你需要填写结束页码！</li>"
						Else
						if ListPaings<ListPaing then
							FoundErr=True
							ErrMsg=ErrMsg & "<br><li>结束页码小于开始页码？！</li>"
						Else
							listedUrl=Replace(ListPaingStr,"{$ID$}",ListPaing)
							ListCode=GetHttpPage(listedUrl,EquivType)
							If ListCode<>"$False$" Then
								ListCode=GetBody(ListCode,ListPaingsString,ListPaingoString,True,True)
								If ListCode<>"$False$" Then
									if listedsType=1 then
										listedsType=true
									elseif listedsType=0 then
										listedsType=False
									end if
									if ListedoType=1 then
										ListedoType=true
									elseif ListedoType=0 then
										ListedoType=False
									end if
									listedID=GetArray(ListCode,listedsString,listedoString,listedsType,ListedoType)
									If listedID<>"$False$" Then
										listedIDArray=Split(listedID,"$Array$")
										For Testi=0 To Ubound(listedIDArray)
											If listedType1=1 Then
												if listedsType1=1 then
													listedsType1=true
												elseif listedsType1=0 then
													listedsType1=False
												end if
												if ListedoType1=1 then
													ListedoType1=true
												elseif ListedoType1=0 then
													ListedoType1=False
												end if
												listedIDArray(Testi)=GetBody(listedIDArray(Testi),listedsString1,listedoString1,listedsType1,ListedoType1)
												If listedIDArray(Testi)="$False$" Then
													FoundErr=True
													ErrMsg=ErrMsg & "<br><li>在修正测试作品ID/Url时出错。</li>"
												End if