📄 viewphoto.asp

📁 功能非常完整的校友录

💻 ASP

字号:

<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="const.asp" -->
<!--#INCLUDE FILE="char.asp" -->
<!--#INCLUDE FILE="checkuser.asp" -->
<!--#INCLUDE FILE="theme.asp" -->
<%
call isjoinclass(1)

id=request("id")
dim rs,sql
dim Errmsg,founderr
sql = "select filename,classid from [photo] where picid="&clng(id)
set rs=conn.Execute(sql)
if rs.Eof then
	Errmsg=Errmsg+"<br>"+"<li>操作失败！该相片不存在。"
	founderr=true
elseif rs("classid")<>0 and rs("classid")<>clsid then
	Errmsg=Errmsg+"<br>"+"<li>操作失败！您无权查看其他班级的相片。"
	founderr=true
end if

if founderr=true then
	%>
	<html><head>
	<title><%=SchoolmateName%>——查看相片</title>
	<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	<link href="txl.css" type="text/css" rel="stylesheet">
	</head>
	<body alink=#333333 vlink=#333333 link=#333333 topmargin=0 bgColor="<%=bodycolor%>">
	<%
	call error(errmsg)
else
	filename=rs("filename")
	sql="update [photo] set visitcount=visitcount+1 where picid="&clng(id)
	conn.Execute(sql)
	response.redirect PhotoPath&filename
end if

set rs=nothing
call endconnection()
%>
<!--#INCLUDE FILE="footer.asp" -->

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -