📄 cls_class.asp

📁 秘密网源代码传闻拉了 100W风投
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%
Class Cls_Default
	Public RsPageCount
	Public Sub Get_Search
		Response.Write("<table  border='0' align='center' cellpadding='0' cellspacing='0'>"&Vbcr)
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td><div align='center'>"&Vbcr)
		Response.Write("<table  border='0' cellspacing='3' cellpadding='0'>"&Vbcr)
		Response.Write("<form action='jiuoo.asp' method='post' name='frm_data'>"&Vbcr)
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td><div align='left'>"&Vbcr)
		Response.Write("先搜搜看&nbsp;&nbsp;<input name='S_Havving' type='text' size='20' value='"&S_Havving&"' onFocus='this.select();' title='按 “资源名称，内容” 进行模糊搜索' />"&Vbcr)
		Response.Write("</div></td>"&Vbcr)
		Response.Write("<td><div align='left'>"&Vbcr)
		Response.Write("<input type='submit' name='Submit2' value='我要搜索' />"&Vbcr)
		Response.Write("</div></td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("</form>"&Vbcr)
		Response.Write("</table>"&Vbcr)
		Response.Write("</div></td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("</table>"&Vbcr)
	End Sub
	Public Sub Get_Searchs
		Response.Write("<table  border='0' align='center' cellpadding='0' cellspacing='0'>"&Vbcr)
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td><div align='center'>"&Vbcr)
		Response.Write("<table  border='0' cellspacing='3' cellpadding='0'>"&Vbcr)
		Response.Write("<form action='default.asp' method='post' name='frm_data'>"&Vbcr)
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td><div align='left'>"&Vbcr)
		Response.Write("<select name='searchs'><option value='1' >秘密搜索</option><option value='2' >群组搜索</option></select>"&Vbcr)
		Response.Write("先搜搜看&nbsp;&nbsp;<input name='S_Havving' type='text' size='20' value='"&S_Havving&"' onFocus='this.select();' />"&Vbcr)
		Response.Write("</div></td>"&Vbcr)
		Response.Write("<td><div align='left'>"&Vbcr)
		Response.Write("<input type='submit' name='Submit2' value='我要搜索' />"&Vbcr)
		Response.Write("</div></td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("</form>"&Vbcr)
		Response.Write("</table>"&Vbcr)
		Response.Write("</div></td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("</table>"&Vbcr)
	End Sub
	Public Sub Get_OrderBy		
		Response.Write("<table width='98%' height='21'  border='0' align='center' cellpadding='0' cellspacing='0'>"&Vbcr)
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td height='30' class='mn'><img src='Images/friend.gif' width='16' height='16' />&nbsp;过去几分钟里，"&Web_UserCName&"发现了......</td>"&Vbcr)
		Response.Write("<form name='frm_orderby' method='post' action='jiuoo.asp'>"&Vbcr)
		Response.Write("<td class='mn'><div align='right'>查看方式<span class='green'>：</span>"&Vbcr)			
			Response.Write("<select name='order_by' onchange='javascript:frm_orderby.submit();'>"&Vbcr)
			Selected1 = Selected2 = Selected3 = Selected4 = Selected5 = Selected6 = ""
			if order_by="1" then Selected1 = " Selected"
			Response.Write("<option "&Selected1&" value='1' >秘友最新顶的</option>"&Vbcr)
			if order_by="2" then Selected2 = " Selected"
			Response.Write("<option "&Selected2&" value='2'>秘友顶最多的</option>"&Vbcr)
			if order_by="3" then Selected3 = " Selected"
			Response.Write("<option "&Selected3&" value='3'>最新发布的</option>"&Vbcr)
			if order_by="4" then Selected4 = " Selected"
			Response.Write("<option "&Selected4&" value='4'>人气最高的</option>"&Vbcr)
			if order_by="5" then Selected5 = " Selected"
			Response.Write("<option "&Selected5&" value='5'>评论最多的</option>"&Vbcr)
			if order_by="6" then Selected6 = " Selected"
			Response.Write("<option "&Selected6&" value='6'>最新评价的</option>"&Vbcr)
			Response.Write("</select>"&Vbcr)			  
		Response.Write("<input type='hidden' name='Src_Tags' value='"& Src_Child &"' />"&Vbcr)
		Response.Write("<input type='hidden' name='S_Havving' value='"& S_Havving &"' />"&Vbcr)
		Response.Write("</div></td>"&Vbcr)
		Response.Write("</form>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("</table>"&Vbcr)
	End Sub
	Public Sub Get_MainContent(pageurl)
	 	Set Rs = Server.CreateObject("Adodb.recordset")
		Rs.CursorLocation = 3
		Sql = "SELECT Wo_Source.*, Wo_Users.UserID,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_IsOver=true and Src_TypeID=1" 
		if Src_Child <> -1 then
			Sql = Sql & " and Src_ChildID=" & Src_Child
		end if		
		if tags_name <> "" then
			Sql = Sql & " and Src_ID in(Select SrcTag_SrcID From wo_SrcTags Where trim(SrcTag_Name)='"&tags_name&"')"
		end if		
		if tags_ID <> "" then
			Sql = Sql & " and Src_ID in(Select SrcTag_SrcID From wo_SrcTags Where SrcTag_TagID="&tags_ID&")"
		end if		
		if S_Havving <> "" then
			Sql = Sql & " and InStr(1,LCase(Src_title),LCase('"& S_Havving &"'),0)<>0 or InStr(1,LCase(Src_WebName),LCase('"& S_Havving &"'),0)<>0 or InStr(1,LCase(Src_Url),LCase('"& S_Havving &"'),0)<>0 or InStr(1,LCase(Src_Desc),LCase('"& S_Havving &"'),0)<>0"
		end if
		if order_by = "1" then
			Sql = Sql & " Order By Src_HitUpdate Desc"
		elseif order_by = "2" then
			Sql = Sql & " Order By Src_HitNum Desc"		
		elseif order_by = "3" then
			Sql = Sql & " Order By Src_AddDate Desc"
        elseif order_by = "4" then
			Sql = Sql & " Order By Src_SeeNum Desc"
		elseif order_by = "5" then
			Sql = Sql & " Order By Src_RevertNum Desc"
		elseif order_by = "6" then
			Sql = Sql & " Order By Src_RevertUpdate Desc"			
		end if
		Rs.open Sql,conn,1,2
		rs.pagesize	= Web_ContentRecordNum
		RsPageCount = Rs.PageCount
if Rs.eof Then

		Response.Write("<table width='98%'  border='0' align='center' cellpadding='0' cellspacing='3'>")
			Response.Write("<tr><td width='100%' height='25' rowspan='2' valign='top'>或或。。没有找到您想找的资源！</td></tr>")
			Response.Write("<table>")	
         else			
			rs.absolutepage = page
			Type_Name = Rs("Type_Name")
				
		c_j = 0		
		
end if
While Not Rs.eof and c_j < rs.pagesize
			c_j = c_j + 1
Response.Write("<table width=""98%""  border=""0"" align=""center"" cellpadding=""0"" cellspacing=""3"" style=""table-layout:fixed"">"&vbcr)
Response.Write("<tr>"&vbcr)
Response.Write("<td width=""54"" rowspan=""2"" valign=""top"">"&vbcr)
Response.Write("<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&vbcr)
Response.Write("<tr>"&vbcr)
Response.Write("<td width=""54"" height=""50"" background=""Images/dig1.gif""> <div align=""center"" id=""Src_HitNum"&Rs("Src_ID")&""" class=""digmun"">"&Rs("Src_HitNum")&"</div></td>"&vbcr)
Response.Write("<tr>"&vbcr)
Response.Write(" <td height=""19"" background=""Images/dig2.gif""><div id=""Src_ID"&Rs("Src_ID")&""" align=""center"">"&vbcr)
Response.Write(WoDig.Is_Hit(Rs("Src_ID"),Rs("UserID"))&"</div></td>"&vbcr)
Response.Write("</tr>"&vbcr)
Response.Write(" </table>"&vbcr)
Response.Write("</td>"&vbcr)          
Response.Write("</tr>"&vbcr)
Response.Write("<tr>"&vbcr)
Response.Write("<td id=""Src_Info"&Rs("Src_ID")&""" valign=""top"" style=""WORD-WRAP:break-word""> "&vbcr) 

src_Title = Rs("Src_Title")
if src_Title <> "" then 
src_Title = Replace(src_Title,"'"," ")
src_Title2=Replace(src_Title,"""","\""")
src_Title = Server.HTMLEncode(src_Title)
end if
Response.Write("<a href=""show.asp?Src_ID="&Rs("Src_ID")&""" class=""postfontindex"" style=""font-weight: bold;"" onMouseOut='window.status="""&Web_Name&"欢迎您！"";' onMouseOver='window.status="""&Web_Name&"：打开"&src_Title2&""";return true;'>"&vbcr)
Response.Write (src_Title &"</a><br />"&vbcr)
Response.Write("<span class='pl'><a href='Profile.asp?UserName="&Rs("UserName")&"' target='wh'>"&Server.HTMLEncode(Rs("UserName"))&"</a> </span>")
Response.write("<span class='green'>在"& Rs("Src_AddDate") &"发布说</span><br />"&vbcr)
Src_Desc = Rs("Src_Desc")
if Web_IsUploadShowImg = 1 then				
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
end if
if Src_Desc <> "" then
Src_Desc = WoDig.DecodeFilter(Src_Desc,"SCRIPT,TABLE,CLASS,XML,NAMESPACE,MARQUEE,OBJECT,STYLE,EMBED,DIV,ONLOAD,ONCLICK,ONDBCLICK,FONT,IMG")
Src_Desc = WoDig.get_StrLen(Src_Desc,Web_ContentTxtNum)
	
src_Desc = Replace(src_Desc,"""","'")
Src_Desc = WoDig.ChangeURLTarget(Src_Desc,"_blank")
response.write(src_desc)
end if
response.write ("<a href='show.asp?Src_ID="&Rs("Src_ID")&"'>(全文)</a></td></tr>"&vbcr)
response.write ("<tr><td></td><td>"&vbcr)
Response.Write("<table width=""80%"" height=""4"" border=""0"" cellpadding=""0"" cellspacing=""0"">"&vbcr)
Response.Write(" <tr>"&vbcr)
Response.Write(" <td></td>"&vbcr)
Response.Write("</tr>"&vbcr)
Response.Write("</table>"&vbcr)
Response.Write("<img src=""Images/feedback.gif"" width=""16"" height=""16"" /><a href=""show.asp?Src_ID="&Rs("Src_ID")&""">&nbsp;"&Rs("Src_RevertNum")&vbcr)
Response.Write("条评论</a> | <img src=""Images/edit.gif"" width=""15"" height=""14"" />"&vbcr)
Response.Write("<span class=""green"">分类：</span><a href=""jiuoo.asp?Src_Child="&Rs("Src_ChildID")&""">"&Rs("Child_Name")&"</a> | <span class=""hot"">"&vbcr)
response.write ("<img src=""Images/team.gif"" width=""16"" height=""16"" /></span><span class=""green"">"&vbcr)
Response.write (Rs("Src_SeeNum")&"位观众</span>"&vbcr)
Response.Write("| <img src=""Images/Quote.gif"" width=""15"" height=""14"" /> <span class=""green"">Tags：</span>"&WoDig.Get_SrcTags(Rs("Src_ID"))&vbcr)
Response.Write("| <img src=""Images/wodig_md.gif"" width=""15"" height=""14"" /><span id=""aSrc_ID"&Rs("Src_ID")&""" align=""center"">"&WoDig.Is_Hit3(Rs("Src_ID"),Rs("UserID"))&"</span>"&vbcr)
Response.Write("</td>"&vbcr)
Response.Write("</tr>"&vbcr)
Response.Write("<tr><td colspan=""2"" class=""postbg"">&nbsp;</td></tr>"&vbcr)
Response.Write("</table>"&vbcr)		  
			Rs.MoveNext
		Wend
		Rs.Close()
		Set Rs = Nothing
		if pageurl="jiuoo.asp" then
		Call Get_PageList(RsPageCount,"jiuoo.asp")
		end if
		if pageurl="default.asp" then
		Call Get_PageList(RsPageCount,"default.asp")
		end if
End Sub
Function Get_PageList(PageCount,pageUrl)
	Response.Write("<table width='100%'  border='0' cellspacing='0' cellpadding='0'>"&vbcr)
	Response.Write("<tr>"&vbcr)
	Response.Write("<form name='frm_Page_2' action='"&pageUrl&"' mathod='post'>"&vbcr)
	Response.Write("<td align='right'>&nbsp;"&vbcr)
	if cint(page) = 1 and RsPageCount > 1 then
		Response.Write("上一页&nbsp;&nbsp;")						
		Response.Write("<a href='"&pageUrl&"?Src_Child="&Src_Child&"&order_by="&order_by&"&Tags_Name="&Tags_Name&"&Tags_ID="&Tags_ID&"&S_Havving="&S_Havving&"&Page="&Page+1&"&user_id="&User_ID&"'>下一页</a>")
	elseif cint(page) = RsPageCount and RsPageCount > 1 then
		Response.Write("<a href='"&pageUrl&"?Src_Child="&Src_Child&"&order_by="&order_by&"&Tags_Name="&Tags_Name&"&Tags_ID="&Tags_ID&"&S_Havving="&S_Havving&"&Page="&Page-1&"&user_id="&User_ID&"'>上一页</a>&nbsp;&nbsp;")
		Response.Write("下一页")
	elseif cint(page) > 1 and cint(page) < RsPageCount then
		Response.Write("<a href='"&pageUrl&"?Src_Child="&Src_Child&"&order_by="&order_by&"&Tags_Name="&Tags_Name&"&Tags_ID="&Tags_ID&"&S_Havving="&S_Havving&"&Page="&Page-1&"&user_id="&User_ID&"'>上一页</a>&nbsp;&nbsp;")
		Response.Write("<a href='"&pageUrl&"?Src_Child="&Src_Child&"&order_by="&order_by&"&Tags_Name="&Tags_Name&"&Tags_ID="&Tags_ID&"&S_Havving="&S_Havving&"&Page="&Page+1&"&user_id="&User_ID&"'>下一页</a>")
	else
		Response.Write("上一页&nbsp;&nbsp;")
		Response.Write("下一页")
	end if
	if RsPageCount >=10 then
		Page_Temp2 = 10
	else
		Page_Temp2 = RsPageCount
	end if
12 下一页
💿 文件大小 1782 K
👤 上传用户 csytml
📂 所属分类其他
🏷️ 相关标签

#100W #源代码
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -