ASP程序设计教程 HEAD> <Pa1ign=" center">css样式基础</P> <Pa1ign=" center">css样式可以定义任何一个HTML标记 </P> </HTML> 例2-9-2: <HTML> <HEAD> <T工TLE>用id属性定义样式表</TIE> <STYLE type="text/css"> #idstyle 1(font-family: "315"; font-size: 15pt; color: green) #idstyle 2( font-family:"Hl" font-size: 20pt; color: #00ff33) </STYLE> </HEAD> <BODY> <P>< FONT id=" instyle1">FONT的id属性用于应用css样式表</FoNT></P <P>< FonT id=" instyle_2">id属性的取值为事先定义的样式名称!</oN></P> /CENTER> </BODY> </HTML> 例2-9-3 <HTML> <HEAD <T工E>使用c1ass定义样式表</TITE> <STYLE type="text/css"> classstyle 1(font-family: "Hp" font-size: 24pt; color: blue) classy1e2font- family:"华文新魏";font-size:20pt;co1or:#ff6600} </HEAD> <CENTER> <Pc1ass="c1 assay1e1”>通过c1ass属性应用样式表</P> < P class="c1 assstyle2">可以同时定义多个cass!</P </cENTER> </HTML>
6 ASP 程序设计教程 </HEAD> <BODY> <P align="center">CSS 样式基础</P> <P align="center">CSS 样式可以定义任何一个 HTML 标记。</P> </BODY> </HTML> 例 2-9-2： <HTML> <HEAD> <TITLE>用 id 属性定义样式表</TITLE> <STYLE type="text/css"> <!-- #idstyle_1{font-family:"隶书";font-size:15pt;color:green} #idstyle_2{font-family:"楷体";font-size:20pt;color:#00ff33} --> </STYLE> </HEAD> <BODY> <CENTER> <P><FONT id="idstyle_1">FONT 的 id 属性用于应用 CSS 样式表</FONT></P> <P><FONT id="idstyle_2">id 属性的取值为事先定义的样式名称！</FONT></P> </CENTER> </BODY> </HTML> 例 2-9-3： <HTML> <HEAD> <TITLE>使用 class 定义样式表</TITLE> <STYLE type="text/css"> <!-- .classstyle_1{font-family:"黑体";font-size:24pt;color:blue} .classstyle_2{font-family:"华文新魏";font-size:20pt;color:#ff6600} --> </STYLE> </HEAD> <BODY> <CENTER> <P class="classstyle_1">通过 class 属性应用样式表</P> <P class="classstyle_2">可以同时定义多个 class！</P> </CENTER> </BODY> </HTML>
对象 第3章 VBScript脚本语言 例3-1-1 <HTML> <SCRIPT language=VBScript"> 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)<6Then document myform elements (1). focus( MsgBox"密码不能小于6个字符 Exit sub End if myform Submit End sub </SCRIPT> FORM name="myform me thod="post action="checklogin asp"> <p>4E: <INPUT name="username"type="text" id="username"></ <p>2h: <INPUT name="pass1" type="password"id="pass1"></p> <p><INPUT type="button"name="button" id=button value=Ex <INPUT type="reset" name="Submit2"value="HH"></p>
第 4 章 Response 与 Request 对象 7 第 3 章 VBScript 脚本语言 例 3-1-1： <HTML> <HEAD> <SCRIPT language="VBScript"> 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)<6 Then document.myform.elements(1).focus() MsgBox "密码不能小于 6 个字符！" Exit Sub End If End if End if myform.Submit End Sub </SCRIPT> </HEAD> <BODY> <FORM name="myform" method="post" action="checklogin.asp"> <p>名称：<INPUT name="username" type="text" id="username"> </p> <p>密码：<INPUT name="pass1" type="password" id="pass1"> </p> <p><INPUT type="button" name="button1" id=button1 value="提交"> <INPUT type="reset" name="Submit2" value="重置"> </p> </FORM> </BODY> </HTML>
ASP程序设计教程 checklogin. asp页面的具体代码如下 <HTML> < TITLE>检查登录信息</TITE> </HEAD> 取得用户名和密码,并删除用户名和密码中的首尾空格 username=Trim(Request Form("username")) userpass=Trim(Request Form("Pas sl")) 检查用户名和密码是否正确 If username="admin" then 工fuse Response. Write"欢迎你,管理员 Response.Wrie"<P>对不起,密码错误!</p> End if Else Response. Write"<P>你好!欢迎访问!</p> End If Response. Write"< a href=1ogin.htm'>返回</A> </BODY> 例3-2-1 <8 Option Exp1icit影> 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 页面的具体代码如下： <HTML> <HEAD> <TITLE>检查登录信息</TITLE> </HEAD> <BODY> <% '取得用户名和密码，并删除用户名和密码中的首尾空格 username=Trim(Request.Form("username")) userpass=Trim(Request.Form("Pass1")) '检查用户名和密码是否正确 If username="admin" then If userpass="123456" then Response.Write "欢迎你，管理员" Else Response.Write "<P>对不起，密码错误！</P>" End If Else Response.Write "<P>你好！欢迎访问！</P>" End If Response.Write "<A href='login.htm'>返回</A>" %> </BODY> </HTML> 例 3-2-1： <% @ LANGUAGE=VBScript %> <% Option Explicit %> <% Dim intDegree Dim intDegre %> 例 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 <HTML < TITLE> MsgBOx使用方法</ TITLE> <Script Language="VBScript"> 定义子过程 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 </Sc1 <INPUT type=button" name="button1"value=Ex"> </BODY> </HTML> 例3-2-5: < TITLE> InputBox函数的使用</TTLE>
第 4 章 Response 与 Request 对象 9 %> 例 3-2-3： <% Option Explicit Dim intX '声明脚本级变量 intX=1 '给脚本级变量赋值 SetLocalVariable '调用过程修改变量的值 Response.Write intX '将脚本级变量的值发送到浏览器，值为 2 Sub SetLocalVariable intX=2 '给脚本级变量赋值 End Sub %> 例 3-2-4： <HTML> <HEAD> <TITLE>MsgBox 使用方法</TITLE> <Script Language="VBScript"> <!— ’定义子过程 Sub button1_OnClick Dim intResult intResult=MsgBox("你真的确定要提交吗？"&chr(13)&_ chr(10)&"提交后数据不可再更改。",4+32,"请你选择：") ’当点击不同按钮时给出不同响应 if intResult=6 then MsgBox("提交成功！"&chr(13)&chr(10)&"请点击确定关闭窗口！") else MsgBox("数据未提交成功！") end if End Sub --> </Script> </HEAD> <BODY> <INPUT type="button" name="button1" value="提交"> </BODY> </HTML> 例 3-2-5： <HTML> <HEAD> <TITLE>InputBox 函数的使用</TITLE>
ASP程序设计教程 </HEAD> <Script Language="VBScript"> Dim strUserN ame, strUserAddress struserName= InputBox("请输入您的名字:","用户信息记录”) strUserAddress= InputBox("请输入您的住址:","用户信息记录") MsgBOx("您的基本信息为:"&chx(13)kchx(10)&"姓名:" struserName &chr(13)&chr(10)&"tt:"&chr(13)&chr(10)&strUserAddress </BODY> 例3-4-1 <HTML <HEAD><T工TLE>工F.ELSE嵌套语句</TTE> <SCRIPT LANGUAGE="VBScript"> 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></HEAD> <BODY>
10 ASP 程序设计教程 </HEAD> <BODY> <Script Language="VBScript"> <!-- Dim strUserName,strUserAddress strUserName=InputBox("请输入您的名字：","用户信息记录") strUserAddress=InputBox("请输入您的住址：","用户信息记录") MsgBox("您的基本信息为："&chr(13)&chr(10)&"姓名："&strUserName_ &chr(13)&chr(10)&"住址："&chr(13)&chr(10)&strUserAddress) --> </Script> </BODY> </HTML> 例 3-4-1： <HTML> <HEAD><TITLE>IF...ELSE 嵌套语句</TITLE> <SCRIPT LANGUAGE="VBScript"> 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 </SCRIPT></HEAD> <BODY> <INPUT type="button" name="button1" value="查看"> </BODY> </HTML>