第1章ASP基础 例1-1-1: HTML示例 欢迎访问! /BODY> /HTML> 例1-2-1 > T工TLE>这里显示标题信息 这里是正文部分。 例2-2-1
第 1 章 ASP 基础 例 1-1-1： HTML 示例 欢迎访问！ 例 1-2-1： > 大家好! 第 2 章 HTML 基础 例 2-1-1： 这里显示标题信息 这里是正文部分。 例 2-2-1：
ASP程序设计教程 T工TLE>BODY属性示例 WWN(Wor1 d wide Web或万维网)是世界上最大的电子信息仓库,由众多的web站点 组成。每个Web站点都包含一些特定的资源,这些资源存放于一台或多台被称为web服务器 的计算机上。正是由于大量的web站点提供了丰富多彩的资源,才使得用户能够通过网络快 速、高效地获得他们需要的信息。 例2-3- 古诗鉴赏 望庐山瀑布李白日照香炉生紫烟,遥看瀑布挂前川。飞流直下三千尺, 疑是银河落九天。 1.庐山:在江西省九江市南,是我国著名的风景区 2.香炉:即香炉峰,在庐山西北,因形似香炉且山上经常笼罩着云烟而得名 3.挂前川:挂在前面的水面上 4.九天:古代传说天有九重,九天是天的最高层 这是诗人李白五十岁左右隐居庐山时写的一首风景诗。这首诗形象地描绘了庐山瀑布雄 壮丽的景色,反映了诗人对祖国大好河山的无限热爱 例2-3-2 物理字体和逻辑字体 物理字体和逻辑字
2 ASP 程序设计教程 BODY 属性示例 WWW（World Wide Web 或万维网）是世界上最大的电子信息仓库，由众多的 Web 站点 组成。每个 Web 站点都包含一些特定的资源，这些资源存放于一台或多台被称为 Web 服务器 的计算机上。正是由于大量的 Web 站点提供了丰富多彩的资源，才使得用户能够通过网络快 速、高效地获得他们需要的信息。 例 2-3-1： 古诗鉴赏 望庐山瀑布李 白 日照香炉生紫烟，遥看瀑布挂前川。飞流直下三千尺， 疑是银河落九天。 [注释] 1．庐山：在江西省九江市南，是我国著名的风景区。 2．香炉：即香炉峰，在庐山西北，因形似香炉且山上经常笼罩着云烟而得名。 3．挂前川：挂在前面的水面上。 4．九天：古代传说天有九重，九天是天的最高层。 这是诗人李白五十岁左右隐居庐山时写的一首风景诗。这首诗形象地描绘了庐山瀑布雄 奇壮丽的景色，反映了诗人对祖国大好河山的无限热爱。 例 2-3-2： 物理字体和逻辑字体 物理字体和逻辑字
对象 体 TRa1ign=" center")物理字体逻辑字体 粗体字斜体字增加下划线<>打字 机字体普通文字上标文字普通文字下标文字 删除线文字 TD>强调文字字体加重显示编程 代码输出示例文字键盘按键文字 定义变量或值定义文字引用文字 缩小文字放大文字 /TR> DIV> /BODY> 例24-1 列表的应用 定义列表有序列表无序列表 DI> HTMI 超文本标记语言 是一种网络通用语言 互联网 网络的网络 星期 星期二 星期三 星期四 星期五 TYPE= circle>星期 星期二 星期三 星期四 星期五
第 4 章 Response 与 Request 对象 3 体 物理字体逻辑字体 粗体字斜体字增加下划线打字 机字体普通文字上标文字普通文字下标文字 删除线文字 强调文字字体加重显示编程 代码输出示例文字键盘按键文字 定义变量或值定义文字引用文字 缩小文字放大文字 例 2-4-1： 列表的应用 定义列表有序列表无序列表 HTML 超文本标记语言 是一种网络通用语言 互联网 网络的网络 星期一 星期二 星期三 星期四 星期五 星期一 星期二 星期三 星期四 星期五
ASP程序设计教程 例2-5-1 多媒体和超级链接的应用 这是微软公司基于 Direct show基础之上开发的媒体播..以便更好的播放。官方网站 |软件下载| 联系我们 例2-6-1 表格的应用 2005年9月 星期日星期一星期二星期三 星期四星期五星期六 123 例2-7-1 表单的应用
4 ASP 程序设计教程 例 2-5-1： 多媒体和超级链接的应用 这是微软公司基于 DirectShow 基础之上开发的媒体播...以便更好的播放。 官方网站 | 软件下载 | 联系我们 例 2-6-1： 表格的应用 2005 年 9 月 星期日星期一星期二星期三 星期四星期五星期六 123 … 例 2-7-1： 表单的应用
对象 注册个人信息 E&: 性别: * H: Hk: 算机 体育运动 E5 INPUT name="speciality" type="checkbox"value="art">Zx 年龄:11-20 21-30 31-40 41-50 RAH: 简介:请如实填写! /BODY 例2-8-1: /ERAME SET> 例2-9-1 CHEA BoDY{font-fami1y:"华文行楷";font-size:18pt; color:#f0000} CsS样式应用
第 4 章 Response 与 Request 对象 5 注册个人信息 姓名： 性别： 男 女 密码： 特长： 计算机 体育运动 音乐 艺术 年龄：11-20 21-30 31-40 41-50 照片： 简介：请如实填写！ 例 2-8-1： 例 2-9-1： CSS 样式应用
ASP程序设计教程 HEAD> css样式基础 css样式可以定义任何一个HTML标记 例2-9-2: 用id属性定义样式表 #idstyle 1(font-family: "315"; font-size: 15pt; color: green) #idstyle 2( font-family:"Hl" font-size: 20pt; color: #00ff33) FONT的id属性用于应用css样式表id属性的取值为事先定义的样式名称! /CENTER> 例2-9-3 使用c1ass定义样式表 classstyle 1(font-family: "Hp" font-size: 24pt; color: blue) classy1e2font- family:"华文新魏";font-size:20pt;co1or:#ff6600} 通过c1ass属性应用样式表 可以同时定义多个cass!
6 ASP 程序设计教程 CSS 样式基础 CSS 样式可以定义任何一个 HTML 标记。 例 2-9-2： 用 id 属性定义样式表 FONT 的 id 属性用于应用 CSS 样式表 id 属性的取值为事先定义的样式名称！ 例 2-9-3： 使用 class 定义样式表 通过 class 属性应用样式表 可以同时定义多个 class！
对象 第3章 VBScript脚本语言 例3-1-1 Sub but ton1 Onclick 判断用户名是否为空 If Trim(my form username value)= Empty Then document myform elements(0). focus( MsgBOx"用户名不能为空! 判断用户密码是否正确 If Trim(myform. Passl value)=Empty Then document myform elements(1).focus( sgBox"密码不能为空! Exit Sub Else If len(myform Pas sl value)>12 Then document myf e lements (1). focus() MsgBox"密码不能超过12个字符!" Exit Sub Else If len(myform Pas sl value) FORM name="myform me thod="post action="checklogin asp"> 4E: 2h:
第 4 章 Response 与 Request 对象 7 第 3 章 VBScript 脚本语言 例 3-1-1： Sub button1_OnClick '判断用户名是否为空 If Trim(myform.username.value) = Empty Then document.myform.elements(0).focus() MsgBox "用户名不能为空！" Exit Sub End if '判断用户密码是否正确 If Trim(myform.Pass1.value) = Empty Then document.myform.elements(1).focus() MsgBox "密码不能为空！" Exit Sub Else If len(myform.Pass1.value)>12 Then document.myform.elements(1).focus() MsgBox "密码不能超过 12 个字符！" Exit Sub Else If len(myform.Pass1.value) 名称： 密码：
ASP程序设计教程 checklogin. asp页面的具体代码如下 检查登录信息 取得用户名和密码,并删除用户名和密码中的首尾空格 username=Trim(Request Form("username")) userpass=Trim(Request Form("Pas sl")) 检查用户名和密码是否正确 If username="admin" then 工fuse Response. Write"欢迎你,管理员 Response.Wrie"对不起,密码错误! End if Else Response. Write"你好!欢迎访问! End If Response. Write"返回 例3-2-1 Dim intDegre 例3-2-2: Option Explicit Dim intx'声明脚本级变量 intx=1·给脚本级变量赋值 Setlocalvariab1e·调用过程修改过程级变量的值 Response. Write intx'将脚本级变量的值发送到浏览器,值仍为1 Sub set localvariable Dim intx"声明过程级变量 intx=2·给过程级变量赋值 End sub
8 ASP 程序设计教程 checklogin.asp 页面的具体代码如下： 检查登录信息 对不起，密码错误！" End If Else Response.Write "你好！欢迎访问！" End If Response.Write "返回" %> 例 3-2-1： 例 3-2-2： <% Option Explicit Dim intX '声明脚本级变量 intX=1 '给脚本级变量赋值 SetLocalVariab1e '调用过程修改过程级变量的值 Response.Write intX '将脚本级变量的值发送到浏览器，值仍为 1 Sub SetLocalVariab1e Dim intX '声明过程级变量 intX=2 '给过程级变量赋值 End Sub
对象 例3-2-3 Option Explicit Dim intx·声明脚本级变量 intx=1·给脚本级变量赋值 Setlocalvariable·调用过程修改变量的值 Response. Write intx'将脚本级变量的值发送到浏览器,值为2 Sub set local variable intx=2·给脚本级变量赋值 End Sub 例3-24 MsgBOx使用方法 定义子过程 Sub but ton1 Onclick Dim int Result intResult= MsgBOx("你真的确定要提交吗?"chr(13) chx(10)&"提交后数据不可再更改。",4+32,"请你选择:") 当点击不同按钮时给出不同响应 if intResult=6 then MsgBox("提交成功!"&chr(13)&chr(10)&"请点击确定关闭窗口!") else MsgBOx("数据未提交成功!") end if End sub 例3-2-5: InputBox函数的使用
第 4 章 Response 与 Request 对象 9 %> 例 3-2-3： 例 3-2-4： MsgBox 使用方法 例 3-2-5： InputBox 函数的使用
ASP程序设计教程 Dim strUserN ame, strUserAddress struserName= InputBox("请输入您的名字:","用户信息记录”) strUserAddress= InputBox("请输入您的住址:","用户信息记录") MsgBOx("您的基本信息为:"&chx(13)kchx(10)&"姓名:" struserName &chr(13)&chr(10)&"tt:"&chr(13)&chr(10)&strUserAddress 例3-4-1 工F.ELSE嵌套语句 Sub but tonl Onclick( grade=trim( InputBox{"请输入等级:(优、良、中、可、差)","学生等级","中")) 工f score="成绩低于60分” Else If grade="可"Then score="成绩在60到70分之间 E1 se If grade="中"Then 成绩在70到80分之间 Else If grade="良"Then score="成绩在80到90分之间 coxe="成绩在90到100分之间 score="输入的等级应该为(优、良、中、可、差)! /SCRIPT>
10 ASP 程序设计教程 例 3-4-1： IF...ELSE 嵌套语句 Sub button1_OnClick() Dim score grade=trim(InputBox("请输入等级：（优、良、中、可、差）","学生等级","中")) If grade="差" Then score="成绩低于 60 分" Else If grade="可" Then score="成绩在 60 到 70 分之间。" Else If grade="中" Then score="成绩在 70 到 80 分之间。" Else If grade="良" Then score="成绩在 80 到 90 分之间。" Else If grade="优" Then score="成绩在 90 到 100 分之间。" Else score="输入的等级应该为（优、良、中、可、差）！" End If End If End If End If End If MsgBox score End Sub