?? function.asp
字號(hào):
<%
'=================================================
'過程名: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
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -