default1.asp

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

<!-- #include file="Setup.asp" -->
<!--#include file="WoLib/Cls_Class.asp"-->
<!--#include file="WoLib/Function.asp"-->
<%
if request("searchs")="1" then
response.Redirect("jiuoo.asp?S_Havving="&HTMLEncode(Request("S_Havving")))
end if
if request("searchs")="2" then
Keywords=HTMLEncode(Request("S_Havving"))
response.Redirect("search.asp?menu=Result&keywords="&Keywords&"&item=Topic&type=1")
end if

select case Request("order_by")
	case "TopNew"
		order_by="3"
	case "HotDig"
		order_by="2"
	case "HotRevert"
		order_by="5"
	case else
		order_by="1"
end select
%>
<%
HtmlTop
Dim Default
set Default = New Cls_Default
Src_Child	= Request("Src_Child")	'二级类别
	Src_Tags	= Request("Tags")		'标签
	S_Havving 	= Request("S_Havving")	'搜索条件
	page 		= Request("page")		'分页
	tags_name   = Request("tags_name")	'标签
	tags_ID     = Request("tags_ID")	'标签ID
	if Src_Child = "" or Src_Child = "-1" then
		Src_Child = -1
	end if	
	if page = "" then
		page = 1
	end if	
	if isNumeric(Src_Child)=false or isNumeric(page)=false then
		Response.Redirect("default.asp")	'防注入
	end if
	if tags_ID<>"" and isnumeric(tags_ID)=false  then
	Response.Redirect("default.asp")	'防注入
	end if
%>
<script type="text/javascript" src="js/ajax.js"></script>
<script type="text/javascript" src="js/common.js"></script>
<table width="900"  border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="640" valign="top"><table width="99%"  border="0" cellspacing="1" cellpadding="0"  id=CommonListArea>
<tr id=CommonListCell>
<td><table width="100%"  border="0" align="center" cellpadding="5" cellspacing="0">
 <tr>
 <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
<tr>
<%
			Rs.open "select top 1 * from [Wo_Statistics] order by DateCreated desc",conn,1,3
			if Rs.eof then response.redirect "Install.asp"
			Set Rs1=Server.CreateObject("Adodb.recordset")
			Rs1.open "select count(ForumID) as forumcount from [WO_Forums]",conn,1,3
			if Rs1.Eof then 
			totalforum=0
			else 
			totalforum=Rs1("forumcount")
			end if
			Rs1.close
			Rs1.open "SELECT count(Src_ID) as totalsource FROM Wo_Source WHERE Src_IsOver=true",conn,1,3
			if Rs1.Eof then 
			totalsource=0
			else 
			totalsource=Rs1("totalsource")
			end if
		%>
                  <td height="25" class="postbg1"> <div align="center"><span class="postfonthuo"><%=Rs("TotalUsers")%>个</span>窝友,发布了<span class="postfonthuo"><%=totalsource%>篇</span>文章,建立了<span class="postfonthuo"><%=totalforum%>个</span>群组,有<span class="postfonthuo"><%=Rs("TotalTopics")%>个</span>主题在讨论.共有<span class="postfonthuo"><%=Rs("TotalPosts")%>条</span>回复! </div></td>
		<%
				set Rs1=nothing
				Rs.close%>
</tr> </table>
 <table width="100%"  border="0" cellspacing="0" cellpadding="0">
<tr>
 <td width="350"><!-- #include file="flashplay.asp" --></td>
 <td style=" padding-left:5px; "><span class="postfonthuo">挖掘</span>，挖掘你喜欢的；<br>
 <span class="postfonthuo">推荐</span>，顶一下你认为不错的；<br>
  <span class="postfonthuo">分享</span>，我也来分享我的最爱；<br>
 <span class="postfonthuo">交流</span>，与更多的好友交流分享；<br>
  .....<br>
酒窝窝的宗旨是：发掘、推荐、分享、交流。<br>
</td> </tr> </table>
 <table width="100%"  border="0" cellspacing="0" cellpadding="0">
<tr> <td height="25"><%Call Default.Get_Searchs()%></td>
</tr></table></td> </tr></table></td>
</tr></table>
<table width="80%" height="8"  border="0" cellpadding="0" cellspacing="0">
 <tr><td></td></tr> </table>
 <table width="99%"  border="0" cellspacing="1" cellpadding="0"  id=CommonListArea>
<tr id=CommonListTitle>
 <td><table width="98%"  border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
 <td>在一眨眼的功夫里，窝友发现了......</td>
 <td><div align="right"><a href="?order_by=HotDig">最热</a> | <a href="?order_by=TopNew">最新发布</a> | <a href="?order_by=HotRevert">评论最多</a></div></td>
</tr> </table></td>   </tr>
<tr id=CommonListCell>
 <td><%Call Default.Get_MainContent("default.asp")%></td>
      </tr>
    </table></td>
 <td valign="top">
