📄 showpic.asp
字号:
<td width="38%" height="15"></td>
<td width="62%" height="15"></td>
</tr>
<tr>
<td width="38%" height="21">校园风光:</td>
<td width="62%" height="21"><font color="#FF0000"><%=allphotoes("校园风光")%></font>
张</td>
</tr>
<tr>
<td width="38%" height="13"></td>
<td width="62%" height="13"></td>
</tr>
<tr>
<td width="38%" height="19">同学合影:</td>
<td width="62%" height="19"><font color="#FF0000"><%=allphotoes("同学合影")%></font>
张</td>
</tr>
<tr>
<td width="38%" height="16"></td>
<td width="62%" height="16"></td>
</tr>
<tr>
<td width="38%" height="18">自我风采:</td>
<td width="62%" height="18"><font color="#FF0000"><%=allphotoes("个人照片")%></font>
张</td>
</tr>
<tr>
<td width="38%" height="15"></td>
<td width="62%" height="15"></td>
</tr>
<tr>
<td width="38%" height="18">其他相片:</td>
<td width="62%" height="18"><font color="#FF0000"><%=allphotoes("其它照片")%></font>
张</td>
</tr>
<tr>
<td width="38%" height="15"></td>
<td width="62%" height="15"></td>
</tr>
<tr>
<td width="38%" height="18"> </td>
<td width="62%" height="18"><font color="#FF0000"> </font></td>
</tr>
</table></td>
</tr>
</table></td>
<td valign="top" background="images/index_r7_c5.gif"><img name="index_r7_c5" src="images/index_r7_c5.gif" width="5" height="553" border="0" alt=""></td>
<td colspan="8" valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" class="unnamed1">
<tr>
<td colspan="2"><span lang="zh-cn">
<%dim rs,sql
set rs=server.createobject("adodb.recordset")
if keytype="all" then
sql="select classpic.*,txluser.truename from [classpic],[txluser] where txluser.userid=classpic.name order by picid desc"
else
sql="select classpic.*,txluser.truename from [classpic],[txluser] where txluser.userid=classpic.name and classpic.type='"&keytype&"' order by picid desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
目前没有相片<a href="#" onClick="window.open('addpic.asp','ToseePlay','top=0,scrollbars=1,resizable=1,height=420,width=470,left='+(screen.width-650)/2);return false;">上传照片</a>
<%
else
Rs.Pagesize =40
Pageno = CLng(Request("page")) '取得用page信息，并处理
If Pageno < 1 Then Pageno = 1
If Pageno > Rs.PageCount Then Pageno = Rs.PageCount
If pageNo = "" Then Pageno = 1
%>
</span></td>
</tr>
<tr>
<td> <div align="left"><span lang="zh-cn">当前位置：</span>
<%if keytype="all" then
%>
所有相片
<%elseif keytype="校园风光" then%>
校园风光
<%elseif keytype="同学合影" then%>
同学合影
<%elseif keytype="个人照片" then%>
真我风采
<%else%>
其它照片
<%end if%>
</div></td>
<td><form name="form2" method="get" action="showpic.asp">
第
<select name="page">
<%
For I = 1 To Rs.PageCount
Response.Write "<option>" & I & "</option>"
Next
%>
</select>
<input type="hidden" name="keytype" value="<%=keytype%>">
页
<input type="submit" value="Go" name="submit">
</form></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<center>
<table border="0" cellpadding="4" cellspacing="4" style="border-collapse: collapse" id="AutoNumber6" bordercolor="#111111" width="98%" >
<%
if rs.eof then
else
Sub Showpage(Rs,pageno) '接受参数，显示记录
Rs.AbsolutePage = Pageno
for i=1 to 10
if rs.eof then
exit for
end if
%>
<tr>
<td width="25%" align="center"><a href=javascript:doPopUp("look.asp?id=<%=rs("picid")%>")><img class=hand
style="BORDER-LEFT-COLOR: #426e72; BORDER-BOTTOM-COLOR: #426e72; BORDER-TOP-COLOR: #426e72; BORDER-RIGHT-COLOR: #426e72"
height=70 src="photo/<%=rs("filename")%>" width=95
border=1 dypop="图片名称:<%=rs("remark")%><br>所有者:<%=rs("name")%><br>描述:<%=rs("detail")%>" dyclass="red"></a></td>
<%rs.movenext
if rs.eof then
exit for
end if
%>
<td width="25%" align="center"><a href=javascript:doPopUp("look.asp?id=<%=rs("picid")%>")><img class=hand
style="BORDER-LEFT-COLOR: #426e72; BORDER-BOTTOM-COLOR: #426e72; BORDER-TOP-COLOR: #426e72; BORDER-RIGHT-COLOR: #426e72"
height=70 src="photo/<%=rs("filename")%>" width=95
border=1 dypop="图片名称:<%=rs("remark")%><br>所有者:<%=rs("name")%><br>描述:<%=rs("detail")%>" dyclass="red"></a> </td>
<%rs.movenext
if rs.eof then
exit for
end if
%>
<td width="25%" align="center"><a href=javascript:doPopUp("look.asp?id=<%=rs("picid")%>")><img class=hand
style="BORDER-LEFT-COLOR: #426e72; BORDER-BOTTOM-COLOR: #426e72; BORDER-TOP-COLOR: #426e72; BORDER-RIGHT-COLOR: #426e72"
height=70 src="photo/<%=rs("filename")%>" width=95
border=1 dypop="图片名称:<%=rs("remark")%><br>所有者:<%=rs("name")%><br>描述:<%=rs("detail")%>" dyclass="red"></a></td>
<%rs.movenext
if rs.eof then
exit for
end if
%>
<td width="25%" align="center"><a href=javascript:doPopUp("look.asp?id=<%=rs("picid")%>")><img class=hand
style="BORDER-LEFT-COLOR: #426e72; BORDER-BOTTOM-COLOR: #426e72; BORDER-TOP-COLOR: #426e72; BORDER-RIGHT-COLOR: #426e72"
height=70 src="photo/<%=rs("filename")%>" width=95
border=1 dypop="图片名称:<%=rs("remark")%><br>所有者:<%=rs("name")%><br>描述:<%=rs("detail")%>" dyclass="red"></a> </td>
</tr>
<%
rs.movenext
next
end sub
%>
<% showpage rs,pageno %>
</table>
</center>
</div>
<%end if%>
<%end if%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="8" colspan="12"><div align="center"></div>
<div align="center"><font color="#CC00CC" size="2">一路飞扬在线</font><font color="#009900" size="2"> <font color="#0033FF">http://wyy.9yz.com</font></font></div></td>
</tr>
<tr>
<td height="8" colspan="12"><div align="center"><font color="#009900" size="2">制作:一路飞扬在线</font></div></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -