可如下进行: <%@Language=VBScript%> <%@Language=
JavaScript%> 2、ASP 程序编写注意事项 (1)在 ASP 中,字母不区分大小写; (2)在 ASP 中,标点符号均为英文状态下输入的标点符号;但在字符串中无所谓。 (3)普通的 HTML 元素可以在一行里连续书写,但在 ASP 中必须分行书写。一条 ASP 语句就是一行,一行也只能写一条 ASP 语句。 (4) 如果 ASP 语句太长,一行写不下,可用续行符“_”(下划线),也可直接写,让它自 动换行。 (5) 普通
HTML 的注释语句为: 。 (6) ASP 的注释语句为: REM 注释内容 ‘ 注释内容 (7) 在 ASP 中,<%和%>的位置相对随意,既可以单独占一行,也可以与 ASP 语句和 在一起占一行。 (8) 书写风格,缩进格式,阶梯式,加注释 (9) 在 ASP 程序中可以包含 HTML 语句,充分利用 FrontPage 等编写 HTML 语句,特 别是表格等,在将 VBScript 脚本插入。
3、 ASP 的调试技巧 ? 用编辑器编写,用浏览器调试; ? 阅读出错信息,如错误描述、出错代码行数等,查出原因; ? 将一些语句注释掉,依次逐段调试; ? 在程序中临时添加输出语句,如 Response.Write,将中间结果输出来查看,以发现错 误。 ? 启动 dreamweave 或文本编辑器中,然后切换到
源代码显示方式。 ? 在 与之间加入以下 ASP 代码: <% Response.Write(“这是我的第一个 ASP
程序!”) %> ? 将网页保存到形如 C:\Inetpub\wwwroot 目录下
,文件可命名为 first.asp。 ? 启动 IE 浏览器,在地址栏中键入: localhost/first.asp,然后按回车。注意观察 输出结果。 ? 在 wwwroot 目录下创建立一个子目录, myweb, 如 然后将 first.asp 文件复制到其中, 在 IE 浏览器的地址栏中键入: localhost/myweb/first.asp,按回车。注意观察能否正确 运行。 4、ASP 文件举例 例 1:
欢迎您光临我的主页
<% n=Year(date()) y=Month(date()) r=Day(date()) sj="您来访的时间是:" &; n &; "年" &; y &; "月" &; r &; "日" Response.Write sj '输出结果 %> 例 2: <%For I=1 To 6 %> 欢迎您来访
<%Next%> 例 3: 欢迎您来访
欢迎您来访
欢迎您来访
欢迎您来访
欢迎您来访
欢迎您来访
三、ASP 脚本语言 VBScript 脚本语言介于 HTML 和 VB、Java 等高级语言之间,更接近高级语言,但比普通高级语 言简单易学,功能稍弱。ASP 本身不是脚本语言,是为嵌入 HTML 页面的脚本语言提供运 行环境。 VBScript、 JavaScript, 默认 VBScript 脚本语言程序在 Server 端执行, 放在<%和%> 之间;为了某种需要,也可在 Cilent 端执行。 1、VBScript 代码的基本格式 ASP 程序通常将 VBScript 放在 Server 端执行,标识方法: ? <% VBScript %> ? VBScript 放在 Client 端执行,语法格式如下:
2、 VBScript 程序设计 实验目的:了解并掌握 VBScript 脚本程序设计语言的基本语法知识及简单程序设计方 法 例 4、利用 VBScript 在网页中输出当前的时间和日期。 <%@ Language=VBScript %> <%Response.Expires = 0%>
今天的日期: <% = Date%>
现在的时间: <% = Time%>
现在的时间: <% = Time%>
<%Response.Write "
现在的时间: " &; Time &; "
"%> 例 5、试编写一个 ASP 程序,实现记录某一页面的访问数。 先编辑一个统计.htm 文件: 记录某个页面的点击数示例:
统计.asp 统计.asp 的代码如下: <% @ LANGUAGE = VBScript %> <% '统计.asp - 记录某一页面的访问数(计数器原理) Option Explicit Dim CountWeb CountWeb = Request.ServerVariables("SCRIPT_NAME") '这样保证每个
页面都有一个唯一的变量, 避免混乱 %> <% Response.Write CountWeb &; "
" &; vbcrlf Application.Lock '请看讲解 Application(CountWeb) = Application(CountWeb) + 1 '累加器,点击数加 1 Application.UnLock Response.Write "WEB 服务器关闭重启前该页的点击总数为: " &; Application(CountWeb)