常用VBScript
ASP程序  2023-08-25  6286次
  • 常用VBScript

变量定义
<%
Dim name1,name2,name3
%>

拼接运算符(&)
<%
name=name1&name2
%>

获取表单值并付给Session
<% Session("text_Name") = Request.Form("text_Name") %>
<%= Session("text_Name") %>
<%response.write(Session("text_Name")) %>
<% Session.Contents(“MyVar”)=“Some data” %>
<% Session.Timeout=60 %>
Session用户自动编号<%=SessionID %>

IF条件
<%
if time >#5:00:00pm# then
Greeting=”Good Evening!”
Evening_Visitor=Evening_Visitor+1
else
Greeting=”Good Late Evening!”
end if
%>

SELECT选择
<%
SELECT  CASE  Visitor_Name
CASE  “Bill Gates”
Greeting=”Welcome Bill Gates!”
CASE  “President Clinton”
Greeting=”Welcome President Clinton!”
CASE  ELSE
Greeting=”Welcome Someone!”
END SELECT
%>

FOR...NEXT循环
<%
for i=1 to 500 step 1
%>
Hello Again!
<%
next
%>

数组循环
<%
dim myarray(10)
myarray(4)=”Running Shoes”
for i=0 to ubound(myarray)
if myarray(i)=”Running Shoes” then exit for
next
%>

WHILE循环
<%
TheFuture=DATEADD(“s”,15,TIME)
WHILE TIME<TheFuture
%>
<%=TIME%> : Waiting For The Future... <BR>
<%
WEND
%>

DO循环
<%
do while sentence<>”Hello There!”
sentence=”Hello There!”
%>
<%=sentence%>
<%
loop
%>

删去字符串中空格的三种方法
<%
sentence=” I have extra spaces “
sentence=LTRIM(sentence)
sentence=RTRIM(sentence)
sentence=TRIM(sentence)
%>

替换字符串
<%
newuser=”Edwin c. Orr”
mystring=”Thank you,someone,for registering at our web site!”
mystring=REPLACE(mystring,”someone”,newuser)
%>
<%=mystring%>

比较字符串STRCOMP()
<%=STRCOMP(“Apple”,”Apple”)%>
0
<%=STRCOMP(“Apple”,”APPLE”)%>
1
<%=STRCOMP(“Apple”,”APPLE”,1)%>
0
函数UCASE()或LCASE()字符串大小写转换

创建函数
<%
Dim myvar1,myvar2
FUNCTION My123(myvar1,myvar2)
My123=myvar1*myvar2
END FUNCTION
%>
<%=MyFunction(2,2)%>

随机数RND()
<%=INT((100+1)*RND)%> ''0到100之间

在0到9之间产生100个随机数
<%
CONST upperbound=9,iterations=100
REDIM DIST(upperbound)
RANDOMIZE
FOR i=1 to iterations
rnd_num=INT((upperbound+1)*RND)
DIST(rnd_num)=DIST(rnd_num)&”#”
NEXT
FOR i=0 to upperbound
%>
<%=i&” : “&DIST(i)%><BR>
<%
NEXT
%>

========================================================================================
包含文件
<!#Include VIRTUAL="mybanner.inc" >
<!#Include FILE="mybanner.asp" >

脚本显示
<script language=“Jscript” runat=“server”>
function sayhello()
{ response.write(“hello! 迈至科”)
}
</script>
<% sayhello() %>

Server.CreatObject建立对象实例
<%
Set Mydict=Server.CreateObject(“Scripting.Dictionary”)
MyDict.add “电子商务”, “http://207.153.210.86/intro”
MyDict.add “BBS”, “http://www.magicw3.com/bbs”
MyDict.add “广告联盟”, “http://www.magicw3.com/banner”
%>
<% set MyDict=Nothing %>

Active Server Pages对象
■application对象:application对象被用来存储一个应用中所有用户共享的信息。例如,你可以利用application对象来在你的站点的不同用户间传递信息。

■request对象:request对象可以被用来访问所有从浏览器到服务器间的信息,你也就可以利用request对象来接受用户在html主页的form中的信息。

■response对象:response对象用来将信息发送回给浏览器。你可以利用response对象将你的脚本语言结果输出到浏览器上。

■server对象:server对象提供你运用许多server端的应用函数。例如,你可以利用server对象来控制你的脚本语言在超过时限前的运行时间。你也可以利用server对象来创建其他对象的实例。

■session对象:session对象被用来存储一些普通用户其滞留期间的信息,你可以用Session对象来储存一个用户在访问你的站点的滞留时间。

■ObjectContext对象:ObjectContext对象可以被用来控制Active Server Pages的执行。这种执行过程由Microsoft Transaction Server(MTS)来进行管理。

