asp登錄sql
A. 用sql+ASP的登陸代碼
把login.asp的<%%>里的部分換成
<%
Set rs = Server.CreateObject("ADODB.Recordset")
if Request.ServerVariables("REQUEST_METHOD")="POST" then
pwd = trim(request.form("adminpass"))
name = trim(request.form("adminuser"))
sql = "select * from L_adminuser where adminuser='" & name & "' And adminpass='"&pwd&"'"
rs.open sql,conn,1,1
while not rs.eof or not rs.bof
username=rs("adminuser")
password=rs("adminpass")
if request("adminuser")==username and request("adminpass")==password then
Response.Redirect "admin_index.asp"
else
rs.movenext
end if
wend
Response.Redirect "Loginsb.asp?msg=您輸入了錯誤的帳號或口令，請再次輸入！"
%>
試試
B. ASP注冊登錄用SQL資料庫
sql資料庫和access資料庫只是連接資料庫的方式不一樣，其他的操作代碼都是可以公用的一下是連接sql 和access資料庫簡單代碼<%
dim conn,connstr,db,rs,rs_s,rs_s1
'db="資料庫路徑"
set conn = server.createobject("adodb.connection")
connstr="driver={sql server};server=(local);uid=sql用戶名;pwd=sql密碼;database=newcer;connect"
'connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath(""&db&"")
conn.open connstr
%>注釋掉的是access的連接代碼用戶注冊其實就把信息添加到資料庫中，登錄就是把填入輸入框中的數據和資料庫中的做下比較，一下是一下代碼注冊處理代碼<!--#include file="md5.asp"-->
<!--#include file="conn/conn.asp"-->
<%if request.Form("pass")="OK" then
if request.Form("verifycode")<>Session("GetCode") then
response.Write "<script LANGUAGE='javascript'>alert('請輸入正確的驗證碼！');history.go(-1);</script>"
response.end
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [jx_users] where username='"&trim(request("username"))&"'",conn,1,1
if rs.recordcount>0 then
rs.close
set rs=nothing
call usererr() else
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [jx_users] where mail='"&trim(request("mail"))&"'",conn,1,1
if rs.recordcount>0 then
rs.close
set rs=nothing
call emailerr()
else
rs.close
set rs=nothing
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [jx_users]",conn,1,3
rs.addnew
'商城注冊
rs("username")=trim(request("username"))
rs("pwd")=md5(trim(request("pwd")))
rs("cmyname")=trim(request("cmyname"))rs("crd")=trim(request("crd"))
rs("crdnumber")=trim(request("crdnumber"))
rs("xm")=trim(request("xm"))
rs("sheng")=trim(request("sheng"))
rs("city")=trim(request("city"))
rs("adr")=trim(request("adr"))
rs("idcode")=trim(request("idcode"))rs("tel")=trim(request("tel"))
rs("fax")=trim(request("fax"))
rs("phone")=trim(request("phone"))
rs("mail")=trim(request("mail"))
'rs("mob")=trim(request("mob"))
'rs("sheng")=trim(request("fcity1"))
'rs("shi")=trim(request("fcity2"))
'rs("qu")=trim(request("fcity3"))
'rs("add")=trim(request("add"))
'rs("post")=trim(request("post"))
rs("qq")=trim(request("qq"))
rs("msn")=trim(request("msn"))'rs("adddate")=now()
rs("lastlogin")=now()
rs("logins")=1
'rs("jiaoyijine")=0
rs("userlastip")=Request.ServerVariables("REMOTE_ADDR")
rs.update
rs.close
set rs=nothing
response.Write "<script LANGUAGE='javascript'>alert('恭喜!注冊成功，為了方便購物請登錄完善你的資料');location.href='index.asp';</script>"
end if
end if
else
response.Write "<script LANGUAGE='javascript'>alert('對不起，請按照步驟進行注冊!');location.href='usr_reg.asp';</script>"
end if
sub usererr()
response.Write "<script LANGUAGE='javascript'>alert('用戶注冊失敗! 您輸入的用戶名已存在，請返回重新輸入!');history.go(-1);</script>"
end sub
sub emailerr()
response.Write "<script LANGUAGE='javascript'>alert('用戶注冊失敗! 您輸入的E-mail地址已存在，請返回重新輸入!');history.go(-1);</script>"
end sub
%>登錄處理代碼<!--#include file="conn/conn.asp"-->
<!--#include file="md5.asp"-->
<%
if request.Form("pass")="OK" then
dim username,password,comeurl,verifycode
username=replace(trim(request("username")),"'","")
pwd=md5(replace(trim(request("pwd")),"'",""))
verifycode=replace(trim(request("verifycode")),"'","")
comeurl=request("logurl")
if username="" or pwd="" or verifycode="" then
response.write "<script LANGUAGE='javascript'>alert('請提交完整的信息！');history.go(-1);</script>"
response.end
end if
if cstr(session("getcode"))<>cstr(verifycode) then
response.Write "<script LANGUAGE='javascript'>alert('請輸入正確的驗證碼！');history.go(-1);</script>"
response.end
end ifset rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [jx_users] where username='"&username&"' and pwd='"&pwd&"'" ,conn,1,3
if not(rs.bof and rs.eof) then
'if rs("reglx")=0 then
'response.Write "<script LANGUAGE='javascript'>alert('對不起！您的帳戶還未通過審核！');history.go(-1);< /script>"
'response.end
'elseif rs("reglx")=4 then
'response.Write "<script LANGUAGE='javascript'>alert('對不起！您的帳戶被鎖定，請聯系管理員！');history.go(-1);< /script>"
'response.end
'end if
Session("username")=rs("username")
Session("userid")=rs("userid")
rs("lastlogin")=now()
rs("logins")=rs("logins")+1
rs("userlastip")=Request.ServerVariables("REMOTE_ADDR")
rs.Update
rs.Close
set rs=nothing
username=Session("username")
conn.execute("delete from jx_action where username='"&username&"'")
if request("linkaddress")="" then
call loginok()
else
response.redirect request("linkaddress")
end if
else
response.write "<script LANGUAGE='javascript'>alert('對不起，您的用戶名或密碼有誤！');history.go(-1);</script>"
end ifelse
response.Write "<script LANGUAGE='javascript'>alert('對不起，請按照步驟進行訪問!');location.href='login.asp';</script>"
end if
sub loginok()
if request.servervariables("http_referer")<>Request.ServerVariables("SERVER_NAME")&"login.asp" then
response.redirect("index.asp")
'response.redirect(request.servervariables("http_referer"))
else
'if comeurl<>Request.ServerVariables("SERVER_NAME")&"/shop/login.asp" then
'response.redirect(comeurl)
'else
response.redirect("index.asp")
'end if
end if
end sub
%>希望對你有所幫助
C. 求一個用asp寫一個簡單的登錄界面連接sql資料庫，用戶名和密碼放在資料庫中。
資料庫連接
dim rs,conn,comm
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
set comm=server.CreateObject("adodb.command")
conn.connectionstring= "Provider=sqloledb;server=192.000.000.000;database=table;uid=sa;pwd="
conn.open
*******************************************************************************************************************
頁面登陸
uName=request("text1")
uPwd=request("text2")
sql="select count(*) from student where name='"& uName &"' and pwd='"& uPwd &"'"
set rs=conn.execute(sql)
if rs(0)>0 then
response.Write("<script type="text/javascript">alert('登錄成功')</script>")
else
response.Write("<script type="text/javascript">alert('登錄失敗)</script>")
end if
D. asp+sql資料庫登陸框
前台就不用說了，說關鍵的，點擊登錄按鍵後執行的是：
<% IF request("Flag")="login" Then
set rs=conn.execute("select * from [usertable] where username='"&request("lname")&"' and password='"&request("lpass")&"'")
If not (rs.eof and rs.bof) Then
Response.redirect("user/index.asp")'登錄成功後轉向頁地址
Else
Response.Write("用戶名或密碼不正確！")
Response.end()
End IF
End IF
%>
上面這段是驗證程序，你可以根據自己的情況擴展。
E. 用asp寫一個簡單登錄界面，連接sql server
資料庫位置：data/data.mdb
資料庫表：user
id name pwd wenti daan
conn.asp
<%
db="data/data.mdb" '資料庫存放目錄
on error resume next
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath(db)
if err then
err.clear
set conn = Nothing
response.write "資料庫連接出錯，請檢查conn.asp中的連接字元串。"
response.end
end if
function CloseDB
Conn.Close
set Conn=Nothing
End Function
%>
<%
dim badword
badword="'|and|select|update|chr|delete|%20from|;|insert|mid|master.|set|chr(37)|="
if request.QueryString<>"" then
chk=split(badword,"|")
for each query_name in request.querystring
for i=0 to ubound(chk)
if instr(lcase(request.querystring(query_name)),chk(i))<>0 then
response.write "<script language=javascript>alert('傳參錯誤！參數 "&query_name&" 的值中包含非法字元串！\n\n');location='"&request.ServerVariables ("HTTP_REFERER")&"'</Script>"
response.end
end if
next
next
end if
%>
reg.asp
<!--＃i nclude file="conn.asp"-->
<%
if request("action")="reg" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from user where name='"&trim(request("name"))&"'",conn,1,1
if rs.recordcount>0 then
response.write "<Script language='JavaScript'>window.alert('您輸入的用戶名已存在，請返回重新輸入！');history.back(-1);</Script>"
response.End()
end if
sql="select * from user"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("name")=trim(request.Form("name"))
rs("pwd")=trim(request.Form("pwd"))
rs("wenti")=trim(request.Form("wenti"))
rs("daan")=trim(request.Form("daan"))
rs.update
rs.close
set rs=nothing
response.write "<script language=javascript> alert('注冊成功，點擊確定立即登錄！');location.replace('login.asp');</script>"
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>無標題文檔</title>
</head>
<body><!--＃i nclude file="top.asp"-->
<table width="90%" border="1" align="center" cellpadding="10" cellspacing="0">
<tr>
<td>用戶注冊
<form name="form1" method="post" action="?action=reg" onsubmit="return chkform(this)">
<table width="347" border="1" cellpadding="5" cellspacing="0">
<tr>
<td width="142">用戶名</td>
<td width="179"><input name="name" type="text" id="name"></td>
</tr>
<tr>
<td>密碼</td>
<td><input name="pwd" type="password" id="pwd"></td>
</tr>
<tr>
<td>密碼提示問題</td>
<td><input name="wenti" type="text" id="wenti"></td>
</tr>
<tr>
<td>密碼提示答案</td>
<td><input name="daan" type="text" id="daan"></td>
</tr>
<tr>
<td colspan="2"><input type="submit" name="Submit" value="注冊">
<input type="reset" name="Submit" value="重置"> </td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</body>
</html>
top.asp
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<table width="90%" border="1" align="center" cellpadding="10" cellspacing="0">
<tr>
<td><a href="/"";index.asp">首頁</a>
<%
if Session("name")="" then
%>
<a href="/"";reg.asp">注冊</a> <a href="/"";login.asp">登陸</a>
<a href="/"";pwd.asp">忘記密碼？</a> <%
else
%>
歡迎您<%=Session("name")%>， <a href="/"";loginout.asp">注銷登陸</a>
<%
end if
%>
<a href="/"";jiami.asp">加密頁</a></td>
</tr>
</table>
<br>
login.asp
<!--＃i nclude file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>無標題文檔</title>
</head>
<body><!--＃i nclude file="top.asp"-->
<table width="90%" border="1" align="center" cellpadding="10" cellspacing="0">
<tr>
<td>
用戶登陸
<%
if Session("name")="" then
%>
<form name="form1" method="post" action="loginok.asp?action=login" onsubmit="return chkform(this)">
<table border="1" cellspacing="0" cellpadding="5">
<tr>
<td width="116">用戶名</td>
<td width="116"><input name="name" type="text" id="name"></td>
</tr>
<tr>
<td>密碼</td>
<td><input name="pwd" type="password" id="pwd"></td>
</tr>
<tr>
<td colspan="2"><input type="submit" name="Submit" value="登陸">
<input type="reset" name="Submit" value="重置"></td>
</tr>
</table>
</form>
<%
else
%>
<table border="1" cellspacing="0" cellpadding="5">
<tr>
<td width="303"><%=Session("name")%>，您已經成功登陸</td>
</tr>
</table>
<%
end if
%>
</td>
</tr>
</table>
</body>
</html>
loginok.asp
<!--＃i nclude file="conn.asp"-->
<%
Session.TimeOut=30
if request("action")="login" then
name=trim(request.form("name"))
pwd=trim(request.form("pwd"))
if name="" or pwd="" then
Response.Redirect ("login.asp")
end if
set rs=server.createobject("adodb.recordset")
sql="select * from user where name='"&name&"'and pwd='"&pwd&"'"
rs.open sql,conn,1,1
if not rs.eof then
session("name")=name
response.redirect"edit.asp"
else
response.redirect"Error.asp"
response.end
end if
end if
%>
loginout.asp
<%
session("name")=""
response.write "<script language=javascript> alert('退出登陸成功!');location.href('index.asp');</script>"
response.end
%>
pwd.asp
<!--＃i nclude file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>無標題文檔</title>
</head>
<body><!--＃i nclude file="top.asp"-->
<table width="90%" border="1" align="center" cellpadding="10" cellspacing="0">
<tr>
<td><p>找回密碼</p>
<form name="form1" method="post" action="pwd2.asp?action=pwd">
<table width="398" border="1" cellpadding="5" cellspacing="0">
<tr>
<td width="130">請輸入用戶名</td>
<td width="168"><input name="name" type="text" id="name"></td>
<td width="62"><input type="submit" name="Submit" value="查詢"></td>
</tr>
</table>
</form></td>
</tr>
</table>
</body>
</html>
pwd2.asp
<!--＃i nclude file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>無標題文檔</title>
</head>
<body><!--＃i nclude file="top.asp"-->
<table width="90%" border="1" align="center" cellpadding="10" cellspacing="0">
<tr>
<td>
找回密碼
<%
name=trim(request.form("name"))
set rs=server.createobject("adodb.recordset")
sql="select * from user where name='"&name&"'"
rs.open sql,conn,1,1
if not rs.eof then
%>
<form name="form1" method="post" action="pwd3.asp">
<table width="398" border="1" cellpadding="5" cellspacing="0">
<tr>
<td><%=rs("name")%></td>
<td> </td>
<td><input name="name" type="hidden" id="name" value="<%=rs("name")%>"></td>
</tr>
<tr>
<td width="130">密碼提示問題</td>
<td width="168"><%=rs("wenti")%>
</td>
<td width="62"> </td>
</tr>
<tr>
<td>密碼提示答案</td>
<td><input name="daan" type="text" id="daan"></td>
<td><input type="submit" name="Submit" value="查詢"></td>
</tr>
</table>
</form>
<% else
%>
<table width="413" border="1" cellpadding="5" cellspacing="0">
<tr>
< td>你輸入的用戶名不存在，請<a href="/"";javascript:history.back()">返回</a>重新輸入，或者<a href="/"";reg.asp">注冊</a></td>
</tr>
</table>
<%end if
%>
</td>
</tr>
</table>
</body>
</html>
pwd3.asp
<!--＃i nclude file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>無標題文檔</title>
</head>
<body><!--＃i nclude file="top.asp"-->
<table width="90%" border="1" align="center" cellpadding="10" cellspacing="0">
<tr>
<td>
找回密碼
<%
name=trim(request.form("name"))
daan=trim(request.form("daan"))
set rs=server.createobject("adodb.recordset")
sql="select * from user where name='"&name&"' and daan='"&daan&"'"
rs.open sql,conn,1,1
if not rs.eof then
%>
<table width="398" border="1" cellpadding="5" cellspacing="0">
<tr>
<td width="130"><%=rs("name")%>，您的密碼</td>
<td><%=rs("pwd")%>
</td>
</tr>
</table>
<% else
%>
<table width="413" border="1" cellpadding="5" cellspacing="0">
<tr>
<td>你輸入的密碼提示答案不正確，請<a href="/"";javascript:history.back()">返回</a>重新輸入</td>
</tr>
</table>
<%end if
%>
</td>
</tr>
</table>
</body>
</html>
error.asp
<!--＃i nclude file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>無標題文檔</title>
</head>
<body><!--＃i nclude file="top.asp"-->
<table width="90%" border="1" align="center" cellpadding="10" cellspacing="0">
<tr>
<td>登陸失敗，請檢查用戶名和密碼是否正確 <a href="/"";login.asp">返回</a></td>
</tr>
</table>
</body>
</html>
edit.asp
<!--＃i nclude file="conn.asp"-->
<%
if request("action")="edit" then
name=session("name")
set rs=server.createobject("adodb.recordset")
sql="select * from user where name='"&name&"'"
rs.open sql,conn,3,2
rs("pwd")=trim(request.Form("pwd"))
rs("daan")=trim(request.Form("daan"))
rs.update
rs.close
set rs=nothing
response.write "<script language=javascript>alert('編輯成功！');location.href('edit.asp');</script>"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>無標題文檔</title>
</head>
<body><!--＃i nclude file="top.asp"-->
<table width="90%" border="1" align="center" cellpadding="10" cellspacing="0">
<tr>
<td><p>修改資料</p>
<p>
<%
if Session("name")="" then
%>
對不起你還沒有登陸，請<a href="/"";login.asp">登陸</a>或者<a href="/"";reg.asp">注冊</a>
<%
else
%>
<%
name=session("name")
set rs=server.createobject("adodb.recordset")
sql="select * from user where name='"&name&"'"
rs.open sql,conn,1,1
%>
</p>
<form action="?action=edit" method="post" name="form" id="form">
<table border="1" cellpadding="5">
<tr>
<td>用戶名</td>
<td><%=rs("name")%></td>
</tr>
<tr>
<td>密碼</td>
<td><input name="pwd" type="text" id="pwd" value="<%=rs("pwd")%>"></td>
</tr>
<tr>
<td>密碼提示問題</td>
<td><%=rs("wenti")%></td>
</tr>
<tr>
<td>密碼提示答案</td>
<td><input name="daan" type="text" id="daan" value="<%=rs("daan")%>"></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="修改">
<input type="reset" name="Submit" value="重置"></td>
</tr>
</table>
</form>
<p> <%
end if
%>
</p></td>
</tr>
</table>
</body>
</html>
這是詳細代碼，希望我的回答對你有幫助
如果對您有幫助的話，請及時採納哈
F. ASP 怎麼連接SQL資料庫
ASP與SQL資料庫連接語句具體如下：
Set conn = Server.CreateObject("ADODB.Connection")
connstr = "provider=Sqloledb;server=伺服器名;uid=用戶名;pwd=密碼;database=資料庫名"
conn.Open connstr
If Err Then
err.Clear
Set conn = Nothing
Response.Write "資料庫連接出錯，請檢查連接字串"
Response.End
(6)asp登錄sql擴展閱讀：
SQL常用命令使用方法：
(1) 數據記錄篩選：
sql="select * from 數據表 where 欄位名=欄位值 order by 欄位名 "
sql="select * from 數據表 where 欄位名 like 『%欄位值%『 order by 欄位名 "
sql="select top 10 * from 數據表 where 欄位名 order by 欄位名 "
sql="select * from 數據表 where 欄位名 in (『值1『,『值2『,『值3『)"
sql="select * from 數據表 where 欄位名 between 值1 and 值2"
(2) 更新數據記錄：
sql="update 數據表 set 欄位名=欄位值 where 條件表達式"
sql="update 數據表 set 欄位1=值1,欄位2=值2 …… 欄位n=值n where 條件表達式"
(3) 刪除數據記錄：
sql="delete from 數據表 where 條件表達式"
sql="delete from 數據表" (將數據表所有記錄刪除)
G. ASP連接SQL製作登錄注冊頁面
我新建立一conn.asp,在index.asp 調用顯示數據:為什麼老是出錯???
請幫看看!
<%
dim conn
dim strconn
'on error resume next
strconn = "Driver={SQL Server};SERVER=10.97.1.48;UID=sa;PWD=sa;DATABASE=ABRSCAN"
'strconn = "PROVIDER=SQLOLEDB;DATA SOURCE=10.97.1.27;UID=sa;PWD=sa;DATABASE=ABRSCAN"
'strconn = "data source=10.97.1.27;integrated security=SSPI;Database=ABRSCAN"
set conn = server.createobject("adodb.connection")
conn. Properties("Connect Timeout") = 15 '以秒為單位
conn.open strconn
%>
在index.asp 做如下調用顯示數據:
<!--#include file="conn.asp"-->
<%
dim rs
set rs = server.createobject("adodb.recordset")
%>
<%
sql="select * from ciginfo "
'sql=sql&"download.id,download.showname,bb,download.dateandtime,download.hits,download.classid,download.Nclassid,Nclass.Nclass "
'sql=sql&" from ciginfo "
'sql=sql&" order by download.dateandtime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<tr>
<td bgcolor="#ecfaff">沒有記錄!!!</td>
</tr>
<%else%>
<%
do while not rs.eof
barcode = rs("barcode")
'if(len(name)>26) then name = left(name,26) + "...."
%>
<tr>
<td width="100%" height="24" bgcolor="#ecfaff" > <img src="images/RedArrow.gif" width="4" height="7"> [<%=rs("barcode")%>] <font color='#999999'> <font color=red> <font color='#999999'> </font></font></font><span class="style1"></span></td>
<%
rs.movenext
loop
end if
rs.close
%>
H. ASP+SQL登錄,並且帶許可權的
在使用 HTTP 訪問 Microsoft? SQL Server? 2000 資料庫之前，必須安裝適當的虛擬目錄。在運行 Microsoft Internet 信息服務 (IIS) 的計算機上，使用用於 SQL Server 的 IIS 虛擬目錄管理實用工具（在"SQL Server 工具"程序組中單擊"在 IIS 中配置 SQL XML 支持"）定義並注冊新的虛擬目錄，即所謂的虛擬根。該實用工具指示 IIS 在新的虛擬目錄和 Microsoft SQL Server 實例之間創建關聯。有關該實用工具用戶界面的信息，請參見 IIS 虛擬目錄管理實用工具。
必須將 IIS 伺服器和虛擬目錄的名稱指定為 URL 的一部分。虛擬目錄（包括登錄、密碼和訪問許可權）中的信息用於建立與特定資料庫的連接並執行查詢。
可以指定 URL：
直接訪問資料庫對象，例如表。
在這種情況下，URL 將包括 dbobject 類型的虛擬名稱。
執行模板文件。
模板是由一個或多個 SQL 語句組成的有效的 XML 文檔。在 URL 中指定模板文件時，將執行存儲在模板文件中的 SQL 命令。可以直接在 URL中指定 SQL 查詢，但考慮到安全性，不建議這樣做。
執行 XPath 查詢。
對指定作為 URL 一部分的帶批註的映射架構文件執行 XPath 查詢。
虛擬名若要使模板文件、映射架構文件或資料庫對象（如表或視圖）成為 URL 的一部分，必須創建 template、schema 和 dbobject 類型的虛擬名稱。將虛擬名稱指定為 URL 的一部分，以便執行模板文件、對映射架構文件執行 XPath 查詢或直接訪問資料庫。
在 URL 中指定的虛擬名稱類型（template、schema、dbobject）還用於決定在 URL 中指定的文件類型（模板文件或映射架構文件）。例如，
下面的 URL 使用模板訪問 SQL Server 資料庫：
http://IISServer/nwind/TemplateVirtualName/Template.xml
TemplateVirtualName 是 template 類型的虛擬名稱，用於標識指定的文件 (Template.xml) 是模板文件。
創建 nwind 虛擬目錄
新增信息 - SQL Server 2000 SP3。
下例創建 nwind 虛擬目錄。在大多數用於說明 Microsoft? SQL Server? 2000 的 URL 訪問的示例中，都使用 nwind 虛擬目錄。
在創建 nwind 虛擬目錄之前，需要一個與將要創建的虛擬目錄相關聯的物理目錄（例如，C:\Inetpub\Wwwroot\nwind，此處 nwind 是與將要在以下過程中創建的 nwind 虛擬目錄相關聯的物理目錄）。
還需要在與該虛擬目錄相關聯的物理目錄下創建兩個子目錄（例如，C:\Inetpub\Wwwroot\nwind\template 和
C:\Inetpub\Wwwroot\nwind\schema）。這些是與 template 和 schema 類型的虛擬名稱相關聯的目錄，這兩種類型的目錄是作為創建 nwind虛擬目錄的一部分而創建的。
創建 nwind 虛擬目錄
在 Microsoft SQL Server 程序組中，單擊"在 IIS 中配置 SQL XML 支持"。
展開伺服器，然後單擊想要的 Web 站點。
在"操作"菜單上指向"新建"子菜單，然後單擊"虛擬目錄"命令。新虛擬目錄的屬性頁將顯示在屏幕上。
在"新的虛擬目錄屬性"對話框的"常規"選項卡上，輸入虛擬目錄的名稱。對於本例，鍵入 nwind 和物理目錄路徑（例如C:\Inetpub\Wwwroot\nwind，假設在 C:\Inetpub\Wwwroot 目錄中已創建了 nwind 子目錄）。或者可以使用"瀏覽"按鈕選擇目錄。
在"安全"選項卡上，選擇"SQL Server"和"使用 Windows 集成身份驗證"。
在"數據源"選項卡上，在"SQL Server"框中輸入伺服器的名稱，例如 (local)；如果在指定的計算機上安裝了多個實例，則輸入 SQL Server2000 實例的名稱（可選）。在"資料庫"框中，輸入 Northwind 作為默認資料庫的名稱。
在"設置"選項卡上，選擇"允許 URL 查詢"、"允許模板查詢"、"允許 XPath"和"允許 POST"選項。
在"虛擬名稱"選項卡上，單擊"新建"按鈕以創建模板類型的虛擬名稱。
在"虛擬名稱配置"對話框中：
在"虛擬名稱"框內輸入
template（可以是用戶指定的任意名稱）。在"類型"列表中，選擇"模板"。輸入路徑（例如，C:\Inetpub\Wwwroot\nwind\template，假設與虛擬目錄相關聯的物理目錄下有一個子目錄 template，但並不檢查該目錄是否存在）。單擊"保存"按鈕保存虛擬名稱。
在"虛擬名稱"選項卡上，單擊"新建"按鈕以創建架構類型的虛擬名稱。
在"虛擬名稱"框內輸入schema（可以是用戶指定的任意名稱）。在"類型"列表中，選擇"架構"。輸入路徑（例如，C:\Inetpub\Wwwroot\nwind\schema，假設與虛擬目錄相關聯的物理目錄下有一個子目錄 schema）。單擊"保存"按鈕保存虛擬名稱。
在"虛擬名稱"選項卡上，單擊"新建"按鈕以創建模板和架構類型的虛擬名稱。
在"虛擬名稱"框內輸入 dbobject（可以是用戶指定的任意名稱）。在"類型"列表中，選擇 dbobject。單擊"保存"按鈕保存虛擬名稱。
單擊"確定"按鈕保存設置。
這就創建了虛擬目錄 nwind。默認情況下，使用該虛擬目錄對 Northwind 資料庫執行指定的查詢。
若要測試虛擬目錄，請在瀏覽器中鍵入：/nwind?sql=SELECT">http://<;IISServer>/nwind?sql=SELECT * FROM Employees FOR XML AUTO&root=root 並按 ENTER 鍵。
使用 HTTP 訪問 SQL Server
新增信息 - SQL Server 2000 SP3。
可以使用 HTTP 訪問 Microsoft? SQL Server? 2000。有關 SQL ISAPI 擴展所支持的 URL 語法的更多信息，請參見 URL Access。在可以使用HTTP 指定查詢前，必須先用用於 SQL Server 的 IIS 虛擬目錄管理實用工具創建一個虛擬根。有關更多信息，請參見創建 nwind 虛擬目錄。
SQL Server 的 HTTP 訪問能力使您得以：
直接在 URL 中指定 SQL 查詢，例如：
http://IISServer/nwind?sql=SELECT+*+FROM+Customers+FOR+XML+AUTO&root=root
指定 FOR XML 子句以 XML 文檔而不是標准行集的形式返回結果。根參數可標識單一的頂層元素。
直接在 URL 中指定模板。
模板是包含一個或多個 SQL 語句的有效的 XML 文檔。模板使您得以將數據放在一起以形成有效的 XML 文檔，但直接在 URL 中指定查詢時不一定是這樣。例如：
SELECT+*+FROM+Customers+FOR+XM'>http://IISServer/nwind?template=<;ROOT+xmlns:sql="urn:schemas-microsoft-com:xml-sql"><sql:query>SELECT+*+FROM+Customers+FOR+XM
L+AUTO</sql:query></ROOT>
在 URL 中指定模板文件。
在 URL 中寫入長 SQL 查詢會很麻煩。此外，瀏覽器對在 URL 中可以輸入的文本量可能有限制。若要避免這些問題，可以編寫模板並將其存儲在文件中。模板是包含一個或多個 SQL 語句和 XPath 查詢的有效的 XML 文檔。可以在 URL 中直接指定模板文件，例如：
http://IISServer/nwind/TemplateVirtualName/templatefile.xml
在 URL 中，TemplateVirtualName 是使用用於 SQL Server 的 IIS 虛擬目錄管理實用工具創建的 template 類型的虛擬名稱。
模板文件還刪除來自用戶的資料庫查詢的詳細信息以增強安全性。通過將模板文件存儲在注冊資料庫時所在的虛擬根目錄（或其子目錄）中，刪除虛擬根上的 URL 查詢處理服務並只允許 SQL Server XML ISAPI 處理文件及返回結果集，從而加強了安全性。
指定在帶批註的 XML 數據簡化 (XDR) 架構（也稱為映射架構）上執行的 XPath 查詢。
從概念上講，對映射架構編寫 XPath 查詢與使用 CREATE VIEW 語句創建視圖並對視圖編寫 SQL 查詢相似，例如：
http://IISServer/nwind/SchemaVirtualName/schemafile.xml/Customer[@CustomerID="ALFKI"]
在這個 URL 中：
SchemaVirtualName 是使用用於 SQL Server 的 IIS 虛擬目錄管理實用工具創建的 schema 類型的虛擬名稱。
Customer[@CustomerID="ALFKI"] 是在該 URL 中指定的 schemafile.xml 上執行的 Xpath 查詢。
直接在 URL 中指定資料庫對象。
可以將資料庫對象（如表和視圖）指定為 URL 的一部分，並對資料庫對象指定 Xpath 查詢，例如：
http://IISServer/nwind/dbobjectVirtualName/XpathQuery
在這個 URL 中，dbobjectVirtualName 是使用用於 SQL Server 的 IIS 虛擬目錄管理實用工具創建的 dbobject 類型的虛擬名稱。
I. 用asp讀取SQL資料庫實現用戶登陸與注冊代碼
注冊
<!-- #include file="conn.asp" -->
<%
username=request.Form("name")
pass=request.Form("pass")
if username="" or pass="" or pass1="" then
response.Redirect "zhuce.asp"
else
if pass <> pass1 then
response.redirect"zhuce.asp"
else
set rs=server.createobject("adodb.recordset")
sql="select * from admin "
rs.open sql,conn,3,3
rs.addnew
rs("name")=username
rs("pass")=pass
rs.update
end if
end if
%>
等入
<!--#include file="conn.asp" -->
<%
if request.QueryString("action")="login" then
if cstr(Session("GetCode"))<>cstr(Request.Form("VerifyCode")) then
Response.Write("<script>alert(""您輸入的確認碼和系統產生的不一致，請重新輸入。返回後請刷新登錄頁面後重新輸入正確的信息。"");location.href=""Login.asp"";</script>")
Response.End
end if
if request.form("name")="" then
Response.Write("<script language=""JavaScript"">alert(""用戶名不能為空！"");history.go(-1);</script>")
response.End()
end if
if request.form("pass")="" then
Response.Write("<script language=""JavaScript"">alert(""請輸入正確的密碼！"");history.go(-1);</script>")
response.End()
end if
set rs=server.createobject("adodb.recordset")
rs.open "select * from admin where name='" & request.Form("name") & "' AND pass='" & md5(Request.Form("pass")) & "'",conn,3,3
if not rs.eof then
if request.Form("name")=rs("name") and md5(Request.Form("pass"))=rs("pass") then
Response.Write("<a href='list.asp?key="&rs("name")&"'>點擊返回首頁</a>")
else
Session("GetCode")=""
rs.close:set rs=nothing
Response.Write("<script language=""JavaScript"">alert(""用戶不存在！"");history.go(-1);</script>")
response.end
end if
else
Session("GetCode")=""
rs.close:set rs=nothing
Response.Write("<script language=""JavaScript"">alert(""請輸入正確的密碼！"");history.go(-1);</script>")
response.End()
end if
end if
%>
J. ASP注冊登錄（使用SQL資料庫）
你是讓我們幫你寫出來么