<table width="99%"  border="0" cellspacing="1" cellpadding="0"  id=CommonListArea>
 <tr id=CommonListTitle1>
<td>&nbsp;&nbsp;酒窝窝公告...</td> </tr>
<tr id=CommonListCell>
<td><table width="96%"  border="0" align="center" cellpadding="0" cellspacing="3">
 <tr>
<td><%Call Default.Get_Msg %></td></tr>
 </table></tr></table>
<table width="80%" height="8"  border="0" cellpadding="0" cellspacing="0">
<tr><td></td></tr></table>
<table width="99%"  border="0" cellspacing="1" cellpadding="0"  id=CommonListArea>
<tr id=CommonListTitle2>
<td>&nbsp;&nbsp;群组精彩文章...</td></tr>
 <tr id=CommonListCell>
<td><%Call Default.Get_GoodTopic()%><div align="right"><a href="ShowBBS.asp?menu=HotReplies" target="wh">更多>>></a></div></td>
 </tr></table>
<table width="80%" height="8"  border="0" cellpadding="0" cellspacing="0">
<tr> <td></td> </tr></table>
 <table width="99%"  border="0" align="center" cellpadding="0" cellspacing="1"  id=CommonListArea>
<tr id=CommonListTitle2>
 <td>&nbsp;&nbsp;窝友的精彩评论...</td> </tr>
 <tr id=CommonListCell> <td>
    <%Call Default.Get_Revert%></td>
 </tr> </table>
<table width="80%" height="8"  border="0" cellpadding="0" cellspacing="0">
<tr><td></td> </tr> </table>
<table width="99%"  border="0" cellspacing="1" cellpadding="0"  id=CommonListArea>
<tr id=CommonListTitle2>
 <td>&nbsp;&nbsp;参与最火热的窝友...</td> </tr>
<tr id=CommonListCell>
 <td><%Call Default.Get_TopUser%></td>
  </tr></table>
 <table width="80%" height="8"  border="0" cellpadding="0" cellspacing="0">
 <tr><td></td></tr></table>
 <table width="99%"  border="0" cellspacing="1" cellpadding="0"  id=CommonListArea>
 <tr id=CommonListTitle2>
<td>&nbsp;&nbsp;一眨眼工夫，又发现新人...</td>
 </tr><tr id=CommonListCell>
<td><%Call Default.Get_NewUser%><div align="right"><a href="Members.asp" target="wh">更多>>></a></div></td>
</tr></table>
 <table width="99%"  border="0" cellspacing="1" cellpadding="0"  id=CommonListArea>
<tr id=CommonListTitle2>
<td>&nbsp;&nbsp;RSS订阅</td>
</tr><tr id=CommonListCell><td>
<div align='right'><span class='green'>用RSS阅读全站&nbsp;<a href="woworss.asp" target="wh"><img src="Images/rss.gif" width="35" height="12" border="0" /></a></span><br>
<!--FEED开始-->
<link title="RSS 2.0" type="application/rss+xml" href="http://feed.Jiuoo.com" rel="alternate" />
<script language="javascript"><!-- 
main_sub="";
more_subs="zhuaxia_02,pageflakes_02,google_02,yahoo_02,xianguo_02";
--> </script>
<script language="javascript" src="http://www.feedsky.com/jsout/publishlist_v2.js?burl=jiuoo&out_html=true"></script>
<!--FEED结束 --></div><br><script type="text/javascript"><!--
google_ad_client = "pub-5306272625842955";
//120x240, 创建于 07-12-11
google_ad_slot = "9817716169";
google_ad_width = 120;
google_ad_height = 240;
//--></script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
</table> 
</td></tr></table>
<br>
<table cellspacing=1 cellpadding=0  width="900" id=CommonListArea align="center">
<tr id=CommonListTitle2><td>&nbsp;&nbsp;友情链接</td>
</tr><tr id=CommonListCell>		
<td><%
		Set Rs = Server.CreateObject("adodb.recordset")
		Rs.Open "[Wo_Links]",Conn
		do while not Rs.eof
		if Rs("Logo")="" or Rs("Logo")="http://" then
			Link1=Link1+"<a title='"&Rs("Intro")&"' href="&Rs("url")&" target=wh>"&Rs("name")&"</a> "
		else
			Link2=Link2+"<a title='"&Rs("name")&""&chr(10)&""&Rs("Intro")&"' href="&Rs("url")&" target=wh><img src="&Rs("Logo")&" border=0 width=88 height=31></a> "
		end if
		Rs.Movenext
		loop
		Rs.close
		if Link2<>"" then Link2="<hr>"&Link2
		%><%=Link1%><%=Link2%></td>
</tr></table>
<%
HtmlBottom
%>