Active Server Pages组件
■Ad Rotator组件:Ad Rotator组件被用来在主页上显示广告图标。你可以利用这个组件来限定不同广告图标显示变换的频率。

■Browser Capabilities组件:Browser Capabilities组件可以根据不同浏览器的性能来显示不同的主页。例如,你可以利用显示单屏或者根据浏览器适应的分屏方式。

■Content Linking组件:例用Content Linking组件你可以连接相当数量的主页这样你就可以更容易进行网络导航。例如,你可以利用这个组件来显示一部在线教程。

■Counters组件:Counters组件能够被用来追踪访问该站点访问者的数量,你可以利用这个组件在主页中添加点击计数器。

■Permission Checker组件:Permission Checker组件可以被用来检验只有授权用户才能访问某些联接。你可以利用这个组件来创建管理员的维护主页。

■ActiveX Data对象:ActiveX Data对象(ADO)提供你可以从诸如SQL Server这样的数据库系统中存储数据的手段。这种对象相当重要,由于这个原因,这种对象将会在所有对象全部讨论完毕后单独分出一部分进行介绍。

设置服务器缓存<% Response.Buffer=True %>

设置服务器脚本运行时限<% Server.ScriptTimeOut=150 %>

处理主页的Headers
■HTTP_REFERER.当某人通过链接到达当前页时,HTTP_REFERER header就保存了这个用户的来源,例如,如果你想知道用户有多少是从yahoo中访问这个站点,就可以利用HTTP_REFERER来获取这样的信息。

■HTTP_USER_AGENT. 这个Header指示了用户访问你的站点所用的网络浏览器的类型,当你需要了解你的网站主要客户群使用何种浏览器,你就可以利用这个Header中进行了解。

■Remote_Addr.这个header包括了访问者的IP地址,这个地址可以使我们知道访问者的初始来源,例如是MIT的学生或者是美国在线的用户。

■QUERY_STRING. QUERY_STRING变量包含的是输入网络地址后问号后面所带的参数。这个变量的详细使用方法请见15章 “处理多个Active Server Page”

■SCRIPT_NAME. 这个变量包含的是当前Active Server Page的虚拟路径,进行自己的引用连接时可能会用到。

■SERVER_NAME. 这个变量包含的是Server的网址。

■PATH_TRANSLATED. 这个变量包含的是当前Active Server Page的真实地址。

现在版本的Internet Explorer(3.0版和4.0版)在请求中包含下面的Headers.

■HTTP_UA_COLOR. 这个Header包含的是浏览器可以显示多少种颜色。

■HTTP_UA_CPU. 这个Header包含的是执行浏览器的电脑的CPU型号。

■HTTP_UA_OS. 指的是浏览器所在的操作系统。

■HTTP_UA_PIXELS. 指的是浏览器所用的电脑的分辨率。

以循环的方式显示表单提交的内容
<%
FOR EACH name IN Request.Form
Response.Write(“<BR>“&name&”=“)
Response.Write(“Request.Form(name))
NEXT
%>

检验空字
<%
IF Request.Form(“username”)=“” THEN
Response.Write(“你必须输入姓名”)
ELSE
Response.Write(“谢谢注册”)
END IF
%>

Response.Redirect方法(重引导用户到另一个主页位置)
<%
IF Request.Form(“UserName”)=“” THEN Response.Redirect”register.asp”
%>

选择
<a href=“purchase.asp?ITEM=1”>用户手册</a>
<%
SELECT  CASE  Request.QueryString(“item”)
CASE  “1”
Response.Write(“谢谢您订购了用户手册。”)
CASE  “2”
Response.Write(“谢谢您订购了打字机。”)
CASE  “3”
Response.Write(“谢谢您订购了马蹄铁。”)
END SELECT
%>

重定向判断
<%
IF Request.Form(“Username”)=“” THEN
%>
<!#INCLUDE VIRTUAL=“regester.asp”>
<%
Response.End
END IF
%>

request对象对应于HTTP请求,response对象对应于HTTP响应。
Server.URLEncode(String)字符串转换成URL编码
Session.SessionID session的唯一标识
Session.CodePage 服务器代码页
Item(Key)返回与指定的关键字Key相应的条目,或者设定该Key相应的条目值。

消息框MsgBox函数

常数 值 描述

vbOKOnly 0 仅显示OK按钮

vbOKCancel 1 显示OK及Cancel按钮

vbAbortRetryIgnore 2 显示Abort,Retry及Ignore按钮

vbYesNoCancel 3 显示Yes,No及Cancel按钮

vbYesNo 4 显示Yes及No按钮

vbRetryCancel 5 显示Retry及Cancel按钮

vbCritical 16 显示重要消息图标

