photoview.asp

进入后台

        <td height="100" valign="top"><%=rs("content")%></td>
      </tr>
      <tr>
        <td height="60" valign="top"><img src="skins/1/bbsface/sigline.gif" width="363" height="16"><br>
          <%=printcm%> </td>
      </tr>
    </table></td>
  </tr>
  <tr bgcolor="#F7F7F7">
    <td height="25"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="76%">&nbsp;<%=rs("pubtime")%></td>
          <td width="24%"><div align="right">#<%=mm%></div></td>
        </tr>
      </table></td>
    <td>
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="60%"><%if rs("userid")<>"" and not rc.eof then%>
		<A href="datum.asp?userid=<%=rs("userid")%>"><img src="skins/1/bbsface/PROFILE.GIF" width="45" height="18" border="0"></a> <a href="mail.asp?type2=add&toid=<%=rs("userid")%>"><img src="skins/1/bbsface/message.gif" width="48" height="18" border="0"></a> <a href="<%=rc("homepage")%>" target="_blank"><img src="skins/1/bbsface/homepage.gif" width="47" height="18" border="0"></a> <a href="mailto:<%=rc("email")%>"><img src="skins/1/bbsface/EMAIL.GIF" width="45" height="18" border="0"></a> <a href="http://wpa.qq.com/msgrd?V=1&Uin=<%=rc("qq")%>&Site=yvsy.com&Menu=yes" target="_blank"><img src="skins/1/bbsface/oicq.gif" width="45" height="18" border="0"></a> <img src="skins/1/bbsface/msn.gif" alt="<%=rc("msn")%>" width="45" height="18" border="0"></a>
		<%else
response.write "发布人帐号丢失"
end if%></td>
        <td><%if session("xyluserid")<>"" then
		if session("sitejob")=3 or rs("userid")=session("xyluserid") then%><a href="?id=<%=rs("id")%>&picid=<%=picid%>&type2=edit"><img src="skins/1/bbsface/edit.gif" width="48" height="18" border="0"></a>
           <a href="?type2=del2&id=<%=rs("id")%>&picid=<%=picid%>" onclick="return confirm('确定要删除这个回复吗?')"><img src="skins/1/bbsface/a_delete.gif" width="52" height="16" border="0"></a>
          <%end if
		  end if%></td>
      </tr>
    </table>
	</td>
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="1" bgcolor="#FFFFFF"></td>
  </tr>
</table>
<%i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
end if%>
<table width="760" align="center" cellpadding="1" cellspacing="1" bordercolor="#CCCCCC" class="border">
  <tr>
    <td height="25" bgcolor="#f9f8f2"><div align="center"><%=obj.showpage(strFileName,totalput,MaxPerPage,true,true,"条",currentPage)%></div></td>
  </tr>
</table>
<%rs.close
set rs=nothing
if session("xyluser")<>"" then%><br>
<table width="760"  border="0" align="center" cellpadding="1" cellspacing="1" class="tableborder">
  <form name="form1" method="post" action="?type2=add&id=<%=picid%>">
  <tr bgcolor="#FFCFCE">
    <td width="14%" height="20">照片回复<a name="addhf"></a></td>
    <td width="86%">回复人：<%=session("xyluser")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="20">回复内容：</td>
    <td><textarea name="content" cols="60" rows="8" class="border" id="content"></textarea></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="20">&nbsp;</td>
    <td><input name="Submit" type="submit" class="bottom" value="提交回复"></td>
  </tr></form>
</table>
<%end if%><br>
</td>
        </tr>
