📄 display.asp
字号:
<html>
<head>
<%
dim classname,typeid,typename
if IsNumeric(Request.QueryString("id"))=False then
Response.Redirect"info.asp?info=错误的参数"
else
'id=cint(Request.QueryString("id"))
id=Request.QueryString("id")
end if
dim db,wConn,myconn,rso
db="plugin/windsphoto/data/winds.mdb"
Set wConn = Server.CreateObject("ADODB.Connection")
myconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
wConn.Open MyConn
set temprs=wConn.execute("select zhuanti,name,imgh,imgw from desktop where hot=0 and id="&id)
if temprs.eof or temprs.bof then
response.write "<title>该图片并不存在！</title>提示：您查看的图片并不存在！<br>1，请确认您输入了一个正确的网址<br>2，请确认您是通过点击了一个正确的链接打开的本页面"
response.end
end if
typeid=temprs(0)
name=temprs(1)
set temprs=nothing
set temprs=wConn.execute("select name,pass from zhuanti where id="&typeid)
typename=temprs(0)
ps=temprs(1)
set temprs=nothing
pss=Request.cookies("'"&typeid&"'")
if len(ps)<>0 then
if pss<>ps then
Response.Write"<span style='color:#808000;font-size:14px;'>该相册是一个非共享文件夹,请提供查看通行证：</span><form name='form' method='post' action='pass.asp?typeid="&typeid&"'><input type='password' name='pase' size='15'><input type='submit' name='Submit' value='确定'></form>"
%>
<%
response.end
end if
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<html>
<head>
<title><%=typename%> >> <%=name%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
.mypoco_tbl1 {
}
.mypoco_tbl1 TH {
background-color:#D7DEE6;
color: #014E82;
padding-top:0px;
vertical-align:top;
}
body {
margin: 0;
padding: 0;
border: 0;
cursor: url(images/mouse.cur);
background: #738BA7 url(images/dbg_line.png) repeat-x top;
font: 12px/1.3 "Times New Roman", Times, serif;
color: #30518F;
word-break:break-all;
}
td {
font-size: 9pt;
font-family: "宋体";
color: #000033;
line-height: 19px;
}
input { font-family: Arial, Helvetica, sans-serif; font-size: 9pt}
.title1 {
font-size: 14px;
font-weight: bold;
text-align: left;
color: #0068B3;
margin: 5px 0 0
10px;
height:20px;
filter:progid:DXImageTransform.Microsoft.DropShadow(color=#E5F7FE,offX=1,offY=1,positives=false);
}
a:link,a:visited {
color: #30518F;
text-decoration: none;
}
a:hover {
color: #000;
text-decoration: none;
}
</style>
</head>
<body>
<table border="0" align="center" cellpadding="8" cellspacing="0">
<tr>
<td>
<%
sql = "SELECT * FROM desktop where id="&id
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,wConn,1,3
rs("ck")=rs("ck")+1
rs.update
dim z
z=rs("zhuanti")
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='5' align='center'><tr><td align='center'><table align=center bgcolor='#ffffff' border=0 cellpadding=5 cellspacing=0 class='bk1'><tbody><td><!--<a href='javascript:window.close()' ><img src='plugin/windsphoto/"&rs("url")&"' align='center' border='0'> </a>--><img src='plugin/windsphoto/"&rs("url")&"' align='center' border='0'> </td></tbody></table></td></tr></table>"
Response.Write"<table border='0' cellspacing='0' cellpadding='3' class='bk' align='center'><tr><td class='z' align='center'><font size=2 color=#FFFFFF>图片尺寸:"&rs("imgw")&" X "&rs("imgh")&" 图片大小:"&rs("filesize")&" B 上传时间:"&rs("time")&" </font> "
Response.Write"</td></tr></table>"
if rs("jj")<>"" then
%>
<table cellSpacing="1" cellPadding="0" align="center" bgColor="#e1e1e1" border="0" width="600">
<tr>
<td bgColor="#ffffff">
<table cellSpacing="1" cellPadding="0" bgColor="#d7d7d7" border="0" width="100%" >
<tr>
<td bgColor="#ffffff">
<table cellSpacing="1" cellPadding="0" bgColor="#b2b2b2" border="0" width="100%">
<tr>
<td bgColor="#ffffff">
<table cellSpacing="0" cellPadding="8" width="100%" border="0" >
<tr>
<td>
<font size=2><%=rs("jj")%></font>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<%
end if
rs.close
Set rs=Nothing
%>
<hr size="1" width="95%">
<p align="center" valign="center"><%
set rs1=server.CreateObject("Adodb.recordset")
sql1="select top 1 ID from desktop where hot=0 and zhuanti="&z&" and ID<"&id&" order by id desc"
rs1.open sql1,wConn,1,1
if not rs1.bof then
Response.Write("<a href=display.asp?id="&rs1("id")&" title=查看本相册上一张图片><img src='plugin/windsphoto/images/f.gif' align='center' border='0'></a> ")
else
Response.Write("<a href=# title=此图片是本相册第一张图片><img src='plugin/windsphoto/images/end.gif' align='center' border='0'></a> ")
end if
rs1.close
Set rso=Server.CreateObject("ADODB.RecordSet")
sql="select count(*) as C from desktop where hot=0 and zhuanti="&z&" and ID<"&id
rso.open sql,wConn,3,3
sm=rso("c")+1
rso.close
set rso=nothing
Set rsp=Server.CreateObject("ADODB.RecordSet")
sql="select count(*) as C from desktop where hot=0 and zhuanti="&z
rsp.open sql,wConn,3,3
smm=rsp("c")
rsp.close
set rsp=nothing
response.write "第 "&sm
response.write "/"&smm&" 张 "
'sql1="select ID from desktop where zhuanti="&z&" and hot=0 and ID="&id+1
sql1="select top 1 ID from desktop where zhuanti="&z&" and hot=0 and ID>"&id&" order by id asc"
'response.write sql1
'response.end
rs1.open sql1,wConn,1,1
if not rs1.bof then
Response.Write("<a href=display.asp?id="&rs1("id")&" title=查看本相册下一张图片><img src='plugin/windsphoto/images/n.gif' align='center' border='0'></a>")
else
Response.Write("<a href=# title=此图片是本相册最后一张图片><img src='plugin/windsphoto/images/end.gif' align='center' border='0'></a> ")
end if
rs1.close
set rs1=nothing
%>
<%
wConn.close
Set conn=Nothing
%></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -