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数据库）
你是让我们帮你写出来么