</table>
<%end sub
sub add
picid=obj.regstr(request("id"))
content=obj.regstr(request.form("content"))
if session("xyluserid")="" then ShowError("请先登录!")
if picid="" or content="" then ShowError("缺少参数!")
rs.open "select * from photo where id="&picid&"",conn,1,3
if rs.eof then ShowError("照片不存在，无法进行回复!")
rs("liuyanshu")=rs("liuyanshu")+1
rs("lastupdatetime")=now
rs.update
rs.close
rs.open "select * from photo2 where 1=2",conn,1,3
rs.addnew
rs("content")=obj.HtmlEncode(content)
rs("pubtime")=now
rs("userid")=session("xyluserid")
rs("picid")=picid
rs.update
rs.close
rs.open "update user set sitemoney=sitemoney+1 where id="&session("xyluserid")&"",conn,1,3
set rs=nothing
a=obj.gourl("　页面三秒后将自动返回您所回复的照片，可以继续选择以下操作：<br><br>　返回<A href='photo.asp'>[学校相册]</a><br><br>　到<A href='photoview.asp?id="&picid&"'>[刚回复的照片]</a>","photoview.asp?id="&picid&"")
end sub
sub del
picid=clng(obj.regstr(request("id")))
if picid="" or picid<0 then ShowError("缺少必要的参数")
rs.open "select pic,userid from photo where id="&picid&"",conn,1,1
if rs("userid")=session("xyluserid") or session("sitejob")=3 then
pp=obj.FSODel(Server.Mappath("upphoto/"&rs("pic")))
userid=rs("userid")
rs.close
rs.open "update user set sitemoney=sitemoney-1 where id="&userid&"",conn,1,3
rs.open "delete from photo where id="&picid&"",conn,1,3
rs.open "delete from photo2 where picid="&picid&"",conn,1,3
Response.Redirect "photo.asp"
else
rs.close
a=obj.gourl("　页面三秒后将自动返回您所操作的照片，可以继续选择以下操作：<br><br>　返回<A href='photo.asp'>[学校相册]</a><br><br>　到<A href='photoview.asp?id="&picid&"'>[刚操作的照片]</a>","photoview.asp?id="&picid&"")
end if
end sub
sub del2
id=clng(obj.regstr(request("id")))
picid=clng(obj.regstr(request("picid")))
if picid="" or picid<0 or id="" or id<0 then ShowError("缺少必要的参数")
rs.open "select userid from photo2 where id="&id&"",conn,1,1
if rs("userid")=session("xyluserid") or session("sitejob")=3 then
userid=rs("userid")
rs.close
rs.open "update user set sitemoney=sitemoney-1 where id="&userid&"",conn,1,3
rs.open "update photo set liuyanshu=liuyanshu-1 where id="&picid&"",conn,1,3
rs.open "delete from photo2 where id="&id&"",conn,1,3
a=obj.gourl("　页面三秒后将自动返回您所删除的照片，可以继续选择以下操作：<br><br>　返回<A href='photo.asp'>[学校相册]</a><br><br>　到<A href='photoview.asp?id="&picid&"'>[刚删除回复的照片]</a>","photoview.asp?id="&picid&"")
else
rs.close
a=obj.gourl("　页面三秒后将自动返回您所操作的照片，可以继续选择以下操作：<br><br>　返回<A href='photo.asp'>[学校相册]</a><br><br>　到<A href='photoview.asp?id="&picid&"'>[刚操作的照片]</a>","photoview.asp?id="&picid&"")
end if
end sub
sub edit
id=clng(obj.regstr(request("id")))
picid=clng(obj.regstr(request("picid")))
if picid="" or picid<0 or id="" or id<0 then ShowError("缺少必要的参数")
rs.open "select * from photo2 where id="&id&"",conn,1,1
if rs.eof then ShowError("回复不存在")
if rs("userid")=session("xyluserid") or session("sitejob")=3 then%>
<table width="760"  border="0" align="center" cellpadding="1" cellspacing="1" class="tableborder">
  <form name="form1" method="post" action="?type2=edit2&id=<%=id%>&picid=<%=picid%>">
  <tr bgcolor="#FFCFCE">
    <td width="14%" height="20">编辑回复</td>
    <td width="86%">回复人：<%=session("xyluser")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="20">回复内容：</td>
    <td><textarea name="content" cols="60" rows="8" class="border" id="content"><%=obj.HtmlDecode(rs("content"))%></textarea></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="20">&nbsp;</td>
    <td><input name="Submit" type="submit" class="bottom" value="提交回复"></td>
  </tr></form>
</table>
<%rs.close
end if
end sub
sub edit2
id=clng(obj.regstr(request("id")))
picid=clng(obj.regstr(request("picid")))
if picid="" or picid<0 or id="" or id<0 then ShowError("缺少必要的参数")
content=obj.regstr(request.form("content"))
if session("xyluserid")="" then ShowError("请先登录!")
if content="" then ShowError("内容不可为空!")
rs.open "select * from photo2 where id="&id&"",conn,1,3
rs("content")=obj.HtmlEncode(content)
rs.update
rs.close
set rs=nothing
a=obj.gourl("　页面三秒后将自动返回您所回复的照片，可以继续选择以下操作：<br><br>　返回<A href='photo.asp'>[学校相册]</a><br><br>　到<A href='photoview.asp?id="&picid&"'>[刚回复的照片]</a>","photoview.asp?id="&picid&"")
end sub
sitebottom%>
</body>
</html>