show.asp

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

<!-- #include file="Setup.asp" -->
<!--#include file="WoLib/Function.asp"-->
<!--#include file="WoLib/Cls_Class.asp"-->
<%
HtmlTop
%>
<script>
<!--
	function copy_text(text){
		window.clipboardData.setData('text',text);
		alert("链接已经复制，您可以直接粘贴!");
	}
-->
</script>
<script language="JavaScript">
<!--
window.onload=fiximage;
function fiximage() {
    var max=600;
    imgs = document.getElementsByTagName('img');
    for(i=0;i<imgs.length;i++) {
    w=imgs.width;h=imgs.height;
    if(w>max) { imgs.width=max;imgs.height=h/(w/max);}
    }
}
-->
</script>
<%
action = Request("action")
Src_ID = Request("Src_ID")
Re_ID  = Request("Re_ID")

if Src_ID = "" or isnumeric(Src_ID) = false then
	Response.Redirect("jiuoo.asp")
	Response.End()
end if

set rs=conn.execute("SELECT top 1 Src_UserID from Wo_Source where Src_ID="&Src_ID)
if not rs.eof then 
ssrc_userid=cint(rs("src_userid"))
end if
rs.close
set rs=nothing

if action = "delSrc" then
	if UserRoleID=1 or CookieUserID=ssrc_userid then
		Conn.execute("delete from Wo_SrcTags where SrcTag_SrcID="&Src_ID)	
		Sql = "Delete From Wo_Source Where Src_ID="&Src_ID
		conn.execute(Sql)
		Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("DigDel")&",Experience=Experience+"&SiteConfig("DigDel")&" Where UserID="&Request("U_id"))
	else
		Call Wodig.MsgBox2("哈哈，您有点越轨行为哦！",1,"SrcShow.asp?Src_ID="&Src_ID)
		Response.End()
	end if	
	Response.Redirect("jiuoo.asp")
elseif action = "IsOver" then
	'是否暂停些资源的发布处理。。。。
	if UserRoleID=1 then	
		Over_Type = Request("Over_Type")
		Sql = "Update Wo_Source Set Src_IsOver="&Over_Type&",Src_ModifyDate='"&Now()&"' Where Src_ID="&Src_ID
		conn.execute(Sql)
		Response.Redirect("jiuoo.asp")
	else
		Call MsgBox2("哈哈，您有点越轨行为哦！",1,"SrcShow.asp?Src_ID="&Src_ID)
		Response.End()
	end if
elseif action = "delRevert" then	
	Sql = "Delete From Wo_SrcRevert Where Re_ID="&Re_ID
	if UserRoleID<>1 then	'如果不是管理员，就应该对回复内容的所有人进行判断
		Sql = Sql & " and Re_UserID="&CookieUserID
	end if
	conn.execute(Sql)
	conn.execute("update Wo_Source set Src_RevertNum=Src_RevertNum-1 where Src_ID="&Src_ID)
	Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("DigDelhuifu")&",Experience=Experience+"&SiteConfig("DigDelhuifu")&" Where UserID="&Request("U_id"))
	Response.Redirect("SrcShow.asp?Src_ID="&Request("Src_ID"))
elseif action = "IsSupper" then
	'是否推荐到顾问团的处理。。。。
	if UserRoleID=1 then
		Sql = "Update Wo_SrcRevert Set Re_IsSupper="&Request.QueryString("act")&" Where Re_ID="&Re_ID
		conn.execute(Sql)
		Response.Redirect("SrcShow.asp?Src_ID="&Request("Src_ID"))
	else
		Call MsgBox2("哈哈，您有点越轨行为哦！",1,"SrcShow.asp?Src_ID="&Src_ID)
		Response.End()
	end if
