rss_head.asp

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

<%
Function DateToStr(DateTime,ShowType)  
	Dim DateMonth,DateDay,DateHour,DateMinute,DateWeek,DateSecond
	Dim FullWeekday,shortWeekday,Fullmonth,Shortmonth,TimeZone1,TimeZone2
	TimeZone1="+0800"
	TimeZone2="+08:00"
	FullWeekday=Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")
	shortWeekday=Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat")
    Fullmonth=Array("January","February","March","April","May","June","July","August","September","October","November","December")
    Shortmonth=Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")

	DateMonth=Month(DateTime)
	DateDay=Day(DateTime)
	DateHour=Hour(DateTime)
	DateMinute=Minute(DateTime)
	DateWeek=weekday(DateTime)
	DateSecond=Second(DateTime)
	If Len(DateMonth)<2 Then DateMonth="0"&DateMonth
	If Len(DateDay)<2 Then DateDay="0"&DateDay
	If Len(DateMinute)<2 Then DateMinute="0"&DateMinute
	Select Case ShowType
	Case "Y-m-d"  
		DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay
	Case "Y-m-d H:I A"
		Dim DateAMPM
		If DateHour>12 Then 
			DateHour=DateHour-12
			DateAMPM="PM"
		Else
			DateHour=DateHour
			DateAMPM="AM"
		End If
		If Len(DateHour)<2 Then DateHour="0"&DateHour	
		DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute&" "&DateAMPM
	Case "Y-m-d H:I:S"
		If Len(DateHour)<2 Then DateHour="0"&DateHour	
		If Len(DateSecond)<2 Then DateSecond="0"&DateSecond
		DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute&":"&DateSecond
	Case "YmdHIS"
		DateSecond=Second(DateTime)
		If Len(DateHour)<2 Then DateHour="0"&DateHour	
		If Len(DateSecond)<2 Then DateSecond="0"&DateSecond
		DateToStr=Year(DateTime)&DateMonth&DateDay&DateHour&DateMinute&DateSecond	
	Case "ym"
		DateToStr=Right(Year(DateTime),2)&DateMonth
	Case "d"
		DateToStr=DateDay
    Case "ymd"
        DateToStr=Right(Year(DateTime),4)&DateMonth&DateDay
    Case "mdy" 
        Dim DayEnd
        select Case DateDay
         Case 1 
          DayEnd="st"
         Case 2
          DayEnd="nd"
         Case 3
          DayEnd="rd"
         Case Else
          DayEnd="th"
        End Select 
        DateToStr=Fullmonth(DateMonth-1)&" "&DateDay&DayEnd&" "&Right(Year(DateTime),4)
    Case "w,d m y H:I:S" 
		DateSecond=Second(DateTime)
		If Len(DateHour)<2 Then DateHour="0"&DateHour	
		If Len(DateSecond)<2 Then DateSecond="0"&DateSecond
        DateToStr=shortWeekday(DateWeek-1)&","&DateDay&" "& Left(Fullmonth(DateMonth-1),3) &" "&Right(Year(DateTime),4)&" "&DateHour&":"&DateMinute&":"&DateSecond&" "&TimeZone1
    Case "y-m-dTH:I:S"
		If Len(DateHour)<2 Then DateHour="0"&DateHour	
		If Len(DateSecond)<2 Then DateSecond="0"&DateSecond
		DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&"T"&DateHour&":"&DateMinute&":"&DateSecond&TimeZone2
	Case Else
		If Len(DateHour)<2 Then DateHour="0"&DateHour
		DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute
	End Select
End Function

Function GetUserName(userid)
GetUserName=""
	if userid<>"" then
		userid=cint(userid)
		set rsuser=conn.execute("select UserName from Wo_Users where UserID="&userid)
		if not rsuser.eof then
			GetUserName=trim(rsuser("UserName"))
		end if
		rsuser.close
		set rsuser=nothing
	end if
End Function

Function GetCategory(TypeID)
GetCategory=""
	if TypeID<>"" then
		TypeID=cint(TypeID)
		set rsType=conn.execute("select Type_name from Wo_SrcType where Type_id="&TypeID)
		if not rsType.eof then
			GetCategory=trim(rsType("Type_name"))
		end if
		rsType.close
		set rsType=nothing
	end if
End Function

Function HTMLEncode(ByVal reString) 
	Dim Str:Str=reString
	If Not IsNull(Str) Then
   		Str = Replace(Str, ">", "&gt;")
		Str = Replace(Str, "<", "&lt;")
	    Str = Replace(Str, CHR(9), "&#160;&#160;&#160;&#160;")
	    Str = Replace(Str, CHR(32), "&nbsp;")
	    Str = Replace(Str, CHR(39), "&#39;")
    	Str = Replace(Str, CHR(34), "&quot;")
		Str = Replace(Str, CHR(13), "")
		Str = Replace(Str, CHR(10), "<br/>")
		HTMLEncode = Str
	End If
End Function

Function AddSiteURL(Str)
  Str=lcase(Str)
	'str=replace(Str,"/uploadfile/",web_http&"uploadfile/")
	'str=replace(Str,"/uploadimg/",web_http&"uploadimg/")
	'str=replace(Str,"uploadimg/",web_http&"uploadimg/")
	AddSiteURL=str
End Function


Dim order_by,ClassId
order_by=request("order_by")
if order_by="" then order_by="3"
ClassId=request("Src_Type")
Dim sql,wherestr,actionstr,rs
Dim Src_Desc,Src_Img



wherestr=""
if ClassId<>"" then
	wherestr="where Src_TypeID="&cint(ClassId)
end if
Dim ChannelName,TypeName
ChannelName=SiteConfig("SiteName")
TypeName=""
TypeName=GetCategory(ClassId)
if TypeName<>"" then ChannelName=ChannelName&"_"&TypeName
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
select case order_by
	case "1"
	ChannelName=ChannelName&"_秘友最新顶的"
	case "2"
	ChannelName=ChannelName&"_秘友顶最多的"
  case "3"
  ChannelName=ChannelName&"_最新发布的"
  case "4"
  ChannelName=ChannelName&"_人气最高的"
  case "4"
  ChannelName=ChannelName&"_评论最多的"
  case "4"
  ChannelName=ChannelName&"_最新评价的"
case else
end select

sql="select top 20 Src_ID,Src_UserID,Src_TypeID,Src_Title,Src_Desc,src_img,Src_HitUpdate from Wo_Source "&wherestr&" "
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


Response.Charset = "gb2312"
Response.ContentType="text/xml"
response.clear
%><?xml version="1.0" encoding="gb2312"?>
<rss version="2.0">
 <channel>
 	<title><![CDATA[<%=ChannelName%>]]></title>
  <link><%=SiteConfig("CompanyURL")%></link>
  <description><![CDATA[<%=SiteConfig("MetaDescription")%>]]></description>
  <language>zh-cn</language>
  <copyright><![CDATA[<%=SiteConfig("CompanyName")%>_版权所有]]></copyright>