建立链接

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