我做了一个Login.asp,SQL库=bgsw,库里包括一个表"TABLE10",表里两个字段"yh_id","passwd",现在想用asp调用ODBC数据源连接SQL库完成验证功能,ODBC里设置的登陆SQL的服务器名zrm,数据源名称ZRM-Server,用户名sa,密码ser,这段程序怎么写啊

怎么没老师帮助我啊,,偶再一次谢谢这里的各位老师了,劳驾您给回复一段程序吧

<%

dim conn
dim dbpath
set conn=server.createobject("adodb.connection")
conn.Open "driver={SQL Server};server=zrm;uid=sa;pwd=ser;database=ZRM-Server"

%>

UserName=trim(request.Form("username"))
PassWord=trim(request.Form("password"))
sql="select * from users where username='"&UserName&"' and password='"&PassWord&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1

if rs.eof then
response.Write"<script language=javascript> alert('服务器拒绝了你的登陆信息，请重新输入！');history.back(-1);</script>"
response.End()
else
session("UserName")=rs("UserName")
response.Redirect"index.asp"
end if
。。
。。
。。。
。。。
。。。