ASP程序设计总结

最新推荐文章于 2021-01-17 13:11:40 发布

wlcscu

最新推荐文章于 2021-01-17 13:11:40 发布

阅读量2.1k

点赞数

文章标签： asp 数据库 user sql sqlserver microsoft

本文链接：https://blog.csdn.net/wlcscu/article/details/1810748

版权

由于过两天就要做密码学方面的东西了，所以就简单地就近段时间所做的ASP程序(用VB)做一下总结。我没有打算要在这方面成为expert，所以也没有做出什么像样的东西，几个工程都是半途而废，不过近一个月来的工作，我还是有些收获的。马马虎虎写了BBS、网上聊天、日历、留言本、网上考试、网上书店，这些程序都没有完完整整地写完过，很多都不规范，所以只能将一些有用的程序模块拿出来，希望对将来有借鉴意义。

模块一：数据库连接

1、对关系数据库SQLSERVER的连接：

Set conn=server.CreateObject("adodb.connection")

conn.Open "Provider=SQLOLEDB.1;Password=708;Persist Security Info=False;User ID=wang;Initial Catalog=bbs;Data Source='127.0.0.1'"

sql="select * from user_all"

set rs=server.CreateObject("adodb.recordset")

rs.Open sql,conn

2、对非关系数据库如ACSESS的连接：

set conn=server.CreateObject("adodb.connection")

conn.Open "dsn=pubs"

sql="select * from authors"

set rs=conn.execute(sql)

或者下面：

set conn=server.createobject("adodb.connection")

conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data/guestbook.mdb")

exec="select * from guest"

set rs=server.createobject("adodb.recordset")

rs.open exec,conn,1,1

模块二：数据库文件内容的分页显示

mypage=request.QueryString("whichpage")

if mypage="" then

mypage=1

end if

if mypagesize="" then

mypagesize = 4

end if

set rs=server.CreateObject("adodb.recordset")

conn = "dsn=pubs"

sql="select * from authors"
rs.CursorLocation = 3
rs.Open sql,conn,3,3

rs.MoveFirst

rs.PageSize = mypagesize

maxcount=cint(rs.PageCount)

rs.AbsolutePage = mypage

howmanyfields=rs.fields.count-1

howmanyres=0

response.Write "Page "&mypage&" of "&maxcount&"

........下面用循环显示rs.fields集合中的元素

模块三：框架文件的自适应调整

iframe name="win" frmeboder=1 scrolling=no height="100%" width="100%" marginheight=0 οnlοad="document.getElementById('win').style.height=win.document.body.scrollHeight+'px'"

模块四：登录验证

user=request.Form("user")

psd=request.Form("psd")

isuser=false

rs.MoveFirst

do while not rs.EOF and isuser=false

if strcomp(cstr(rs.Fields("user_id")),user,1)=0 and strcomp(rs.Fields("user_psd"),psd,1)=0 then

isuser=true

session("user_id")=user

exit do

end if

rs.MoveNext