resrc.asp

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

<!-- #include file="Setup.asp" -->
<!--#include file="WoLib/Function.asp"-->
<!--#include file="WoLib/Cls_Class2.asp"-->
<%
HtmlTop
%>
<%
Src_ID = RequestInt("Src_ID")
Rev_ID=RequestInt("Rev_ID")
action = Request.Form("action")
	if CookieUserName=empty then
		Response.Redirect("login.asp")
	end if
	Set Rs = Server.CreateObject("Adodb.recordset")
	if action = "AddRev" then
	if SiteConfig("EnableAntiSpamTextGenerateForPost")=1 then
		if Request.Form("VerifyCode")<>Session("VerifyCode") or Session("VerifyCode")="" then call Wodig.MsgBox2("验证码错误！",1,"javascript:history.back();")
	end if
		Sql = "Select * from Wo_SrcRevert Where 1>2"
		Rs.open Sql,conn,1,2
		Rs.AddNew
			Rs("Re_UserID") = CookieUserID
			Rs("Re_SrcID") = Src_ID
			Rs("Re_Content") = BodyEncode(Request.Form("Body"))
			Rs("Re_Content") = YbbEncode(Request.Form("Body"))
			Rs("Re_AddTime") = Now()
			Rs("Re_IP") = Request.ServerVariables("REMOTE_ADDR")
		Rs.Update
		Rs.Close
		Set Rs = Nothing
		Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Dighuifu")&",Experience=Experience+"&SiteConfig("Dighuifu")&" Where UserID="&CookieUserID)
		Sql = "update wo_source set src_RevertNum = src_RevertNum + 1,Src_RevertUpdate='"&now()&"'  where Src_ID="&Src_ID
		conn.execute(Sql)
		Response.Redirect("show.asp?Src_ID="&Src_ID)
		Response.End()
	end if	
	Sql = "SELECT Wo_Source.*, Wo_Users.UserName, Wo_Users.Address FROM Wo_Source INNER JOIN Wo_Users ON Wo_Source.Src_UserID = Wo_Users.UserID"
	Sql = Sql & " Where src_ID="&Src_ID&" Order By Src_AddDate Desc"
	Rs.open Sql,conn
	if Rs.eof then
		Call MsgBox2("无法找到资源！",0,"0")
		Response.End()
	end if
	if Rev_ID <> 0 then
		sql="select Wo_SrcRevert.*,Wo_Users.UserName from Wo_SrcRevert INNER JOIN Wo_Users ON Wo_SrcRevert.Re_UserID = Wo_Users.UserID"
		Sql = Sql & " Where Re_ID="&Rev_ID&" Order By Re_ModifyTime Desc"
		set rs2=Server.CreateObject("Adodb.recordset")
		rs2.open sql,conn
		if rs2.eof then
			Call MsgBox2("无法找到资源！",0,"0")
			Response.End()
		else
			revcontent=Rs2("Re_Content")
			revun=rs2("UserName")
		end if
		rs2.close
		set rs2=nothing
	end if
%>
<table width="900"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="100%" 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">关于“<%=Server.HTMLEncode(RS("Src_Title"))%>”的评论</span></td>
            </tr>
          </table>
		  <form name="form" method="post" onSubmit="return CheckForm(this);">
		  <%if Rev_ID = 0 then%>
		<input name="Body" type="hidden" value='[quote user="<%=Rs("UserName")%>"]<%=server.htmlencode(Rs("src_Desc"))%>[/quote]'>
		<%else%>
		<input name="Body" type="hidden" value='[quote user="<%=revun%>"]<%=server.htmlencode(revcontent)%>[/quote]'>
		<%end if%>
<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>
			<%if SiteConfig("EnableAntiSpamTextGenerateForPost")=1 then%>
						<tr id=CommonListCell>
							<td height="30">验 证 码：
							<input type="text" name="VerifyCode" MaxLength="4" size="10" onBlur="CheckVerifyCode(this.value)" onKeyUp="if (this.value.length == 4)CheckVerifyCode(this.value)"> <img src="VerifyCode.asp" title="验证码,看不清楚?请点击刷新验证码" style="cursor:pointer" onClick="this.src='VerifyCode.asp?'+Math.random()"> <span id="CheckVerifyCode" style="color:red"></span>
							</td>
						</tr>
						<%end if%>
            <tr>
              <td><INPUT type=submit value=" 提 交 " name="rev_submit2">
                &nbsp;
                <INPUT onClick="history.back()" type="button" value=" 取消 ">
				<input type='hidden' name='Src_ID' value='"&Src_ID&"' />
				<input type='hidden' name='action' value='AddRev' /></td>
            </tr>
            <tr>
              <td>&nbsp;</td>
            </tr>
          </table></form></td>
      </tr>
    </table></td>
  </tr>
</table>
<%
HtmlBottom
%>