?? list_large.asp
字號:
<!-- #include file="config.asp" -->
<script language="JavaScript" src="js/OpenWnd.js"></script>
<%
IF session("sw")="" Then session("sw")=1024
sw=session("sw")-44
'response.write sw
'response.end
ID=cint(request("ID"))
IF ID=Empty THEN
ID=1
End If
Set conn=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("aspupload.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="SELECT * from MYIMAGES WHERE id=" & ID
rs.open sqlstr,conn,3,2
imgw=rs("imgw")
If imgw<sw Then sw=imgw
description=rs("description")
areana=rs("areana")
filename=rs("filename")
rs("browno")=rs("browno")+1
rs.update
rs.close
CALL GE_ID
Sub GE_ID
sqlstr="Select * From MYIMAGES Where [use]=0 and [description]='" & description & "' and [areana]='" & areana & "' Order By [ID]"
rs.open sqlstr,conn,3,2
recordcount=rs.recordcount
i=1
Do until rs.EOF
nid=rs("id")
If nid=id Then
If i=recordcount Then
rs.movefirst
N1=rs("id")
Else
rs.MoveNext
N1=rs("id")
End If
Exit Do
End If
i=i+1
rs.moveNext
Loop
rs.close
%>
<HTML>
<HEAD><TITLE><%=description%>__<%=i%>/<%=recordcount%></TITLE>
<META content="text/html; charset=big5" http-equiv=Content-Type>
<link REL="stylesheet" HREF="css/style.css" TYPE="text/css">
<SCRIPT Language="JavaScript">
function fullwin()
{window.open("#","","fullscreen,scrollbars")}
</SCRIPT>
<SCRIPT language=JavaScript type=text/javascript><!--
// Copyright 2001-2004 Digital Dutch (www.digitaldutch.com)
function gotonewpage(what) {
value = what.options[what.selectedIndex].value;
if (value == "") return;
window.location.href = value;
}
var SecondsLeft = 3;
var Running = true;
var ShowStatus = true;
var OldStatus = "";
var NextImagePage = "";
function SetStatusBar(StatusText) {
if ((OldStatus == "") && (ShowStatus == true)){
window.status = StatusText;
}
else {
OldStatus = StatusText;
}
}
function StartSlideShow() {
Running = true;
SetStatusBar("ほ縊?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -