请问红色部分的代码是什么意思

[复制链接]

風雲々無心メ

电梯直达

1^#

发表于 2010-1-10 22:32:15 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

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

收藏0

使用道具举报

往事如烟

2^#

发表于 2010-1-10 22:32:20 | 只看该作者

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
定义变量public这些变量可能在class语句块内，一般用public定义的都是在class语句块内

回复支持反对

使用道具举报

返回列表

		自动登录	找回密码
密码			注册