<%
'=================================================
'過程名：ShowPrevPhoto
'作  用：顯示上一張圖片
'參  數(shù)：TitleLen   ----圖片名稱最多字符數(shù)，一個(gè)漢字=兩個(gè)英文字符
'=================================================
sub ShowPrevPhoto(TitleLen)
	dim rsPrev,sqlPrev
	sqlPrev="Select Top 1 * From Desktop  Where  DesktopID<" & rs("DesktopID")& " order by DesktopID DESC"
	Set rsPrev= conn.execute(sqlPrev)
	if TitleLen<0 or TitleLen>255 then TitleLen=50
	if rsPrev.eof then
	  	response.write "#"
	else
		response.write "" & rsPrev("DesktopID")& ""
	end if
	rsPrev.close
	set rsPrev=nothing
end sub


'=================================================
'過程名：ShowNextPhoto
'作  用：顯示下一張圖片
'參  數(shù)：TitleLen   ----圖片名稱最多字符數(shù)，一個(gè)漢字=兩個(gè)英文字符
'=================================================
sub ShowNextPhoto(TitleLen)
	dim rsNext,sqlNext
	sqlNext="Select Top 1 * From Desktop  Where  DesktopID>" & rs("DesktopID")& " order by DesktopID ASC"
	Set rsNext= conn.execute(sqlNext)
	if TitleLen<0 or TitleLen>255 then TitleLen=50
	if rsNext.Eof then
	 	response.write "#"
	else
	  	response.write ""&rsNext("DesktopID")& ""
	end if
	rsNext.close
	set rsNext=nothing
end sub

'=================================================
'過程名：ShowPrevPic
'作  用：顯示上一張圖片
'參  數(shù)：TitleLen   ----圖片名稱最多字符數(shù)，一個(gè)漢字=兩個(gè)英文字符
'=================================================
sub ShowPrevPic(TitleLen)
	dim rsPrev,sqlPrev
	sqlPrev="Select Top 1 * From Desktop  Where  DesktopID<" & rs("DesktopID")& " order by DesktopID DESC"
	Set rsPrev= conn.execute(sqlPrev)
	if TitleLen<0 or TitleLen>255 then TitleLen=50
	if rsPrev.eof then
	  	response.write "#"
	else
		response.write "" & rsPrev("DesktopID")& ""
	end if
	rsPrev.close
	set rsPrev=nothing
end sub


'=================================================
'過程名：ShowNextPic
'作  用：顯示下一張圖片
'參  數(shù)：TitleLen   ----圖片名稱最多字符數(shù)，一個(gè)漢字=兩個(gè)英文字符
'=================================================
sub ShowNextPic(TitleLen)
	dim rsNext,sqlNext
	sqlNext="Select Top 1 * From Desktop  Where  DesktopID>" & rs("DesktopID")& " order by DesktopID ASC"
	Set rsNext= conn.execute(sqlNext)
	if TitleLen<0 or TitleLen>255 then TitleLen=50
	if rsNext.Eof then
	 	response.write "#"
	else
	  	response.write ""&rsNext("DesktopID")& ""
	end if
	rsNext.close
	set rsNext=nothing
end sub

%>

<%
if SystemWeb<>"1" then
response.write("<script>alert('本站暫時(shí)關(guān)閉!');javascript:window.close()</script>")
response.end
end if
%>