end if

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"
		Set Rs = Server.CreateObject("Adodb.recordset")
		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_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("SrcShow.asp?Src_ID="&Src_ID)
		Response.End()
	end if


	
	if request.QueryString("action") = "Hit" then
		Call WoDig.Set_Hit(Request("Src_ID"))
		Response.end
	end if	
	
	Set Rs = Server.CreateObject("Adodb.recordset")
	Sql = "SELECT Wo_Source.*, Wo_Users.UserName, Wo_Users.Address, Wo_SrcType.Type_name, Wo_SrcChild.Child_name " & _
			  "FROM Wo_SrcChild INNER JOIN (Wo_SrcType INNER JOIN (Wo_Source INNER JOIN Wo_Users ON Wo_Source.Src_UserID = Wo_Users.UserID) ON Wo_SrcType.Type_id = Wo_Source.Src_TypeID) ON Wo_SrcChild.Child_id = Wo_Source.Src_ChildID " & _
			  "WHERE Wo_Source.Src_ID="&Src_ID 
	Rs.open Sql,conn,1,2
	if rs.eof  then
		Call Wodig.MsgBox2("无法找到资源！",0,"0")
		Response.End()
	elseif rs("src_isover")=false then
		Call Wodig.MsgBox2("该文章需要经过审核才能显示，请等管理员审核后再查看，谢谢！",2,"jiuoo.asp")
		Response.End()
	else
		Rs("Src_SeeNum") = Rs("Src_SeeNum") + 1
		Rs.Update
		Src_Type 	= Rs("Src_TypeID")	'类型
		Src_Child	= Rs("Src_ChildID")	'二级类别
		Src_SeeNum 	= Rs("Src_SeeNum")
	end if
	Src_Type = -1
	str_PageUrl = Request.ServerVariables("PATH_INFO")
	Set Rs1 = Server.CreateObject("Adodb.recordset")
	str="select Child_name from [Wo_SrcChild] where Child_id="&Src_Child
	Rs1.open str ,conn,1,3
	if Rs1.Eof then
	Src_ChildName=""
	else
	Src_ChildName=Rs1("Child_name")
	end if
	Rs1.close
	set Rs1=nothing
%>
<title><%=Server.HTMLEncode(Rs("Src_Title")) %> - <%=SiteConfig("SiteName")%> </title>
<script type="text/javascript" src="js/ajax.js"></script>
<script type="text/javascript" src="js/common.js"></script>
<table width="900"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="738" valign="top"><table width="99%"  border="0" cellspacing="1" cellpadding="0"  id=CommonListArea>
      <tr id=CommonListTitle3>
