main_cls.asp

来自「网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。」· ASP 代码 · 共 32 行

<%
  Function AdsShow(aADUrl,aSort,aType,aPic,aText,aUrl,aSize,aOpenType,aPlayType,aBegin,aEnd)
    Dim sContent,DateKey
	DateKey = 0
	If aPlayType = 2 Then
	  If cDate(aBegin) <= Date() And cDate(aEnd) >= Date() Then DateKey = 1
	Else
	  DateKey = 1
	End If
	     If DateKey = 1 Then
			If aSort = 2 Then
			  Response.write "var aUrl"&aSort&" = """&Replace(aUrl,"&","§")&""";" & vbCrLf
			  Response.write "var aType"&aSort&" = "&aType&";" & vbCrLf
			Else
			  Response.write "var aUrl"&aSort&" = """&aUrl&""";" & vbCrLf
			  Response.write "var aType"&aSort&" = """&Replace(Replace(Replace(Lcase(aType),1,"text"),2,"gif"),3,"swf")&""";" & vbCrLf
			End If
			Response.write "var aADUrl"&aSort&" = """&aADUrl&""";" & vbCrLf
			Response.write "var aText"&aSort&" = """&aText&""";" & vbCrLf
			Response.write "var aPic"&aSort&" = """&aPic&""";" & vbCrLf
			If aSort > 0 Then
			  Response.write "var aWidth"&aSort&" = "&Split(aSize,",")(0)&";" & vbCrLf
			  Response.write "var aHeight"&aSort&" = "&Split(aSize,",")(1)&";" & vbCrLf
			End If
			Response.write "var aOpenType"&aSort&" = """&aOpenType&""";" & vbCrLf
			Response.write "document.write('<SCRI' + 'PT LANGUAGE=""javascript1.2""');" & vbCrLf
            Response.write "document.writeln(' SRC="""&aADUrl&"js/"&aSort&".js""></SCR' + 'IPT>'); "
			Response.end
         End If
  End Function
%>