viewphoto.asp

自由领域ASP+WAP同学录(V1.0)系统是一套仿ChinaRen的即可用电脑浏览又可以用手机访问的互动同学录单班级系统。这套系统同学录系统可以满足现在WAP普及的今天同学用手机上网交流的需求

<!--#include file=../INC/txlconst.asp-->
<!--#include file=../INC/txlfun.asp-->
<!--#include file=../INC/Ubbcode.asp-->
<!--#include file=../bbs/INC/bbsfun.asp-->
<!--
<pre>
┌─ 自由领域ASP+WAP同学录系统 ─────────────────┐
│                                                               │
│  感谢你使用 自由领域ASP+WAP同学录系统(测试版）                │
│  使用本免费源码您必须遵守以下规定                             │
│    不得公开发表代码 不得用做商业用途，不得向其他使用者收费。  │
│                                                               │
│  使用时，请保留此段信息，谢谢配合                             │
│                                                               │
│                                       2004/12/19              │
│                                                               │
└────────────────  http://99167.jahee.com ───┘
</per>
-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<%
'on error resume next
dim const_txl_HomeUrl,errstr,i,picid,page,sql
errstr=""
picid=Request.QueryString("picid")
if picid="" or (not isnumeric(picid))	Then
	Response.Redirect("showphoto.asp")
	Response.End
end if
const_txl_HomeUrl="../"
call OpenDatabase
call txl_SiteHead(const_txlname&"-班级相册-")
Response.Flush()
call online
If Request.QueryString("action")="replyphoto"	Then
	Call replyphoto
Elseif Request.QueryString("action")="del"	Then
	Call del
Elseif Request.QueryString("action")="delpl"	Then
	Call delpl
Else
	Call main
End If
Response.Flush()
call CloseDatabase
call SiteBottom
Response.Flush()
Sub main
	If const_photo_login_limit=1	Then	'班级相册登录查看限制
		If session("username")="" Then
			errstr="<li>当前同学录状态已经设置为<font color=red>班级相册只有登录之后才能看到</font>!</li>"
			errstr=errstr&"<li>你现在还没有登录或者会话超时,点<a href='../user/login.asp'>这里登录</a>!</li>"
			errstr=errstr&"<li>如果还有疑问请与管理员联系!</li>"
			Call printerror("浏览班级相册出错！",errstr,779)
			Exit Sub
		End If
	ElseIf const_photo_login_limit=2 Then
		If session("username")="" Then
			errstr="<li>当前同学录状态已经设置为<font color=red>班级相册只有班级成员和嘉宾有查看权限</font>!</li>"
			errstr=errstr&"<li>你现在还没有登录或者会话超时,点<a href='../user/login.asp'>这里登录</a>!</li>"
			errstr=errstr&"<li>如果还有疑问请与管理员联系!</li>"
			Call printerror("查看班级相册出错！",errstr,779)
			Exit Sub
		End If
		If not (session("usertype")=3 or session("usertype")=4)  Then
			errstr="<li>当前同学录状态已经设置为<font color=red>班级相册只有班级成员和嘉宾有查看权限</font>!</li>"
			errstr=errstr&"<li>你目前的身份没有该权限！</li>"
			errstr=errstr&"<li>如果还有疑问请与管理员联系!</li>"
			Call printerror("查看班级相册出错！",errstr,779)
			Exit Sub
		End If
	End	If
	Dim rs
	set rs=Server.CreateObject("Adodb.Recordset")
	rs.open "select photo.*,ec.sign from photo,ec where ec.studentid=photo.studentid and picid="&picid,conn,1
IF rs.eof then
	errstr="<li>不存在标号为"&picid&"的班级相片,该相片可能已经被删除</li>"
	errstr=errstr&"<li>请选择<a href='showphoto.asp'班级相册</a>重新进入</li>"
	Call	printerror("读取相片出错",errstr,779) 
	exit sub
end if
%>

<table width="779" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td background="" style="padding:5px;vertical-align:top; "> 
      <table width="100%"  border="0" align="center" cellpadding="0" cellspacing="8" style="margin-bottom:5px;">
        <tr> 
          <td class="rig1"><strong> 当前位置： <a href="<%=const_homepageurl%>">首页</a> 
            </strong>&gt;&gt;<strong> <a href="<%=const_txl_HomeUrl&const_txlurl%>"><%=const_txlname%></a> 
            </strong>&gt;&gt;<strong> </strong>
           <a href="showphoto.asp">班级相册</a></td>
        </tr>
      </table>
	  <%
	  dim subject
	  subject=rs("subject")
	  if len(subject)>40 then subject=left(subject,38)&"……"
	  %>
      <table width="100%" border="0" align="center" cellpadding="2" cellspacing="0">
        <tr bgcolor="#576F9F"> 
          <td width="305" height="28" style="font-weight:bold;padding-left:15px;"><font color="#FFFFFF">主题：<%=subject%></font> </td>
          <td width="159" align="center"><%Call pre_next%></td>
          <td width="305" style="text-align:right;padding-right:15px;"><font color="#FFFFFF">您是本照片的第<b><%=rs("dianji")%></b> 位浏览者</font></td>
        </tr>
      </table> 
	  <%conn.execute ("update photo set dianji=dianji+1 where picid="&picid)
	  %>
      <table width="100%"  border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#cccccc" bgcolor="#FFFFFF" style="border-collapse:collapse;">
        <tr> 
          <td width="164" rowspan="2" valign="top" class="td4"> 
            <%call bbs_user_info(rs("studentid"))%>
          </td>
          <td class="content"> 上传于：<span class="small"><%=rs("pubtime")%></span>&nbsp;　<a style='cursor:hand' href=javacript:; onclick="javascript:winsteps_open_window('../user/showpermsg.asp?towho=<%=rs("studentid")%>&action=showsendmsgfrm',520,300,'msg');return false"><img src="../BBS/images/message.gif" alt="发短信给<%=rs("studentid")%>" width="16" height="16" border="0" align="absmiddle"> 给他发短信</a> 
            <a href="?action=del&picid=<%=picid%>" onClick="return confirm('这个操作将删除这个照片以及下面的回复留言，你确认吗？')"><img src="../BBS/images/Del.gif" alt="删除此照片" width="16" height="16" border="0" align="absmiddle"> 删除此照片</a>          </td>
          <td align="center" class="rig1">楼主<span class="small" style="color:#FF0000;">(<%=rs("liuyanshu")&"/"&rs("dianji")%>)</span></td>
        </tr>
        <tr> 
          <td colspan="2" valign="top" style="padding:5px;"> <table width="100%" border="0" cellpadding="0" cellspacing="8" bordercolor="#576F9F">
              <tr> 
                <td height="120" class="content"> 
				  <%If Lcase(rs("PhotoFormat"))=".swf" Then
				Response.Write "<embed width='500' src='"&const_txl_HomeUrl&const_photoup_path&rs("pic")&"' align='center'>"
			Else%>
			<a href="<%=const_txl_HomeUrl&const_photoup_path&rs("pic")%>" target="_blank"><img src="<%=const_txl_HomeUrl&const_photoup_path&rs("pic")%>"  border="0" onmousewheel="return bbimg(this)" onload="javascript:if(this.width>550)   this.width=550"></a></td>
			<%End IF%>
              </tr>
              <tr> 
                <td height="22"><img src="../images/signature.gif" width="500" height="17"><br> 
                  <% Response.Write UBBCode(rs("sign"),1)%>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
	  <%
	  rs.close
	  set rs=nothing
	  set rs=Server.CreateObject("Adodb.Recordset")
	  sql="select photoforum.*,ec.studentid,ec.sign from photoforum,ec where ec.studentid=photoforum.studentid and picid="&picid&"  order by ID asc"
	  rs.open sql,conn,1
	dim row
	row=false
	  i=0
	  while not rs.eof
	  	i=i+1
	  %>
      <table width="100%"  border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#cccccc" bgcolor="#<%if row=true then response.Write("ffffff") else response.Write("f7f7f7")%>" style="border-collapse:collapse;">
        <tr> 
          <td width="164" rowspan="2" valign="top" class="td4"> 
            <%call bbs_user_info(rs("studentid"))%>
          </td>
          <td class="content"> 发表于：<span class="small"><%=rs("pubtime")%></span>　<a style='cursor:hand' href=javacript:; onclick="javascript:winsteps_open_window('../user/showpermsg.asp?towho=<%=rs("studentid")%>&action=showsendmsgfrm',520,300,'msg');return false"><img src="../BBS/images/message.gif" alt="发短信给<%=rs("studentid")%>" width="16" height="16" border="0" align="absmiddle"> 
            给他发短信</a> <a href="?action=delpl&id=<%=Rs("id")%>&picid=<%=picid%>" onClick="return confirm('这个操作将删除此评论内容，你确认吗？')"><img src="../bbs/images/Del.gif" alt="删除评论" width="16" height="16" border="0" align="absmiddle"></a></td>
          <td align="center" class="rig1">第<b><%=i+1%></b>楼</td>
        </tr>
        <tr> 
          <td height="86%" colspan="2" valign="top" style="padding:5px;"> 
            <table width="100%" border="0" cellpadding="0" cellspacing="8" bordercolor="#576F9F">
              <tr> 
                <td height="120" class="content">
				<%= UBBCode(BadWords_Deal(rs("content")),1)%>
				</td>
              </tr>
              <tr> 
                <td><img src="../images/signature.gif" width="500" height="17"><br> 
                  <% Response.Write UBBCode(rs("sign"),1)%>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
      <%
		row = not row
		rs.movenext
	  wend
	  
	  %>
      <table  width="100%"  border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="liu">
        <tr> 
          <td colspan="6" style="padding-left:8px;color:#333333;line-height:1.5;font-size:9pt;"> 
            <table width="99%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="87%"></td>
                <td width="13%">
                </td>
              </tr>
            </table></td>
        </tr>
      </table>
      <script>
	  var submitflag=false
	 
	  function addcontent(str1,str2)
	{
		form1.Form_Content.focus();
		if ((document.selection)&&(document.selection.type== "Text"))
		{
			var range= document.selection.createRange();
			var ch_text=range.text;
			range.text= str1 + ch_text + str2;
		} 
		else
		{
			document.form1.Form_Content.value=document.form1.Form_Content.value+str1+str2;
			form1.Form_Content.focus();
		}
	}
	  function check_walkman_form(walkman_frm)
	  {
	  //walkman编写
	  if (walkman_frm.Form_Content.value==""){
	  	alert("请输入内容！");
		walkman_frm.Form_Content.focus();
		return false
	  }
	  var maxlength=2000
	  if (walkman_frm.Form_Content.value.length>maxlength){