editrevert.asp

秘密网源代码 传闻拉了 100W风投

<!-- #include file="Setup.asp" -->
<!--#include file="WoLib/Function.asp"-->
<!--#include file="WoLib/Cls_Class2.asp"-->
<%
HtmlTop
%>
<%
	Src_ID = Request("Src_ID")
	Re_ID  = Request("Re_ID")
	action = Request.Form("action")

	if CookieUserName=empty then
		Response.Redirect("login.asp")
	end if
	
	if Src_ID = "" or Re_ID = "" or IsNumerIC(Src_ID)=false then
		Response.Redirect("jiuoo.asp")
		Response.End()
	end if
	Set Rs = Server.CreateObject("Adodb.recordset")
	
	if action = "EditRev" then
		Sql = "Select * from Wo_SrcRevert Where Re_ID="&Re_ID
		if UserRoleID<>1 then	'如果不是管理员，就应该对资源回复的所有人进行判断
			Sql = Sql & " and Re_UserID="&CookieUserID
		end if

		Rs.open Sql,conn,1,2
		if not Rs.eof then
				Rs("Re_Content") = BodyEncode(Request.Form("Body"))
				Rs("Re_ModifyTime") = Now()
				Rs("Re_IP") = Request.ServerVariables("REMOTE_ADDR")
			Rs.Update
			Rs.Close
			Set Rs = Nothing
		else
			Call wodig.MsgBox2("无法找到该资源的回复！",0,"0")
			Response.End()
		end if		
		Response.Redirect("show.asp?Src_ID="&Src_ID)
		Response.End()
	end if	
	
	Sql = "SELECT Src_Title FROM Wo_Source Where Src_IsOver=true and src_ID="&Src_ID
	Rs.open Sql,conn
	if Rs.eof then
		Call wodig.MsgBox2("此资源不能被找到。。！",0,"0")
		Response.End()
	else
		Src_Title = Rs("Src_Title")	
	end if
	Rs.close
	Sql = "Select * from Wo_SrcRevert Where Re_ID="&re_ID
	Rs.open Sql,conn
	if not Rs.eof then Re_Content=Rs("Re_Content")
	Rs.Close
	Set Rs = Nothing
%>
<table width="900"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="640" valign="top"><table width="99%"  border="0" cellspacing="1" cellpadding="0"  id=CommonListArea>
      <tr id=CommonListTitle3>
        <td>&nbsp;</td>
      </tr>
      <tr id=CommonListCell>
        <td>
          <table width="98%"  border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td class="postbg1"><span class="postfont20">关于“<%=Src_Title%>”的评论</span></td>
            </tr>
          </table>
		  <form name="form" method="post" onSubmit="return CheckForm(this);">
<input name="Body" type="hidden" value='<%=server.htmlencode(Re_Content)%>'>
<input name="UpFileID" type="hidden">
          <table width="98%"  border="0" align="center" cellpadding="0" cellspacing="3">
            <tr>
              <td height="250"><script type="text/javascript" src="Editor/Post.js"></script></td>
            </tr>
            <tr>
              <td><INPUT type=submit value=" 提 交 " name="EditRev">
                &nbsp;
                <INPUT onClick="history.back()" type="button" value=" 取消 ">
				<input type='hidden' name='action' value='EditRev' />
				<input type='hidden' name='Src_ID' value='"&Src_ID&"' />
				<input type='hidden' name='Re_ID' value='"&Re_ID&"' /></td>
            </tr>
            <tr>
              <td>&nbsp;</td>
            </tr>
          </table></form></td>
      </tr>
    </table></td>
    <td valign="top"><table width="99%"  border="0" cellspacing="1" cellpadding="0"  id=CommonListArea>
        <tr id=CommonListTitle3>
          <td>&nbsp;&nbsp;感谢你和大家分享你的意见...</td>
        </tr>
        <tr id=CommonListCell>
          <td>　<SPAN class="postfonthuo">请勿在评论中转载他人的文章。
</SPAN><BR>
          &nbsp;&nbsp;为了鼓励有益的分享, 评论设有25字的最低字数要求。</td>
        </tr>
      </table><br><table width="99%"  border="0" cellspacing="1" cellpadding="0"  id=CommonListArea>
        <tr id=CommonListTitle3>
          <td>&nbsp;&nbsp;广告位</td>
        </tr>
        <tr id=CommonListCell>
          <td>&nbsp;</td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<%
HtmlBottom
%>