建立链接

 
  
  1. conn.asp 
  2. <% 
  3.     dim conn 
  4.     set conn = server.createobject("adodb.connection") 
  5.     conn.open "driver={sql server};database=guest;server=(local);uid=sa;pwd=password" 
  6. %> 
close.asp用户关闭数据库链接 
  
 
 
  
 
  
  1. <% 
  2.     rs.close 
  3.     set rs = nothing  
  4.     conn.close   
  5.     set conn = nothing 
  6. %> 
 
  
ASP链接sql server--数据库查询
 
  
 
  
  1. <!--#include file="conn.asp"--> 
  2. <% 
  3.     response.charset = "GBK" 
  4.     dim rs,sql 
  5.     set rs = server.createobject("adodb.recordset") 
  6.     sql = "select * from g_reg" 
  7.     rs.open sql,conn,1,1 
  8. %> 
  9. <html> 
  10. <head> 
  11. <title>注册留言板</title> 
  12. </head> 
  13. <body> 
  14.      
  15.     <table border="1" align="center" width="800"> 
  16.         <caption>用户管理</caption> 
  17.         <tr><th>id</th><th>用户名</th><th>性别</th><th>年龄</th><th>电子邮件</th><th>注册时间</th><th>操作</th></tr> 
  18.     <% 
  19.         do while not rs.eof 
  20.     %> 
  21.         <tr><td><%=rs("g_id")%></td><td><%=rs("g_username")%></td><td><%=rs("g_sex")%></td><td><%=rs("g_age")%></td><td><%=rs("g_email")%></td><td><%=rs("g_date")%></td><td><a href="modify.asp?id=<%=rs("g_id")%>">修改</a> | <a href="del.asp?id=<%=rs("g_id")%>">删除</a></td></tr> 
  22.     <% 
  23.             rs.movenext 
  24.         loop 
  25.     %> 
  26.     </table> 
  27.      
  28. </body> 
  29. </html> 
  30.  
  31. <% 
  32.     rs.close 
  33.     set rs = nothing 
  34.     conn.close 
  35.     set conn = nothing 
  36. %> 
 
  
asp链接sql server数据库，登录的验证，和登录信息的保存
 
  
登录页面 login.asp
 
  
 
  
  1. <html> 
  2. <head> 
  3. <title>注册留言板</title> 
  4. </head> 
  5. <body> 
  6.      
  7.     <form method="post" action="login_do.asp"> 
  8.         <dl> 
  9.             <dt>会员注册</dt> 
  10.             <dd>用户名：<input type="text" name="username" /></dd> 
  11.             <dd>密　码：<input type="password" name="password" /></dd> 
  12.             <dd><input type="submit" value="登录" /></dd> 
  13.         </dl> 
  14.     </form> 
  15.      
  16. </body> 
  17. </html> 
 
  
登录处理页面login_do.asp
 
  
 
  
  1. <!--#include file="conn.asp"--> 
  2. <% 
  3.     response.charset = "GBK" 
  4.  
  5.     dim username,password,rs,sql,level 
  6.     username = request.form("username") 
  7.     password = request.form("password") 
  8.      
  9.     '实现数据库验证 
  10.     set rs = server.createobject("adodb.recordset") 
  11.     sql = "select g_username,g_password,g_level from g_reg where g_username='"&username&"' and g_password='"&password&"'" 
  12.     rs.open sql,conn,1,1 
  13.      
  14.      
  15.     '判断是否有数据 
  16.     if not rs.eof then 
  17.         if rs("g_level") = true then 
  18.             session("admin") = username 
  19.         end if 
  20.         response.cookies("login") = username 
  21.         response.redirect "write.asp" 
  22.     else 
  23.         response.write "<script>alert('用户名或密码不正确');history.back();</script>" 
  24.     end if 
  25.      
  26.      
  27.     rs.close 
  28.     set rs = nothing 
  29.     conn.close 
  30.     set conn = nothing 
  31. %> 
 
  
使用asp链接sql server数据库，得到url中的id进行删除操作
 
  
del.asp
 
  
 
  
  1. <!--#include file="conn.asp"--> 
  2. <% 
  3.     response.charset = "GBK" 
  4.  
  5.     dim sql 
  6.     sql = "DELETE FROM g_reg WHERE g_id="&request.querystring("id") 
  7.     conn.execute(sql) 
  8.      
  9.     response.redirect "index.asp" 
  10.      
  11. %> 
 
  
分页代码
 
  
 
  
  1. <!--#include file="conn.asp"--> 
  2. <% 
  3.     dim rs 
  4.     set rs = server.createobject("adodb.recordset")   
  5.     rs.open "零件报价表",conn,1,1 
  6.      
  7.     '首先必须设置每页多少条 
  8.     rs.pagesize = 5  '目前设置了每页10条 
  9.      
  10.     '我来接受页码 
  11.     '接收到得值为字符串，必须转换成整数比较 
  12.     'cint(接收)，可以比较了 
  13.     '先判断是否为字符串，如果是的话，就rs.absolutepage = 1 
  14.     '如果不是，再判断是否为空，是否为小于1，大于最大的页码 
  15.      
  16.     if isnumeric(request.querystring("page")) then 
  17.         if request.querystring("page") = "" or cint(request.querystring("page"))<1 then 
  18.             rs.absolutepage = 1 
  19.         elseif cint(request.querystring("page"))>rs.pagecount then 
  20.             rsrs.absolutepage = rs.pagecount 
  21.         else 
  22.             rs.absolutepage = request.querystring("page") 
  23.         end if 
  24.     else 
  25.         rs.absolutepage = 1 
  26.     end if 
  27.  
  28. %> 
  29. <html> 
  30. <head> 
  31. <title>数据库分页技术</title> 
  32. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> 
  33. </head> 
  34. <body> 
  35.  
  36.  
  37.  
  38. <p align="center">一共有<%=rs.recordcount%>条数据</p> 
  39.  
  40. <p align="center"> 
  41. <% 
  42.     for i = 1 to rs.pagecount 
  43.         response.write "<a href='11-15.asp?page="&i&"'>" & i & "</a> | " 
  44.     next 
  45. %> 
  46. </p> 
  47.  
  48. <table border="1" width="600" align="center"> 
  49.      
  50.     <tr><th>编号</th><th>零件种类</th><th>厂家</th><th>规格</th><th>价格</th><th>报价日期</th></tr> 
  51.  
  52. <% 
  53.     for i=1 to rs.pagesize 
  54.         if rs.eof then exit for 
  55. %> 
  56.     <tr><td><%=rs("编号")%></td><td><%=rs("零件种类")%></td><td><%=rs("厂家")%></td><td><%=rs("规格")%></td><td><%=rs("价格")%></td><td><%=rs("报价日期")%></td></tr> 
  57. <% 
  58.         rs.movenext 
  59.     next 
  60. %> 
  61.  
  62. </table> 
  63.      
  64.  
  65. </body> 
  66. </html> 
  67. <!--#include file="close.asp"-->