grview.asp

一对一校友录多班级而且非常漂亮http://free.cnyys.com/my/yhe/DEFAULT.ASP

rs.open sql,conn,1,1
	IF rs.eof then%>
	不存在标号为<%=picid%>的学校相片,该相片可能已经被删除<br>
	<a href="grphoto.asp?mmm=0&photocx=<%=photocx%>"><font color=red>回个人相册</font></a>
		<%exit sub
	end if%>
					    <table width="100%"  border="0">
                          <tr bgcolor="#6699FF">
                            <td width="31%" background="image/b.gif"><span class="样式1"> <span style="color: #CC3300">标题：</span><%=rs("title")%></span></td>
                            <td width="59%" background="image/b.gif"><span class="样式1"> <span style="color: #CC3300">人气</span>:<%=rs("liuyanshu")%>/<%=rs("dianji")%> 　<span style="color: #CC3300">　<a href="?pe=del&ad=<%=rs("picid")%>&photocx=<%=""&photocx&""%>" onClick="return confirm('这个操作将删除这张照片和下面的回复，你确认吗？')">删除</a>　<a href="mail.asp?type2=add&uer=<%=rs("Username")%>">发短信</a></span> </span></td>
                            <td width="10%" background="image/b.gif"><span class="样式1" style="color: #CC3300"> 楼主 </span></td>
                          </tr>
                        </table>
                        <TABLE width="100%" border=1 cellPadding=1 cellSpacing=0 bordercolor="#CCCCFF">
                          <TBODY>
                          <TR>
                            <TD width="33%" height=20><div align="center"><img src="upphoto/<%=rs("pic")%>" border="0" onload="javascript:if(this.width>570)   this.width=570"><br>
                              </div></TD>
                             </TR></TBODY></TABLE>
							  <table width="100%"  border="0">
                                <tr bgcolor="#6699FF">
                                  <td width="24%" bgcolor="#FBF5E5"><a href="datum.asp?username=<%=rs("Username")%>"><span class="样式1">作者：<%=rs("name")%></span></a><br>
                                    <span class="样式1">登录：<%=rs("userlogins")%><br>
                                    金钱：<%=rs("money")%></span></td>
                                  <td width="76%" bgcolor="#FBF5E5"><span class="样式1"><span style="color: #CC3300">照片介绍：</span><%=rs("remark")%><br>
                                    <span style="color: #CC3300">照片上传于：</span><%=rs("pubtime")%></span></td>
                                </tr>
                              </table>
                            <table width="100%"  border="0">
<%rs.close
	 set rs=nothing
Set rs = Server.CreateObject("ADODB.recordset")
sql="select user.*,photo2.* from user,photo2 where photo2.picid=" &picid& " and photo2.username=user.username  order by pubtime asc"
rs.open sql,conn,1,1
i=2
do while not rs.eof%>
							    <tr bgcolor="#99CCFF">
                                  <td width="110" rowspan="2" bgcolor="#FBF5E5"><div align="center"><a href="datum.asp?username=<%=rs("Username")%>"><img src="<%=rs("userface")%>" width="<%=rs("width")%>" height="<%=rs("height")%>" border="0"></a><br>
                                      作者：<%=rs("name")%><br>
   登录：<%=rs("userlogins")%><br>
                                    金钱：<%=rs("money")%></div></td>
                                  <td height="12" bgcolor="#FBF5E5"><span style="color: #CC3300"> 发表于:<%=rs("pubtime")%> </span></td>
                                  <td height="12" bgcolor="#FBF5E5" style="color: #CC3300"><a href="?pe=del2&ad=<%=rs("id")%>&picid=<%=rs("picid")%>&photocx=<%=""&photocx&""%>" onClick="return confirm('这个操作将删除该回复，你确认吗？')">删除</a>　<a href="mail.asp?type2=add&uer=<%=rs("Username")%>">发短信</a>  </td>
                                  <td height="12" bgcolor="#FBF5E5"><span style="color: #CC3300">第<%=i%>楼 </span></td>
                                </tr>
                                <tr>
                                  <td height="130" colspan="3" valign="top"><%Response.Write	BadWords_Deal(UBBCode(rs("content"),2))%>
                                    <br>
</td>
                                </tr>
								<%i=i+1
								rs.movenext
      loop %>
                              </table>
                              <table width="100%"  border="0">
                                <tr bgcolor="#3399FF">
                                  <td width="30%" background="image/b.gif"><span class="样式1" style="color: #CC3300">照片回复：</span></td>
                                  <td width="70%" background="image/b.gif"><span class="样式1" style="color: #CC3300">在下面输入你对照片的回复啊</span></td>
                                </tr>
                                <tr valign="top">
                                  <td> 注意： <br>
