本程序主要用到Connection、RecordSet这两个对象,程序中的数据库为Access库,采用OLEDB方式连接库。
这个东西是作为菜鸟的我弄的一个东西.
你可以对这个东西不屑一顾.但是请记住: 菜鸟也有这个权利把自己的心得体会附注文字贡献出来.....当然,技术方面真的是好菜的..一些ASP中的比较正统的中规中矩的方法.我觉得这个东西可能对初学者有些帮助.......见笑了..
一个简单的分页教程:
<%Set conn = Server.CreateObject("ADODB.Connection")
strcon="provider=microsoft.jet.oledb.4.0data source="& _
server.mappath("mdb.mdb")
conn.Open strcon
Set rs = Server.CreateObject ("ADODB.Recordset")
sql="select * from table order by id desc"
rs.Open sql, conn, 1
page=1 ' 设置变量PAGE=1
rs.PageSize = 5 '每页显示记录数
if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...
Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量
if Page > rs.PageCount then '如果接收的页数大于总页数
rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页
elseif Page <= 0 then '如果page小于等于0
Page = 1 '设置PAGE等于第一页
else
rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
end if
End if
Page = rs.AbsolutePage
%>
<%
For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if '利用for next 循环依次读出记录
%>
第一个文件:313logon.htm,在这个文件里,缺少了</form>,请加上。虽然这个不是ASP的代码,但是HTML代码也要求标签一一对应的。第二个文件:If User!="张胖胖" then ,在ASP里,"不等于"不是用"!="来表示的,而是用"<>"来表示。因此要改成:IF User<>"张胖胖" then
还有if Pass!="1234567" then 同理也要改成if Pass<>"1234567" then
另外在第二个文件里,最后的endif也是不正确的,应该改成"end if",注意end与if中间有个空格
1.首先你的机器要装有iis服务器2.在iis下新建网站,并指定硬盘目录如:d:\myweb 网站名称mytest
3.新建文件hello.asp 内容为
<%
response.write("hello asp")
%>
4.在iis下浏览文件hello.asp 即可
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)