vbQuestion 32 显示警告询问图标

vbExclamation 48 显示警告消息图标

vbInformation 64 显示信息消息图标

vbDefaultButton1 0 第一个按钮是缺省按钮

vbDefaultButton2 256 第二个按钮是缺省按钮

vbDefaultButton3 512 第三个按钮是缺省按钮

vbDefaultButton4 768 第四个按钮是缺省按钮

vbApplicationModal 0 在用户响应消息框之前,当前的应用程序不会向下进行。

vbSystemModal 4096 在用户响应消息框之前,所有的程序不会向下进行。

下面的常数指明哪一个按钮被按了

常数 值 描述

vbOK 1 Ok按钮

vbCancel 2 Cancel按钮

vbAbort 3 Abort按钮

vbRetry 4 Retry按钮

vbIgnore 5 Ignore按钮

vbYes 6 Yes按钮

vbNo 7 No按钮

三态常数

常数 值 描述

TristateTrue -1 True(真)

TristateFalse 0 False(假)

TristateUseDefault -2 使用缺省设置

字符串常数

常数 值 描述

vbCr chr(13) 回车符

vbCrLf Chr(13)&Chr(10) 回车换行符

vbFormFeed Chr(12) 换表符

vbLf Chr(10) 换行符

vbNewLine Chr(13)&Chr(10)orChr(10) 适用于平台的新行符

vbNullchar Chr(0) 值为0的字符

vbNullString 0 空字符串

vbTab Chr(9) 水平tab键

vbVerticalTab Chr(11) 垂直tab键

<SCRIPT>…</SCRIPT>

包含客户端或服务器端脚本。下表是该标志符的属性:

属性 描述

EVENT=string 指明为那个事件编写该脚本。

FOR=string 指明该脚本绑定的对象。

LANGUAGE=VBScript|JScript|JavaScript 缺省的浏览器语言是JavaScript(当执行客户端JScript程序时,使用参数JavaScript而不是JScript。)缺省的ASP语言是VBScript。

RUNAT=server 指明该脚本将在服务器而不是在客户端执行。一个对ASP而言非常重要的属性。

SRC=filename 该脚本的外在源。

<SELECT>…</SELECT>

使用可选择的选项来创建下拉式或滚动列表框。包含<OPTION>标志符;参看<OPTION>部分。必须包含在表单内。下表是该标志符的属性:

属性 描述

SIZE=number 要显示选项的数目。缺省时,显示在下拉式列表框内。如果指定一个大于1的数,则显示在滚动列表框内。

MULTIPLE 假如存在该属性,则一次可以选中多个选项。

NAME=name 下拉式列表框或滚动列表框的名称。

<SERVER>…</SERVER>[NS]

运行一服务器端脚本(Live Wire 脚本)。

============================================================================================
URL 参数
URL 参数是追加到 URL 上的一个名称/值对。参数以问号 (?) 开始并采用 name=value 的格式。如果存在多个 URL 参数,则参数之间用一个 (&) 符隔开。下面的示例显示带有两个名称/值对的 URL 参数:

http://server/path/document?name1=value1&name2=value2
URL 参数可使您将用户提供的信息从浏览器传递到服务器。当服务器收到请求,而且参数被追加到请求的 URL 上时,服务器在将请求的页提供给浏览器之前,于处理该页时放置这些参数。

在该示例中,可以将应用程序设想为一家基于 Web 的店面。由于希望招徕最大范围的可能顾客,所以站点的开发人员将站点设计得可以支持多种外币。用户登录到该站点之后,他们可以选择使用哪种货币来查看所列商品的价格。

浏览器向服务器请求该页的 report.cfm。该请求包括 URL 参数 Currency="euro"。Currency="euro" 变量指定所有检索到的货币数值都以欧盟的欧元为单位来显示。
服务器将 URL 参数临时存储在内存中。
report.cfm 页读取并使用该参数来检索以欧元为单位的商品价格。这些货币数值既可以存储在反映不同货币的数据库表中,也可以从与每种商品相关联的单一货币形式转换为应用程序支持的任何货币形式。
服务器将 report.cfm 页发送给浏览器,并以请求的货币形式显示商品的价格。当该用户终止会话时,服务器将删除 URL 参数的值,释放服务器内存以存放登录进该站点的新用户的请求。

当将 HTTP 的 GET 方法与 HTML 表单一起使用时,将创建 URL 参数。GET 方法指定在提交表单时将参数值追加到 URL 请求上。

