'================================================
'函数名：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