function.asp

来自「这个是一个<图片系统>,但是又是不能用的..所以..上传上来..等你」· ASP 代码 · 共 87 行

<%
'=================================================
'过程名：ShowPrevPhoto
'作  用：显示上一张图片
'参  数：TitleLen   ----图片名称最多字符数，一个汉字=两个英文字符
'=================================================
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
'作  用：显示下一张图片
'参  数：TitleLen   ----图片名称最多字符数，一个汉字=两个英文字符
'=================================================
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
'作  用：显示上一张图片
'参  数：TitleLen   ----图片名称最多字符数，一个汉字=两个英文字符
'=================================================
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
'作  用：显示下一张图片
'参  数：TitleLen   ----图片名称最多字符数，一个汉字=两个英文字符
'=================================================
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('本站暂时关闭!');javascript:window.close()</script>")
response.end
end if
%>