URL 参数的典型应用包括根据用户的喜好对 Web 站点进行个性化设置。例如,由用户名和密码组成的 URL 参数可用于验证用户身份,并只显示该用户已经订阅的信息。这种应用的常见示例包括一些金融 Web 站点,这些站点可根据用户以前所选的股票代码来显示个人的股票价格。Web 应用程序开发人员通常使用 URL 参数将值传递给应用程序内的变量。例如,可以将搜索语句传递给 Web 应用程序中的 SQL 变量以产生搜索结果。

============================================================================================
使用 HTML 链接创建 URL 参数
在 HTML 链接内部创建 URL 参数,包括使用 HTML 锚记的 href 属性。可通过以下方法在属性中直接输入 URL 参数:切换到“代码”视图(“查看”>“代码”),或者在属性检查器中的“链接”文本框中将 URL 参数追加到链接 URL 的末尾。

在下面的示例中,三个链接用三个可能值(Add、update  和 Delete)来创建一个单独的 URL 参数 (action)。根据用户所单击链接的不同,会将不同的参数值发送给服务器,并且会执行不同的请求操作:

<a href="http://www.mysite.com/index.cfm?action=Add">Add a record</a>
<a href="http://www.mysite.com/index.cfm?action=Update">update  a record</a>
<a href="http://www.mysite.com/index.cfm?action=Delete">delete  a record</a>
“属性”检查器(“窗口”>“属性”)可使您通过以下方式创建相同的 URL 参数:选择该链接,在“链接”文本框中将 URL 参数值追加到链接 URL 的末尾。

============================================================================================
收集用户提交的数据
可以用 Web 页来收集用户提供的信息,将其存储在服务器的内存中,然后根据用户的输入用这些信息来创建动态响应。收集信息最常用的工具是 HTML 表单和超文本链接选择。

HTML 表单可以收集来自用户的信息并将其存储在服务器的内存中。HTML 表单可以将信息作为表单参数或 URL 参数来发送。如果将表单的 method 属性设为 POST,则浏览器会将表单的值包括在发送给服务器的消息的正文中。如果将表单的 method 属性设为 GET,则浏览器会将表单值追加到 action 属性中指定的 URL 中,并将信息发送给服务器。

超文本链接也可以收集来自用户的信息并将其存储在服务器的内存中。通过将值追加到锚记中指定的 URL 上,可以指定当用户单击链接(如某个首选参数)时要提交的值。当用户单击该链接时,浏览器会将 URL 和追加的值一起发送给服务器。

这一节描述如何创建用于 Web 应用程序的表单和 URL 参数。

============================================================================================
定义 URL 参数
URL 参数存储用户输入的检索信息。开始之前,请确保将表单或 URL 参数传递到服务器。有关更多信息,请参见 URL 参数和了解 URL 和表单参数。

若要定义 URL 参数,请执行以下操作:
在“文档”窗口中打开要使用该变量的页面。
选择“窗口”>“绑定”以显示“绑定”面板。
在“绑定”面板中单击加号 (+) 按钮,然后从弹出菜单中选择下列选项之一: 文档类型
“绑定”面板中用于 URL 变量的菜单项

ASP
请求变量 > Request.QueryString

ColdFusion
URL 变量

JSP
请求变量

PHP
URL 变量

显示“URL 变量”对话框。

在文本框中输入 URL 变量的名称并单击“确定”。

URL 变量的名称通常是用于获得变量值的 HTML 表单域或对象的名称。

URL 变量即会出现在“绑定”面板中。

定义 URL 变量后,即可在当前所选页面中使用其值。有关更多信息,请参见向 Web 页中添加动态内容。

===========================================================================================
<%= Server.HTMLEncode(MM_keepBoth) & MM_joinChar(MM_keepBoth) & "Work_id=" & Recordset_Work.Fields.Item("Work_id").Value %>

if session("权限")="" or session("用户名")="" then response.write("<script language=''javascript''>alert(''登陆超时,或非法用户'');window.location=''登陆页面''</script>")end ifif 权限=管理员 then 管理用户; SELECT  * from 定单else SELECT  * from 定单 where 用户名=session("用户名")end if

保存临时变量 用session("userid")=''峰峰''以后在其他页面 只需用session("userid") 就代替了 你的名字传递参数的方法有两中1。通过提交表单可用 request.form("")2.用URL的带参数传递http://www.sina.com?yonghu="sdfsdf" request.querystring("yonghu")

Work_Customer
Session(Request.Form("text_Name"))
CStr(Request.Form("text_Name"))
<% Session("text_Name") = Request.Form("text_Name"); %>
response.write(session("userid"))
session("userid")="sdfsdf"
response.write(Request.Form("text_NameA"))
response.write(Request.Form("text_PassA"))

Person
<% Session("text_Name") = Request.Form("text_Name") %>
<%= Session("text_Name") %>

WAP版 | 触屏版 | 电脑版

Copyright © 2014 shaooo.com