a sp教程课件.pptVIP

td%=rs(“PWD”)%/td td%=rs(“RealName”)%/td td修改 删除/td/tr % rs.movenext i=i+1 Loop else Response.write(“没有记录”) end if % trtd colspan=5 height=“25” bgcolor=“#99CC66”div align=“right”记录总数：%=rs.recordcount% 当前页:%=PageNo%/%=rs.PageCount% 页大小:%=rs.PageSize% a href=“?PageNo=1”首页/a a href=“?PageNo=%=PageNo-1%”上页/a a href=“?PageNo=%=PageNo+1%”下页/a a href=“?PageNo=%=rs.PageCount%”末页/a input type=text ID=“goPage” value=“%=PageNo%” size=2 input type=button name=button1 value=“GO” onclick=“location=‘?PageNo=’+document.all.GoPage.value;”/div/td % rs.close % /table 综合实例1：聊天室实现，数据库Chat.mdb中有一个聊天信息表tb_Chat_info，字段如下： ID 自动编号 主键 NickName 妮称 文本(20) toNickName 聊天对象妮称 文本(20) sayWord 用户所说的话 文本(100) CreateTime 聊天时间 文本(20) 包括文件：conn.asp页面，Login.asp登录页面，Chat.asp框架页面，左框架Main.asp(聊天信息显示页面)，右框架OnLine.asp(在线用户列表页)，下框架Send.asp(聊天信息发送页面)。该实例中需要用到Application(“OnLineUserList”)变量来保存在线用户列表(保存格式为以|间隔每个用户)， Login.asp登录表单提交给自己处理,登录成功转向到chat.asp，在login.asp中将检查用户是否在线，在线则不允许登录，否则则登录并在在线列表Application变量中增加该在线用户。其它所有表单均提交给本页进行处理，因此会用到Request.Form.count属性。 conn.asp文件内容： % dim ConnString set conn=server.createobject(“adodb.connection”) ConnString=“Provider=Microsoft.jet.oledb.4.0;Data Source=” Server.Mappath(“Chat.mdb”) conn.open ConnString count.asp统计的内容： % Application.lock select case Request.QueryString(“url”) case “/” Application(”AD01”)= Application(”AD01”)+1 case “/” Application(”AD02”)= Application(”AD02”)+1 case “/” Application(”AD03”)= Application(”AD03”)+1 end select Application.unlock Response.Redirect(Request.QueryString(“url”)) % index.asp页面内容： body % set myADRotator=server.create