<td>&nbsp;&nbsp;您当前的位置：<a href="jiuoo.asp">首页</a> → <a href="jiuoo.asp?Src_Child=<%=Src_Child%>"><%=Src_ChildName%></a> → 详细文章</td>
      </tr>
      <tr id=CommonListCell>
        <td>
		  <%Set User=Conn.Execute("select top 1 * from [Wo_Users] where UserName='"&Rs("UserName")&"'")
		  ShowRank(User("experience"))
		  %>
		  <table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td height="40" class="postbg1"><span class="postfont20">
                <% =Server.HTMLEncode(Rs("Src_Title")) %>
              </span></td>
            </tr>
          </table>
		  <table width="98%"  border="0" align="center" cellpadding="4" cellspacing="0" style="padding-left:5px;TABLE-LAYOUT:fixed;">
            <tr>
              <td width="61" valign="top"><table width="51"  border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <td width="51" height="50" background="Images/dig1.gif"><div class="digmun"align="center" id="Src_HitNum<%=Src_ID%>"><%=Rs("Src_HitNum")%></div></td>
                  </tr>
                  <tr>
                    <td height="3"></td>
                  </tr>
                  <tr>
                    <td height="25" background="Images/digbg2.gif"><div align="center" id="Src_ID<%=Src_ID%>"><%= WoDig.Is_Hit(Src_ID,User("UserID"))%></div></td>
                  </tr>
				  <tr>
                    <td height="3"></td>
                  </tr>
				  <tr>
                    <td height="25" background="Images/digbg2.gif"><div align="center" id="aSrc_ID<%=Src_ID%>"><%= WoDig.Is_Hit3(Src_ID,User("UserID"))%></div></td>
                  </tr>
				  <tr>
                    <td height="3"></td>
                  </tr>
				  <tr>
                    <td height="25" background="Images/digbg2.gif" align="center"><a href="MyFavorites.asp?menu=FavoriteDig&DigID=<%=Src_ID%>">收藏它</a></td>
                  </tr>
              </table></td>
              <td valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td><table width="100%"  border="0" cellspacing="0" cellpadding="0" class="ForumPostButtons1">
                        <tr>
                          <td width="45"><%if SiteConfig("EnableAvatars")=1 and SiteConfig("AllowAvatars")=1 then%>
                              <img src="<%=User("UserFaceUrl")%>" width="40" height="40" onload="javascript:if(this.width&gt;<%=SiteConfig("AvatarWidth")%>)this.width=<%=SiteConfig("AvatarWidth")%>;if(this.heigh&gt;<%=SiteConfig("AvatarHeight")%>)this.height=<%=SiteConfig("AvatarHeight")%>;" />
                              <%end if%>
                          </td>
                          <td><b><a href="Profile.asp?UserName=<%=User("UserName")%>"><%=User("UserName")%></a></b>&nbsp;
                              <%if SiteConfig("AllowGender")=1 and (User("UserSex")=1 or User("UserSex")=2) then%>
                              <img src="images/Sex_<%=User("UserSex")%>.gif" />&nbsp;
                              <%end if%>
                              <%=constellation(User("birthday"))%> <b>在<%=Rs("Src_AddDate")%> 发布说:</b><br> [ 角色:
<%
					if instr("|"&Moderated&"|","|"&User("UserName")&"|") > 0 then
						Response.Write("组长")
					else
						response.write ShowRole(User("UserRoleID"))
					end if
					%>
 / 等级：<%=RankName%> / 发主题数：<%=User("TotalPosts")%> / 积分：<%=User("UserMoney")%> / 经验值：<%=User("experience")%> ] [ <a href="MyFavorites.asp?menu=FavoriteFriend&FriendUserName=<%=User("UserName")%>">加为好友</a>&nbsp;|&nbsp;<a href="javascript:Wo_Modal.Open('MyMessage.asp?menu=Post&RecipientUserName=<%=User("UserName")%>',600,350);">发送信息</a> ]
                   </td>
                        </tr>
                    </table></td>
                  </tr>
                  <tr>
                    <td class="font-Post" style="WORD-WRAP:break-word"><table width="100%" border="0" cellpadding="0" cellspacing="0"><tr><td>
                        <%
				if User("UserAccountStatus")=2 then
						Response.Write "==================<br><font color=RED>该用户已被禁用</font><br>==================="
				else
						if Rs("Src_Img") <> Web_Noimage and isnull(rs("src_img"))=false then
						ImgPath_2 = Wodig.Pub_SetImgWH(Rs("Src_Img"),Web_ContentImgMaxWidth,Web_ContentImgMaxHeight)
						Response.Write("<img "&ImgPath_2&" align='"&Web_ContentImgLocation&"'>")
						end if
						if Rs("Src_Desc")<>"" then 
						response.write ""&Rs("Src_Desc")&""
						end if
		  				if Web_SrcUrlShow=true and Rs("Src_Url")<>"" and Rs("Src_Url")<>"http://" then
		  				%><br>
		  				网站链接：<a href="<% =Server.HTMLEncode(Rs("Src_Url")) %>" target="_blank"><% =Server.HTMLEncode(Rs("Src_Url")) %>
		  				</a>
		  				<%
		  				end if%>
						<%
						if SiteConfig("EnableSignatures")=1 and SiteConfig("AllowSignatures")=1 then
							if User("UserSign")<>"" then response.write "<tr><td><div class=ForumPostSignature><b>签名:</b>"&YbbEncode(User("UserSign"))&"</div></td></tr>"
						end if
				end if