帖子内容不要超过2000; <br>
UBB代码 不支持 <br>
(Ctrl+Enter提交) </td>
                                  <td><form action="?pe=hf&picid=<%=picid%>&photocx=<%=""&photocx&""%>" method="post" name="form1" class="样式4">
                                    <textarea name="content" cols="50" rows="5"></textarea><br>
<input name="提交" type="submit" value="提交">　　<input name="重填" type="reset" value="重填">                                  </form></td>
                                </tr>
                              </table>
<%rs.close
	 set rs=nothing
end sub
sub del
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from photo where picid="&ad&""
rs.open sql,conn,1,1
picimgname=rs("pic")
rs.close
	set rs=nothing
If Request("queren")<>"true" Then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from photo where picid="&ad&""
rs.open sql,conn,1,1
	If rs("username")<>username and sitejob<>3 Then
	Response.Write("呵呵，想删别人的照片？NO，NO，你还不够资格！")
	Response.Write("<br>")
	Response.Write("<a href='javascript:history.go(-1)'><font color=red size=2>返回</font></a>")
	else
	Response.Redirect "?pe=del&photocx="&Request("photocx")&"&ad="&ad&"&queren=true"
rs.close
	set rs=nothing
	end if
	else
conn.Execute ("delete from photo2 where picid="&ad&"")
			conn.Execute ("delete from photo where picid="&ad&"")
			sql="insert into dellog(username,pic,deltime)values('"
			sql=sql&username&"','"&picimgname&"','"&now()&"')"
			conn.execute (sql)
%>
删除相片成功<br>
<a href="grphoto.asp?mmm=0&photocx=<%=photocx%>"><font color=red>回个人相册</font></a>
<%
end if
end sub
sub del2
dim asql
set rs=conn.execute ("select * from photo2 where id=" &ad& " and username='"&Session("wzname")&"'")
	IF sitejob<>3 and rs.eof then
	Response.Write("呵呵，想删别人留言？NO，NO，你还不够资格！")
	Response.Write("<br>")
	Response.Write("<a href='javascript:history.go(-1)'><font color=red size=2>返回</font></a>")
rs.close
	 set rs=nothing
else
Set rs = Server.CreateObject("ADODB.Recordset")
sql="delete from photo2 where id=" &ad& ""
rs.open sql,conn,1,3
asql="update photo set liuyanshu=liuyanshu-1 where picid=" &picid& ""
	conn.execute (asql)%>
删除回复成功<br>
<a href="?picid=<%=picid%>&photocx=<%=photocx%>"><font color=red>返回刚才的照片</font></a>
<br><a href="grphoto.asp?mmm=0&photocx=<%=photocx%>"><font color=red>回个人相册</font></a>
<%
rs.close
	 set rs=nothing
end if
end sub

sub hf
	dim content,pubtime,id

	If session("wzname")="" then%>
		回复相册留言出错,您还没有登录，<br>
请先<a href="index.asp"><font color=red>登录</font></a>再发布留言！
		<%exit sub
	end if
	pubtime=now()
	content=Trim(Request.Form("Content"))

	if content="" or isnull(content) Then%>
		回复相册留言出错,请输入留言内容！<br>
		<a href='javascript:history.go(-1)'><font color=red size=3>返回</font></a>
		<%exit sub
	end if
	content=Replace(content,"'","''")
	set rs=Server.CreateObject("Adodb.Recordset")
rs.open "select top 1 * from photo2 order by id desc",conn,1,3
id=rs("id")+1
rs.close
set rs=nothing
	sql="insert into photo2(username,content,picid,pubtime,id)values('"
	sql=sql&username&"','"&content&"','"&picid&"','"&pubtime&"','"&id&"')"
	conn.execute (sql)
	sql="update photo set liuyanshu=liuyanshu+1,LastUpdateTime='"&now()&"' where picid="&picid
	conn.execute (sql)%>
恭喜你，回复学校相册留言成功！<br>
	<a href="?picid=<%=picid%>&photocx=<%=photocx%>"><font color=red>返回刚才回复的相册留言</font></a><br>
	<a href="grphoto.asp?mmm=0&photocx=<%=photocx%>">回个人相册</a><br>
	网页将在5秒后返回刚才回复的相片
	<%Response.write "<meta http-equiv=""refresh"" content='5;URL=?picid="&picid&"'>"
  end sub%>
			
                        </DIV>
                    <TR>
                      <TD colSpan=2>
                    </TBODY>
                  </TABLE>
                 </TD></TR></TBODY></TABLE></TD></TR></TABLE></TD></TR></TBODY></TABLE>
<!--#include file="bottom.asp"--></BODY></HTML>