admin_srcshow.asp

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

<!-- #include file="Setup.asp" -->
<!--#include file="../WoLib/Function.asp"-->
<!--#include file="../WoLib/Cls_Class.asp"-->

<%
if CookieUserName=empty then error("您还未<a href=Login.asp?ReturnUrl="&ReturnUrl&">登录</a>")
if UserRoleID <> 1 then Alert("您没有权限进入后台")
if RequestCookies("Userpass")="" or RequestCookies("Userpass")<>session("pass") then Response.Write ("<script>top.location.href='login.asp';</script>")

Src_ID = Request("Src_ID")

if Src_ID = "" or isnumeric(Src_ID) = false then
	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=trim(rs("src_userid"))
end if
rs.close
set rs=nothing	
	
	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()
	else
		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>
<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=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"></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">
                          </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%>
                               <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
				%>
                    </td></tr></table></td>
                  </tr>
				  <%if GGAD72860 <> "" then%>
				  </table></td></table><table width="100%"  border="0" cellspacing="0" cellpadding="0" class="ForumPostButtons1">
				  <tr><td width="100%"><%=GGAD72860%></td></tr></table><table width="100%"  border="0" cellspacing="0" cellpadding="0" class="ForumPostButtons1"><tr><td><table width="100%"  border="0" cellspacing="0" cellpadding="0" class="ForumPostButtons1">
				  <%end if%>
              </table></td>
            </tr>
          </table>
		  <%Set User = Nothing%>
	</td>
    <td valign="top">
     
    </td>
  </tr>
</table>