ASP教学教案.docx
- 文档编号:9010337
- 上传时间:2023-02-02
- 格式:DOCX
- 页数:84
- 大小:44.03KB
ASP教学教案.docx
《ASP教学教案.docx》由会员分享,可在线阅读,更多相关《ASP教学教案.docx(84页珍藏版)》请在冰豆网上搜索。
ASP教学教案
ASP教学教案
时间:
第1周
内容:
复习ASP访问数据库内容
难点、重点:
ado控件、及其子控件
过程:
1.使用ADO对象
ADO(ActiveXDataObject)支持建立客户端/服务器和web服务器应用的主要功能
配置DSN使用ADO对象(DSN:
DataSourceName,数据源名)
2.Connection对象(conn)
提供与数据库的连接
几种数据库连接的方法:
第一种-这种方法用在ACCESS中最多
strconn="DRIVER=MicrosoftAccessDriver(*.mdb);DBQ="_
&Server.MapPath("aspfree.mdb")
setconn=server.createobject("adodb.connection")
conn.openstrconn
第二种-这种方法用在SQLSERVER中多
strconn="Driver={SQLServer};Description=sqldemo;SERVER=127.0.0.1;"_
&"UID=LoginID;Password=;DATABASE=Database_Name"
setconn=server.createobject("adodb.connection")
conn.openstrconn
第三种
strconn="Driver={MicrosoftAccessDriver(*.mdb)};"_
&"DBQ=F:
\Inetpub\wwwroot\somedir\db1.mdb;DefaultDir="_
&"f:
\Inetpub\wwwroot\somedir;uid=LoginID;"_
&"pwd=Password;DriverId=25;FIL=MSAccess;"
setconn=server.createobject("adodb.connection")
conn.openstrconn
第四种运用系统数据源
ThefollowingusesaDataSourceName:
Example
setconn=server.createobject("adodb.connection")
conn.open"Example"
第五种运用ODBC数据源,前提是你必须在控制面板的ODBC中设置数据源
setrs=server.createobject("adodb.recordset")
rs.open"tblname","DSNName",3,3 第一种-这种方法用在ACCESS中最多
strconn="DRIVER=MicrosoftAccessDriver(*.mdb);DBQ="_
&Server.MapPath("aspfree.mdb")
setconn=server.createobject("adodb.connection")
conn.openstrconn
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("page")))
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
else
m=mypagesize
endif
%>
<%response.writepagecounts%>
页
<%ifpage<>1then%>
page=<%=page-1%>'>上一页 <%endif%> <% forj=1topagecounts response.write" page="&j&"'> next %> <%ifpage page=<%=page+1%>'>下一页 <%endif%> 时间: 第2周时间安排: 下半周测验 内容: 使用asp显示数据库内容 难点、重点: 使用asp动态生成表格内容 过程: showly.asp --#includefile="conn.asp"--> <% ifsession("flag")=""then else 'ifsession("flag")="1"then DuserId=request("DuserId") b1=request("b1") ifb1="删除"then sql="deletefromadminwhereid="+rtrim(ltrim(DuserId)) con.executesql endif 'endif endif bb=request("d1") ifbb=""thenbb="计网051" sql="select*fromadminwhere权限>0and班别='"+bb+"'orderby班别,学号" ifbb="其它"then sql="select*fromadminwhere权限>0and班别<>'计网051'and班别<>'计网052'and班别<>'计网031'and班别<>'计软031'" sql=sql++"orderby班别,学号" endif rs.opensql,con,1,2,1 icount=rs.recordcount %>
本班共注册<%=icount%>人。
<%
ifsession("flag")="1"or(session("flag")="5"andbb="计网052")then
%>
<%
endif
%>
<%
dowhilenotrs.eof
%>
id=<%=rs.fields("id")%>&user=<%=rs.fields("用户名")%>'target=main><%=rs.fields("用户名")%> <% ifsession("flag")="1"or(session("flag")="5"andbb="计网052")then %>
<%
endif
%>
<%
rs.movenext
loop
%>
时间:
第3周时间安排:
下半周测验
内容:
使用asp显示数据库
难点、重点:
form表单提交数据到数据库
过程:
uploadkj.asp
--#includeFILE="upload_5xsoft.inc"-->
--#includefile="conn.asp"-->
<%
userid=session("userid")
setupload=newupload_5xsoft
setfile=upload.file("file1")
'setrs=server.createobject("adodb.recordset")
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
rs("文件名")=filename
rs("文件大小")=filesize
rs("用户id")=userid
rs("上传时间")=now()
rs.update
'session("kjname")=filename
endif
setfile=nothing
setupload=nothing
setrs=nothing
response.Redirect("file.asp")
%>
时间:
第4周时间安排:
下半周测验
内容:
使用asp修改数据库内容
难点、重点:
正确形成sql语句
过程:
modipwd.asp
--#includefile="conn.asp"-->
<%
str1=rtrim(ltrim(request("t1")))
str2=rtrim(ltrim(request("t2")))
str3=rtrim(ltrim(request("t3")))
rs.open"select*fromadminwhere用户名='"+str1+"'and密码='"+str2+"'",con,1,2,1
ifrs.recordcount>0then
rs.fields("密码")=str3
rs.update
response.write"密码修改成功。
"
else
response.redirect"login.asp"
endif
%>
时间:
第5周时间安排:
下半周测验
内容:
使用asp删除数据库内容
难点、重点:
正确形成sql语句
过程:
delfile.asp
--#includefile="conn.asp"-->
<%
ifsession("flag")=""then
response.redirect"login.asp"
endif
id=request("t1")
sql="deletefromfilenamewhereid="+ltrim(rtrim(id))
con.executesql
'rs.open"select*fromadminwhere权限>1orderby班别,学号",con,1,2,1
response.redirect"file.asp"
%>
时间:
第6周
内容:
登录程序
难点、重点:
过程:
login.asp
<%
user=request("user")
if(session("flag"))=""then
'response.redirect"login.asp"
else
if(session("user"))=userorsession("userid")="1"then
response.redirect"file.asp?
id="+request("id")+"&username="+request("user")
else
'response.redirect"login.asp"
endif
endif
%>
用户登录
修改密码
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。 copyright@ 2008-2022 冰点文档网站版权所有 经营许可证编号:鄂ICP备2022015515号-1