Asp教程大集合

 ASP连接SQL Server2000数据库例程
<%
Dim mode
mode=request.form("text4")
if mode=1 then
name=request.form("text1")
age=request.form("text2")
addr=request.form("text3")
if not isnumeric(age) then response.write "age must be number!try again":response.end
age=clng(age)
end if
"********************************************************************" 与SQL Server2000有关的连接

" 可以参照它建立您的数据库连接
"********************************************************************"敬请注意：
"请根据情况配置StrServer,StrUid,StrSapwd,StrDbName四个参数
Dim StrServer,StrUid,StrSaPwd,StrDbName
StrServer="(local)" "数据库服务器名
StrUid="testuser" "您的登录帐号
StrSaPwd="12345" "您的登录密码
StrDbName="db_test_com" "您的数据库名称
Dim Conn "数据库连接
Dim StrDSN "数据库连接字符串
Dim Rs "命令字符串
StrDSN="driver={SQL server};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName
"建立和数据库master的连接
set Conn = Server.CreateObject("ADODB.Connection")
set Rs=Server.CreateObject("ADODB.RecordSet")
Conn.Open StrDSN
...
4．一个数据库分页的例子
db_page.asp
<%
on error resume next
Set conn=Server.CreateObject("ADODB.Connection") '创建连接数据库的对象conn.Open "course_dsn","course_user","course_password" '使用该对象连接数据库
set rs=server.createObject("adodb.recordset")
sql="select * from user_info order by id desc"
rs.open sql,conn,1,1
page 15
if rs.recordcount>0 then '如果有记录
rs.pagesize=2 '每页最多显示2条纪录
'从URL获取当前要显示的页
page=cint(request("page"))
'页面参数异常处理
if page="" then page=1
if page<1 then page=1
if page>= rs.pagecount then page=rs.pagecount
rs.absolutepage=page '当前页为page参数指定的页
for i=1 to rs.pagesize '根据pagesize参数的大小循环显示当前页中的纪录 response.write "User_id："&rs("id")&"
"
response.write "User_name："&rs("user_name")&"
"
rs.movenext '纪录指针下移
if rs.eof then exit for '如果到达纪录集底部则退出循环
next
end if
'显示翻页按钮
if page>1 then
response.write "第一页　"
response.write "上一页　"
end if
if page<>rs.pagecount then
response.write "下一页　"
response.write "最后一页　"
end if
response.write"页码："&page&"/"&rs.pagecount
'关闭对象，释放内存
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
思考：分页过程中使用了哪些额外的属性？