index.asp

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

<%
Dim ID,CityID,SiteDir
ID = Request.QueryString
CityID = Request.Cookies("MyCityID")
SiteDir = "/"
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
  If Fso.FileExists(Server.MapPath(SiteDir&"Img/AD_"&CityID&"_"&ID&".Asp")) Then
	Response.write "document.write('<SCRI' + 'PT LANGUAGE=""javascript1.2""');" & vbCrLf
    Response.write "document.writeln(' SRC="&SiteDir&"Img/AD_"&CityID&"_"&ID&".Asp></SCR' + 'IPT>');"
  Else
	Response.write "document.write('<SCRI' + 'PT LANGUAGE=""javascript1.2""');" & vbCrLf
    Response.write "document.writeln(' SRC="&SiteDir&"Img/AD_0_"&ID&".Asp></SCR' + 'IPT>');"
  End If
Set Fso = nothing
%>