<% If Not IsNumeric(Request("id")) And Request("id")<>"" then Response.write"错误的系统参数!ID必须是数字" Response.End End If Dim theurl,id,strStation id = CInt(Request.Querystring("id")) strStation = Left(Request.ServerVariables("HTTP_REFERER"),220) theurl="http://" & Request.ServerVariables("http_host") & finddir(Request.ServerVariables("url")) %> document.write("") _dwrite(""); function _dwrite(string) {document.write(string);} <% Function finddir(filepath) finddir="" Dim i,abc for i=1 to len(filepath) if left(right(filepath,i),1)="/" or left(right(filepath,i),1)="\" then abc=i exit for end if next if abc <> 1 then finddir=left(filepath,len(filepath)-abc+1) end if end Function %>