建立鏈接
- conn.asp
- <%
- dim conn
- set conn = server.createobject("adodb.connection")
- conn.open "driver={sql server};database=guest;server=(local);uid=sa;pwd=password"
- %>
- <%
- rs.close
- set rs = nothing
- conn.close
- set conn = nothing
- %>
ASP鏈接sql server--數據庫查詢
- <!--#include file="conn.asp"-->
- <%
- response.charset = "GBK"
- dim rs,sql
- set rs = server.createobject("adodb.recordset")
- sql = "select * from g_reg"
- rs.open sql,conn,1,1
- %>
- <html>
- <head>
- <title>註冊留言板</title>
- </head>
- <body>
- <table border="1" align="center" width="800">
- <caption>用戶管理</caption>
- <tr><th>id</th><th>用戶名</th><th>性別</th><th>年齡</th><th>電子郵件</th><th>註冊時間</th><th>操作</th></tr>
- <%
- do while not rs.eof
- %>
- <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>
- <%
- rs.movenext
- loop
- %>
- </table>
- </body>
- </html>
- <%
- rs.close
- set rs = nothing
- conn.close
- set conn = nothing
- %>
asp鏈接sql server數據庫，登錄的驗證，和登錄信息的保存
登錄頁面 login.asp
- <html>
- <head>
- <title>註冊留言板</title>
- </head>
- <body>
- <form method="post" action="login_do.asp">
- <dl>
- <dt>會員註冊</dt>
- <dd>用戶名：<input type="text" name="username" /></dd>
- <dd>密 碼：<input type="password" name="password" /></dd>
- <dd><input type="submit" value="登錄" /></dd>
- </dl>
- </form>
- </body>
- </html>
登錄處理頁面login_do.asp
- <!--#include file="conn.asp"-->
- <%
- response.charset = "GBK"
- dim username,password,rs,sql,level
- username = request.form("username")
- password = request.form("password")
- '實現數據庫驗證
- set rs = server.createobject("adodb.recordset")
- sql = "select g_username,g_password,g_level from g_reg where g_username='"&username&"' and g_password='"&password&"'"
- rs.open sql,conn,1,1
- '判斷是否有數據
- if not rs.eof then
- if rs("g_level") = true then
- session("admin") = username
- end if
- response.cookies("login") = username
- response.redirect "write.asp"
- else
- response.write "<script>alert('用戶名或密碼不正確');history.back();</script>"
- end if
- rs.close
- set rs = nothing
- conn.close
- set conn = nothing
- %>
使用asp鏈接sql server數據庫，得到url中的id進行刪除操作
del.asp
- <!--#include file="conn.asp"-->
- <%
- response.charset = "GBK"
- dim sql
- sql = "DELETE FROM g_reg WHERE g_id="&request.querystring("id")
- conn.execute(sql)
- response.redirect "index.asp"
- %>
分頁代碼
- <!--#include file="conn.asp"-->
- <%
- dim rs
- set rs = server.createobject("adodb.recordset")
- rs.open "零件報價表",conn,1,1
- '首先必須設置每頁多少條
- rs.pagesize = 5 '目前設置了每頁10條
- '我來接受頁碼
- '接收到得值爲字符串，必須轉換成整數比較
- 'cint(接收)，可以比較了
- '先判斷是否爲字符串，如果是的話，就rs.absolutepage = 1
- '如果不是，再判斷是否爲空，是否爲小於1，大於最大的頁碼
- if isnumeric(request.querystring("page")) then
- if request.querystring("page") = "" or cint(request.querystring("page"))<1 then
- rs.absolutepage = 1
- elseif cint(request.querystring("page"))>rs.pagecount then
- rsrs.absolutepage = rs.pagecount
- else
- rs.absolutepage = request.querystring("page")
- end if
- else
- rs.absolutepage = 1
- end if
- %>
- <html>
- <head>
- <title>數據庫分頁技術</title>
- <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
- </head>
- <body>
- <p align="center">一共有<%=rs.recordcount%>條數據</p>
- <p align="center">
- <%
- for i = 1 to rs.pagecount
- response.write "<a href='11-15.asp?page="&i&"'>" & i & "</a> | "
- next
- %>
- </p>
- <table border="1" width="600" align="center">
- <tr><th>編號</th><th>零件種類</th><th>廠家</th><th>規格</th><th>價格</th><th>報價日期</th></tr>
- <%
- for i=1 to rs.pagesize
- if rs.eof then exit for
- %>
- <tr><td><%=rs("編號")%></td><td><%=rs("零件種類")%></td><td><%=rs("廠家")%></td><td><%=rs("規格")%></td><td><%=rs("價格")%></td><td><%=rs("報價日期")%></td></tr>
- <%
- rs.movenext
- next
- %>
- </table>
- </body>
- </html>
- <!--#include file="close.asp"-->
本文出自 “Kenan_ITBlog” 博客，請務必保留此出處http://soukenan.blog.51cto.com/5130995/1156997