请问红色部分的代码是什么意思
'================================================'函数名:SiteInfo
'作 用:调用网站基本信息
'参 数:
'返回值:定义的所有变量
'================================================
public Language
Language=split(request.servervariables("url"),"/")(UBound(split(request.servervariables("url"),"/"))-1)
public SiteTitle,ComName,Address,SiteUrl,ZipCode,Telephone,Fax,Email,Keywords,Descriptions,IcpNumber,MesViewFlag
public SiteTitleCh,SiteTitleEn,ComNameCh,ComNameEn,AddressCh,AddressEn
sub SiteInfo()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select top 1 * from NwebCn_Site"
rs.open sql,conn,1,1
SiteTitle=rs("SiteTitle"&Language)
Keywords=rs("Keywords")
Descriptions=rs("Descriptions")
SiteUrl=rs("SiteUrl")
ComName=rs("ComName"&Language)
Address=rs("Address"&Language)
ZipCode=rs("ZipCode")
Telephone=rs("Telephone")
Fax=rs("Fax")
Email=rs("Email")
IcpNumber=rs("IcpNumber")
MesViewFlag=rs("MesViewFlag")
rs.close
set rs=nothing
end sub