cls_class2.asp

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

<%
Class Cls_Tags
	Public Sub Get_Tags
			Set Rs_tags = Server.CreateObject("adodb.recordset")			
			Sql = "SELECT wo_srctags.srctag_tagid, Count(Wo_SrcTags.SrcTag_id) AS Tag_Count,(select tag_name from wo_tags where tag_id=wo_srctags.srctag_tagid) as tag_name FROM Wo_SrcTags where wo_srctags.srctag_ttype=1 GROUP BY wo_srctags.srctag_tagid Order By Count(Wo_SrcTags.SrcTag_id) Desc"			
			Rs_tags.open Sql,conn,1,2
			While not Rs_tags.Eof				
				Response.Write("<a href='jiuoo.asp?Tags_ID="&Rs_tags("srctag_tagid")&"'><span >" & Rs_tags("tag_name") &"</span>("&Rs_tags("Tag_Count")&")</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
				Rs_tags.MoveNext
			Wend
			Rs_tags.close
			If IsSqlDataBase=0 Then			
				Sql = "SELECT wo_srctags.srctag_name, Count(Wo_SrcTags.SrcTag_id) AS Tag_Count FROM Wo_SrcTags where wo_srctags.srctag_ttype=0 and wo_srctags.SrcTag_name <>'' GROUP BY wo_srctags.srctag_name Order By Count(Wo_SrcTags.SrcTag_id) Desc"
			else
				Sql = "SELECT wo_srctags.srctag_name, Count(Wo_SrcTags.SrcTag_id) AS Tag_Count FROM Wo_SrcTags where wo_srctags.srctag_ttype=0 and wo_srctags.SrcTag_name !='' GROUP BY wo_srctags.srctag_name Order By Count(Wo_SrcTags.SrcTag_id) Desc"
			end if
			Rs_tags.open Sql,conn,1,2
			While not Rs_tags.Eof				
				Response.Write("<a href='jiuoo.asp?Tags_Name="&trim(Rs_tags("srctag_Name"))&"'><span >" & Server.HTMLEncode(Rs_tags("srctag_Name"))&"</span>("&Rs_tags("Tag_Count")&")</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
				Rs_tags.MoveNext
			Wend
			Rs_tags.close
			Set Rs_tags = nothing			
	End Sub	
End Class
Class Cls_ShowMsg2
	Public Sub Get_ShowMsg
		Response.Write("<TABLE  width='95%' border=0 align='center' cellPadding=2 cellSpacing=0 class=line>"&Vbcr)
		Response.Write("<TR>"&Vbcr)
		Response.Write("<TD vAlign=top width='81%'>"&Vbcr)
		Response.Write("<TABLE height='' cellSpacing=2 cellPadding=2 width='100%' border=0>"&Vbcr)
		Response.Write("<TR>"&Vbcr)
		Response.Write("<TD vAlign=top height='100%'>"&Vbcr)
		Response.Write("<TABLE class=line2 cellSpacing=0 cellPadding=3 width='100%' border=0>"&Vbcr)
		Response.Write("<TR>"&Vbcr)
		Response.Write("<TD><P class='txt_12'>"&Vbcr)
		Src_Desc = Server.HTMLEncode(Rs_Msg("Msg_Content"))
		Src_Desc = Replace(Src_Desc,chr(10),"<br>")
		Response.Write(Src_Desc)
		Response.Write("</P>"&Vbcr)
		Response.Write("</TD>"&Vbcr)
		Response.Write("</TR>"&Vbcr)
		Response.Write("</TABLE>"&Vbcr)
		Response.Write("</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 vAlign=top>&nbsp;"&Rs_Msg("Msg_AddDate")&"：<span style='font-weight: bold'>"&Rs_Msg("Msg_Source")&"</span>&nbsp;&nbsp;&nbsp;&nbsp;[<a href='javascript:window.close();'>关闭</a>]</TD>"&Vbcr)
		Response.Write("</TR>"&Vbcr)
		Response.Write("</TABLE>	"&Vbcr)
		Rs_Msg.Close
		Set Rs_Msg = nothing
	End Sub
End Class
%>