📄 photolist.asp
字号:
<!--#include File="../conndb.asp"-->
<!--#include File="../class/PhotoType.asp"-->
<!--#include File="../class/Photo.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>照片信息</title>
<link rel="stylesheet" href="../style.css">
</head>
`
<script language="JavaScript">
function newWin(url) {
var wth=window.screen.width;
var hth=window.screen.heigth;
var lefth,topth;
if(wth==1024)
{
hth=200;
lefth =212;
wth=600;
topth=135;
}
else if(wth==800)
{
hth=200;
lefth =100;
wth=600;
topth=50;
}
if(wth==6400)
hth=200
var oth="toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left="+lefth+",top="+topth;
oth = oth+",width="+wth+",height="+hth ;
var newtype=window.open(url,"newtype",oth);
newtype.focus();
return false;
}
</script>
<body link="#000080" vlink="#080080">
<form id="form1" name="form1" method="POST">
<%
Dim TypeId
set obj = new PhotoType
TypeId = Request.QueryString("TypeId")
obj.GetPhotoTypeInfo(TypeId)
%>
<p align='center'><font style="FONT-SIZE: 12pt"><b><%=obj.pTypeName%></b></font></p>
<center>
<table border="0" cellspacing="0" width="90%" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF" style='FONT-SIZE: 9pt'>
<%
' 读取所有指定分类的照片
set objPhoto = new Photo
objPhoto.GetPhotolist(TypeId)
i = 0
If objPhoto.rs.EOF Then
Response.Write "<tr><td colspan=3 align=center><font style='COLOR:Red'>目前还没有记录。</font></td></tr></table>"
Else
Do While Not objPhoto.rs.EOF
If i mod 5 = 0 Then
%>
<tr>
<% End If %>
<td width="20%" align="center"><a href=# onClick=" return newWin('PhotoView.asp?imgurl=../Photo/<%=objPhoto.rs("Url")%>&pid=<%=objPhoto.rs("Id")%>')"><img src=../Photo/<%=objPhoto.rs("Url")%> width="80" height="80"></img></a>
<br> 浏览次数:<%=objPhoto.rs("ViewCount")%> <br>
<% If Session("UserType")=1 Then %>
<a href=# onClick=" return newWin('PhotoDelt.asp?pid=<%=objPhoto.rs("Id")%>')">删除</a><br>
<% End If %>
</td>
<% If i mod 5 = 5 Then %>
</tr>
<% End If %>
<%
i = i+1
objPhoto.rs.MoveNext()
Loop
%>
</table>
<p align="center">
<% End If %>
<BR> <input type="button" value="添加照片" onClick="newWin('PhotoUpload.asp?TypeId=<%=TypeId%>')">
</form>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -