ASP教学教案Word文档格式.docx

ASP教学教案Word文档格式.docx

《ASP教学教案Word文档格式.docx》由会员分享，可在线阅读，更多相关《ASP教学教案Word文档格式.docx（84页珍藏版）》请在冰豆网上搜索。

第四种运用系统数据源

ThefollowingusesaDataSourceName:

Example

conn.open"

Example"

第五种运用ODBC数据源，前提是你必须在控制面板的ODBC中设置数据源

setrs=server.createobject（"

adodb.recordset"

rs.open"

tblname"

"

DSNName"

3,3 

第一种-这种方法用在ACCESS中最多

3.Error对象

Error对象的属性和方法

Count:

统计错误集合数.

Clear:

清除Error对象集合.

Item:

指定一个错误.

小提示:

可以用OnErrorResumeNext来强行跳过错误继续执行程序.

4.Command对象

记录由数据库所取得的数据对象

5.RecordSet对象

该对象表示的是来自基本表或命令执行结果的记录全集,任何情况下该对象所指的但前记录均为集合内的单个记录.

实例:

一个分页显示程序

<

%@LANGUAGE="

VBSCRIPT"

CODEPAGE="

936"

%>

%

SetConn=Server.CreateObject（"

ADODB.Connection"

Conn.connectionstring="

driver={sqlserver};

server=服务器名;

uid=登陆用户;

pwd=数据库密码;

database=数据库"

IFRequest（"

page"

）<

>

"

Then

Page=int（Abs（Request（"

）））

Else

page=1

Endif

mypagesize=20'

设置本页显示记录数

setrs=Server.CreateObject（"

ADODB.Recordset"

sql="

sql查询语句"

rs.opensql,conn,1,1

total=rs.RecordCount

'

计算总页数

iftotalmodmypagesize=0then

pagecounts=int（total/mypagesize）

else

pagecounts=int（total/mypagesize）+1

endif

计算每一页第一条记录的id

recordid=int（abs（（page-1）*mypagesize））

rs.move[recordid]

最后一页

ifpage=pagecountsandtotalmodmypagesize<

0then

m=totalmodmypagesize

m=mypagesize

fontcolor="

#000000"

共

%response.writepagecounts%>

页<

/font>

<

第<

b>

%=page%>

/b>

页

%ifpage<

1then%>

ahref='

?

page=<

%=page-1%>

上一页<

/a>

%endif%>

forj=1topagecounts

response.write"

page="

j&

fontcolor='

#000000'

["

]<

next

%ifpage<

pagecountsthen%>

%=page+1%>

下一页<

第2周时间安排：

下半周测验

使用asp显示数据库内容

使用asp动态生成表格内容

showly.asp

!

--#includefile="

conn.asp"

-->

ifsession（"

flag"

）="

then

else

'

ifsession（"

1"

DuserId=request（"

DuserId"

b1=request（"

b1"

ifb1="

删除"

sql="

deletefromadminwhereid="

+rtrim（ltrim（DuserId））

con.executesql

endif

endif

bb=request（"

d1"

ifbb="

thenbb="

计网051"

sql="

select*fromadminwhere权限>

0and班别='

+bb+"

orderby班别,学号"

其它"

then

0and班别<

计网051'

and班别<

计网052'

计网031'

计软031'

sql=sql++"

rs.opensql,con,1,2,1

icount=rs.recordcount

html>

head>

metahttp-equiv="

Content-Type"

content="

text/html;

charset=gb2312"

metaname="

GENERATOR"

MicrosoftFrontPage4.0"

ProgId"

FrontPage.Editor.Document"

title>

NewPage1<

/title>

linkhref="

style.css"

rel="

stylesheet"

type="

text/css"

basetarget="

contents"

/head>

body>

formmethod="

POST"

action="

showly.asp"

p>

selectsize="

name="

D1"

option<

%ifbb="

thenresponse.write"

selected"

%>

>

计网051<

/option>

计网052"

计网052<

计网031"

计网031<

计软031"

计软031<

其它<

/select>

inputtype="

submit"

value="

确定"

B1"

/p>

/form>

　<

fontsize="

2"

本班共注册<

%=icount%>

人。

br>

hr>

tableborder="

0"

width="

100%"

height="

45"

class="

tb3"

tr>

tdwidth="

30%"

14"

学号<

/td>

姓名<

ifsession（"

or（session（"

5"

andbb="

）then

删除<

endif

/tr>

dowhilenotrs.eof

valign="

top"

13"

%=rs.fields（"

学号"

）%>

　<

login.asp?

id=<

id"

user=<

用户名"

target=main>

palign="

center"

hidden"

%=bb%>

rs.movenext

loop

/table>

/body>

/html>

第3周时间安排：

使用asp显示数据库

form表单提交数据到数据库

uploadkj.asp

--#includeFILE="

upload_5xsoft.inc"

-->

userid=session（"

userid"

setupload=newupload_5xsoft

setfile=upload.file（"

file1"

setrs=server.createobject（"

rs.CursorType=1

rs.CursorLocation=2

rs.LockType=3

iffile.fileSize>

0then

'

file.saveAsServer.mappath（"

temp.jpg"

file_name=file.filename

tmp=mid（file.filename,InStrRev（file.filename,"

\"

）+1）'

获取文扩展名

tmp=mid（tmp,instrrev（tmp,"

."

）+1）

tmp=ucase（tmp）

mydate=split（date,"

-"

）'

将上传时间作为文件名

mytime=split（time,"

:

randomize

a=Int（（100-0）*rnd+1）

filename=join（mydate,"

）&

join（mytime,"

a&

tmp

path="

Up/"

allpath=path&

filename

filesize=int（file.filesize/1024）'

&

K"

file.saveAsServer.mappath（allpath）

rs.open"

filename"

con

rs.addnew

rs（"

原文件名"

）=file_name

文件名"

）=filename

文件大小"

）=filesize

用户id"

）=userid

上传时间"

）=now（）

rs.update

session（"

kjname"

setfile=nothing

setupload=nothing

setrs=nothing

response.Redirect（"

file.asp"

第4周时间安排：

使用asp修改数据库内容

正确形成sql语句

modipwd.asp

str1=rtrim（ltrim（request（"

t1"

str2=rtrim（ltrim（request（"

t2"

str3=rtrim（ltrim（request（"

t3"

select*fromadminwhere用户名='

+str1+"

and密码='

+str2+"

con,1,2,1

ifrs.recordcount>

rs.fields（"

密码"

）=str3

rs.update

response.write"

密码修改成功。

response.redirect"

login.asp"

第5周时间安排：

使用asp删除数据库内容

delfile.asp

id=request（"

deletefromfilenamewhereid="

+ltrim（rtrim（id））

con.executesql

1orderby班别,学号"

response.redirect"

Content-Language"

zh-cn"

sfs<

第6周

登录程序

login.asp

user=request（"

user"

if（session（"

））="

if（session（"

））=userorsession（"

response.redirect"

file.asp?

id="

+request（"

）+"

username="

else

用户名<

用户登录

chklogin.asp"

50%"

align="

right"

用户名:

text"

T1"

size="

20"

%=user%>

密码:

password"

T2"

登录"

reset"

清除"

B2"

修改密码

modipwd.asp"

旧密码:

新密码:

T3"

修改"

50