8.2 ASP 技术

27
8.2 ASP 技技

description

8.2 ASP 技术. 8.2.1 ASP 的语法. 1、编制的语言 VBScript JavaScript 2、格式:  结束 3、工具:记事本  FrontPage2000/XP Dreamweave Ultradev. 4. 服务器支持 Personal Web Server IIS 其他. 8.2.2 数据库的建立. Access 数据库的操作和使用. 8.2.3 在 ASP 中使用 SQL 语法示例. 连接数据库 - PowerPoint PPT Presentation

Transcript of 8.2 ASP 技术

Page 1: 8.2 ASP 技术

8.2 ASP 技术

Page 2: 8.2 ASP 技术

8.2.1 ASP 的语法

1、编制的语言   VBScript   JavaScript 2、格式: <%  开始 %>  结束 3、工具:记事本  FrontPage2000/XP Dre

amweave Ultradev

Page 3: 8.2 ASP 技术

4. 服务器支持 Personal Web Server IIS 其他

Page 4: 8.2 ASP 技术

8.2.2 数据库的建立

Access 数据库的操作和使用

Page 5: 8.2 ASP 技术

8.2.3 在 ASP 中使用 SQL 语法示例

连接数据库

strProvider = "Provider=Microsoft.JET.OLEDB.4.0;Data Source= 将该段文字替换为本地硬盘上数据库的路径 ;"

Set objConn = server.createobject("ADODB.Connection")

objConn.Open strProvider

Page 6: 8.2 ASP 技术

DELETE

strCommand = "DELETE FROM Customers WHERE LastName = 'Smith'"

objConn.Execute strCommand

Page 7: 8.2 ASP 技术

SELECT

sql1="select * from online where 姓名='" & name & "' and passwd='" & passwd & "'"

set rs=objConn.execute(sql1)

Page 8: 8.2 ASP 技术

UPDATE

strCommand = "UPDATE online SET 平时 1 = '" & score & "' WHERE 姓名 = '" & name & "' "

objConn.Execute strCommand

Page 9: 8.2 ASP 技术

INSERT

strCommand = "INSERT INTO Customers (FirstName, LastName) VALUES ('Jose','Lugo')"

objConn.Execute strCommand

Page 10: 8.2 ASP 技术

8.2.4 ASP 中的对象

1 . Response 该对象用来向文档中输出服务器执行程序的结

果 2 . Request 该对象用来获取用户的相关信息

Page 11: 8.2 ASP 技术

3 . Application ASP 中的 Application 对象是用来存储各种变

量的 4 . Session Session 对象也是用来存储各种信息的,但该

对象只是针对单一用户而言

Page 12: 8.2 ASP 技术

5 . Server 该对象用来获取服务器中的属性和方法 6 . Error 该对象用来显示一个 ASP 页面错误的详细信

Page 13: 8.2 ASP 技术

8.2.5 ASP 编程示例

Page 14: 8.2 ASP 技术

1 、最简单的 ASP

<%@ Language=JScript %> <font face="MS Gothic"> <% var strGreeting; strGreeting = "Hello World!"; %> <%=strGreeting%>

Page 15: 8.2 ASP 技术

用 VBScript <% strGreeting=“Hello, World!” %> <%= strGreating %>

Page 16: 8.2 ASP 技术

简化一下:<%=“Hello,World!”%>

Page 17: 8.2 ASP 技术

2 、显示时间

<%@ Language=JScript %> <% var months; var hours; today = new Date(); months = today.getMonth()+1; hours =today.getHours(); if (hours <12){ %> <%= " 早上好! " %>

Page 18: 8.2 ASP 技术

<% }else if (hours < 18) { %> <%= " 下午好! "%> <% }else if (hours < 24) { %> <%= " 晚上好! " %> <% } %>

Page 19: 8.2 ASP 技术

用 VBScript <% Dim dtmHour dtmHour = Hour(Now()) If dtmHour < 12 Then strGreeting = " 早上好! " Else     strGreeting = " 您好! " End If   %> <%= strGreeting %>

Page 20: 8.2 ASP 技术

进一步修改

<% ‘ 下面增加时间参数

dtmYear=Year(Now()) dtmMonth=Month(Now()) dtmDay=Day(Now()) dtmHour = Hour(Now()) dtmMin=Minute(Now()) dtmsec=Second(Now())

Page 21: 8.2 ASP 技术

If dtmHour < 12 Then strGreeting = " 早上好! " Else strGreeting = " 您好! " End If %>

<%= " 现在的时间是: " &dtmHour & " 时 " & dtmMin & " 分 " & dtmsec &" 秒 <br> 今年是: " & dtmYear & " 年 " & dtmMonth & " 月 " & dtmDay &" 日 <br>" %>

<%= strGreeting %>

Page 22: 8.2 ASP 技术

3 、一个简单的留言本

1 、表单的制作 <form method="POST" name="guestboo

k" action ="gresult.asp">

Page 23: 8.2 ASP 技术

2、用 Access 制作数据库 数据库名称: guestbook.mdb 字段:姓名、留言

Page 24: 8.2 ASP 技术

3、数据库操作

Page 25: 8.2 ASP 技术

4、 gresult.asp 代码 <% dim strTB1, strTB2, strCommand strTB1 =Server.HTMLEncode(Request.Query

String("name")) strTB2 =Server.HTMLEncode(Request.Query

String("content")) strProvider = "Provider=Microsoft.JET.OLED

B.4.0;Data Source=D:\InetPub\Wwwroot\fpdb\guestbook.

mdb;"

Page 26: 8.2 ASP 技术

Set objConn = server.createobject("ADODB.Connection")

objConn.Open strProvider strCommand = "INSERT INTO guest( 姓名 , 留

言 ) VALUES ('" strCommand = strCommand & strTB1 &

"','" & strTB2 strCommand = strCommand & "')" objConn.Execute strCommand Response.Write(" 谢谢!数据添加成功。 ") %>

Page 27: 8.2 ASP 技术

8.2.6 在线考试