|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
强大的可扩展性。ASP具有强大的扩展性,可以实现与多种网络、硬件设备的连接:通过专用的通讯线路远程接入企业;通过远程拨号服务器为远程拨号客户提供服务;通过WAP为移动电话互联网客户服务。编程|初级6.2.10Tools组件
Tools组件供应了一些有效的办法,可在页面中反省文件是不是存在、处置一个HTML窗体、和发生一个随机整数,另有用于Macintosh盘算机的一些办法,还能够反省是不是存在某个服务器插件和反省用户是不是是网站的具有者。
1.Tools组件的成页
Tools组件供应了五个办法,个中两个依附于操纵体系,如表6-8所示:
表6-8Tools组件的办法及申明
方法
说明
FileExists(relative_url)
假如relative_url指定的文件存在,前往值为True,不然为False。必需给出假造绝对路径及文件名,而且文件必需存在于公布的Web网站目次中。
Random()
发生一个位于-32768~32767之间的随机整数。利用ABS函数(VBScript)或Math.abs(JScript)失掉在0~32768之间的正整数。利用Mod运算符(VBScript)或%运算符(JScript)失掉指定局限内的一个数值。比方:
intRand=(objTools.RandomMod76)+25
失掉一个在25~100之间的整数。
ProcessForm(output_url,
template_url,[insertion_point])
经由过程template_url指定的文件处置一个HTML窗体,而且拔出来自窗体中已提交给以后页面的数值。了局写进output_url指定的文件,假如指定了可选项insertion_point(字符串)参数的话,组件可在已存在的输入文件中找到这个字符串,并在该地位拔出新的内容。假如insertion_point参数没有指定,任何已存在的output_url文件则被新的输入代替
Owner
仅合用于Macintosh机,假如以后用户帐户是Web网站的具有者,前往值为True,不然前往值为False
PluginExists(plugin_name)
仅合用于Macintosh机,假如指定的服务器plugin_name安装在呆板上,前往值为True,不然为False
2.利用FileExists办法
在同意用户会见之前,可使用FileExists办法反省某些文件是不是存在于服务器中(注重这个办法和FileSystemObject.FileExists以一样的体例事情)。
上面的例子中,用户供应了网页的绝对URL,假如用户想经由过程在名为txtURL的文本框中键进URL翻开网页,在从头定向之前能够反省其是不是存在。
<%//inJscript:
varobjTools=Server.CreateObject(MSWC.Tools);
varstrURL=Request.Form(txtURL);//collectthepageURLtheyentered
if(objTools.FileExists(strURL))//seeifitexists
Server.Transfer(strURL)//ifitdoes,transfertoit
Else//orifnotdisplayamessage
Response.Write(Sorry,thepageyourequesteddoesnotexist);
%>
这里供应了一个示例页面(利用VBScript)来演示组件的三种办法(非Macintosh),能够从ASPInstallableComponents主菜单中运转,如-16所示:
-16运转Tools组件的办法的页面
网页的第一部分同意输出一个文件的绝对URL,并告知用户该文件是不是存在。示例供应的缺省值是检察网站的根目次中是不是有global.asa文件。点击按钮时,申明该文件是不是可找到的信息将放在页面的顶部,如-17所示:
-17运转FileExists办法的了局
把页面的一切控件放在<FORM>中,提交回本页面,这已成为一种标准。在页面的入手下手,检察点击了哪一个按钮。假如是FileExists的按钮,就挪用组件的FileExists办法并显现符合的信息。
lookforacommandsentfromtheFORMsectionbuttons
IfLen(Request.Form("cmdExists"))Then
strFile=Request.Form("txtFile")
IfobjTools.FileExists(strFile)Then
Response.Write"Thefile<B>"&strFile&"</B>doesexist.<P>"
Else
Response.Write"Thefile"&strFile&"<B>doesnot</B>exist.<P>"
EndIf
EndIf
3.利用Tools.Random办法
在ASP页面中,偶然必要一个随机数来完成某些义务,比方,把用户从头定位到一个随机网页、选择色彩或显现逐日提醒。可使用VBScript中的Rnd函数,但要把所得数值变化成指定局限内的整数。Tools组件的Random办法更容易于利用,由于可以间接供应整数值。
Random办法的了局是一个在-32768~32767局限中的整数值,为了取得一个指定局限的整数,可使用剧本言语中的Abs函数并对下一个最年夜的整数取模。比方为了用VBScript言语创立0~20的正整数,可使用以下语句:
intRandom=Abs(objTools.Random)Mod21
为了失掉在50~100之间的数值,能够用:
intRandom=(Abs(objTools.Random)Mod51)+50
示例网页利用这项手艺天生随机数时,起首必要反省由用户输出的数值,以包管这些数值既是无效正整数又有准确的绝对干系。
IfLen(Request.Form("cmdRandom"))Then
intMin=-1presettoillegalvaluesandthen
intMax=-1onlysetifavalidnumberisentered
strMin=Request.Form("txtMinimum")
strMax=Request.Form("txtMaximum")
IfIsNumeric(strMin)ThenintMin=CStr(strMin)
IfIsNumeric(strMax)ThenintMax=CStr(strMax)
If(intMin>=0)And(intMax>intMin)Then
intRandom=(Abs(objTools.Random)Mod(intMax-intMin+1))+intMin
Response.Write"Yourrandomvalueis:<B>"&intRandom&"</B><P>"
Else
Response.Write"<B>Thenumbersyouenteredarenotvalid.</B><P>"
EndIf
EndIf
当页面从头调进时,了局显现在网页的顶部,如-18所示:
-18运转Random办法的了局
4.利用Tools.ProcessForm办法
Tools组件中最庞大的办法是ProcessForm,用来读</p>由于ASP提供的是一对多的服务,所以用户的一些特殊需求很难得到满足。 |
|