📄 photoview.asp

📁 一个超级漂亮的班级主页asp代码
💻 ASP
字号:
<!--插入html头部分以及数据库接口-->
<!--#include file="in_conn.asp"-->

<body style="font-family: 宋体;font-size: 9pt;line-height: 14pt;color: <% =cotxt %>; background:<% =bg3 %>">
<!--权限判断-->
<%
if u_name="" then
	Response.Redirect "log_err.asp"
end if

u_power=conn.Execute("SELECT power FROM tblmates WHERE name='"&u_name&"'",0,1)(0)
IF u_power=0 THEN
	Response.Redirect "resp.asp?cmd=id_wait"
END IF
%>


<%
'获取id传值
dim vid
IF isNumeric(Request.QueryString("id")) THEN
	vid=CLng(Request.QueryString("id"))
	'找出该照片
	sqlstr="SELECT m.ID,m.name,m.sex,m.power,p.* FROM tblmates AS m INNER JOIN tblphoto AS p ON m.name=p.p_author WHERE p_ID="&vid&" OR p_belong="&vid&" ORDER BY p.p_belong ASC,p.p_ID DESC"
	rs.open sqlstr,conn,1,3
		If rs.eof AND rs.bof Then
			response.Redirect "resp.asp?cmd=phidmiss"
		Else

	'访问计数
			if Not Request.QueryString("rego")="yes" then
				rs.MoveFirst
				rs("p_emo")=rs("p_emo")+1
				rs.UpDate
			end if
	'身份和性别
	IF rs("power")>1 THEN
			icn_sex="img/icn_adm1.gif"
	ELSEIF rs("sex")=True THEN
			icn_sex="img/icn_gg.gif"
	ELSE
			icn_sex="img/icn_mm.gif"
	END IF
	'总管判断
	if DEF_sysadm=rs("name") then
		icn_sex="img/icn_admsys.gif"
	end if
	'其他信息
	vphdate=rs("p_date")
	phauthor=rs("name")
	auID=rs("ID")
	ph_url=rs("p_url")
	ph_zy=rs("p_tip")
%>


<br>
<table align="center" width="785" height="25" border="0" cellspacing="0" cellpadding="0" class="rdkuang">
<tr>
	<td width="100%" height="120" valign="top" style="border-bottom:2px solid <% =bg1 %>;">
		<b>全部评论：</b>
		<%

			if rs("p_belong")=-1 then
		%>
			<img src="img/phmark/1.gif" align="absmiddle" border="0">(<b>0</b>)
			<img src="img/phmark/2.gif" align="absmiddle" border="0">(<b>0</b>)
			&nbsp;点击：<% =rs("p_emo") %>
		<%
			else
				if ABS(rs("p_belong"))<100000 then
					phgood=0
					phbad=ABS(rs("p_belong"))-1
				else
					phgood=ABS(rs("p_belong"))\100000
					phbad=(ABS(rs("p_belong")) mod 100000)-1
				end if
		%>
			<img src="img/phmark/1.gif" align="absmiddle" border="0">(<b><% =phgood %></b>)
			<img src="img/phmark/2.gif" align="absmiddle" border="0">(<b><% =phbad %></b>)
			&nbsp;点击：<% =rs("p_emo") %>
<%
			end if
%>
			<br>
			<marquee behavior="scroll" width="100%" height="180" direction="up" loop="7000" scrollamount="1" scrolldelay="3" onMouseOver="this.stop()" onMouseOut="this.start()">

		<%
	rs.MoveNext
	if rs.eof then
			Response.Write "暂时没有相关评论<br>欢迎品评:)"
	else
		WHILE NOT rs.eof
				'身份和性别
				IF rs("power")>1 THEN
						icn_sex2="img/icn_adm1.gif"
				ELSEIF rs("sex")=True THEN
						icn_sex2="img/icn_gg.gif"
				ELSE
						icn_sex2="img/icn_mm.gif"
				END IF
				'总管判断
				if DEF_sysadm=rs("name") then
					icn_sex2="img/icn_admsys.gif"
				end if
				'其他信息
				vmkdate=rs("p_date")
				mkauthor=rs("name")
				mkID=rs("ID")
				%>
		<img src="<% =icn_sex2 %>" border="0" align="absmiddle">&nbsp;<a href="viewinfo.asp?id=<% =mkID %>" title="点击查看该同学详细资料"><% =mkauthor %></a>
		日期：<% =vmkdate %>
		<br>└----------<img src="img/phmark/<% =rs("p_emo") %>.gif" border="0" align="absmiddle">&nbsp;<b><% =rs("p_tip") %></b>
		<a href='ph_mark_del.asp?plid=<% =rs("p_ID") %>' onClick='javaScript:return confirm("你确定要删除这条评论吗?");'>[删]</a><br>
				<%
				rs.MoveNext
		WEND
	end if

		%>

			</marquee>
	</td>
</tr>
<tr>
	<td width="100%" height="50" valign="top">
	<p>


	<Form name="fm_phmark" action="ph_mark.asp" method="post">
		<b>发表评论：</b>&nbsp;<input type="radio" name="rad_ph" value="1" checked><img src="img/phmark/1.gif" align="absmiddle" border="0">
				&nbsp;&nbsp;<input type="radio" name="rad_ph" value="2"><img src="img/phmark/2.gif" align="absmiddle" border="0">
		&nbsp;&nbsp;&nbsp;&nbsp;<input type="text" name="tx_ph" class="fill" maxlength="50" size="75">
		<br><input type="button" name="sumph" value=" 确 定 发 表 " class="an" onClick="JavaScript:checkfill()">
		&nbsp;<input type="reset" name="btnre" value=" 清 除 " class="an">
		<input type="hidden" name="hid_ph" value="<% =vid %>">
	</Form>
	</p>
	</td>
</tr>
</table>

<br>
<table align="center" width="300" height="25" border="0" cellspacing="0" cellpadding="0" class="rdkuang" style="padding:5px;">
<tr>
	<td width="100%" height="25" valign="top" align="center" style="border-bottom: 2px solid <% =bg1 %>;">
		上传人：<img src="<% =icn_sex %>" border="0" align="absmiddle">&nbsp;<a href="viewinfo.asp?id=<% =auID %>" title="点击查看该同学详细资料"><% =phauthor %></a>
		日期：<% =vphdate %>
		<a href="photo_del.asp?id=<% =vid %>" title="删除该照片(前提：你必须是照片上传人或者班级管理员)" onClick='javaScript:return confirm("你确定要删除这张照片吗?");'>[删]</a>
		<div align="left">注语：
		<%
		if ph_zy="" then
			Response.Write "无"
		else
			Response.Write unhtml(ph_zy)
		end if
		%>
		</div>

	</td>
</tr>
<tr>
	<td width="100%" valign="top" align="center">
		<img src="<% =ph_url %>" border="0">
	</td>
</tr>
</table>

<%  		
		End If
	rs.close
ELSE
	Response.Redirect "resp.asp"
END IF
%>


<Script language="javascript">
function checkfill(){
if(document.fm_phmark.tx_ph.value==""){
	alert("填写不完整：您没有填写评论的文字内容！");
}else{
	document.fm_phmark.submit();
}
}
</Script>

<!--插入网站置底-->
<!--#include file="in_bottom.asp"-->
</body>

</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -