求高手写段登录页面代码

我的登陆页面少了一段代码，于是我从修改密码的页面中找到这一段，
<%
if request("pass")<>"" then
user=sqlstr(Request("user"))
pass=sqlstr(request("oldpass"))
set rs=conn.execute("select * from users where id="&urs("id")&" and pass='"&pass&"'")
if not rs.eof then
response.Write("<script>alert('修改密码成功!')</script>")

conn.execute("update users set pass='"&sqlstr(request("pass"))&"' where id="&urs("id"))
else

response.Write("<script>alert('原始密码错误!')</script>")
end if
end if
%>

这段应该可以改成登陆页面的代码现在怎么改啊
登陆页用户 user 密码 pass.
数据库连接文件conn.asp
是这段有问题 set rs=conn.execute("select * from users where user="&user&" and pass='"&pass&"'")

二楼的，你的代码不对，这个加上去登陆页都

你的问题是.好像应该用'"&user&"'外面要用单引号.因为是字符串.

<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from tb_User_info where User='"&replace(request.form("User"),"'","''")&"'",conn,1,3

if rs.bof and rs.eof then
response.write "<script>alert('该用户不存在,请确认是否注册');history.back();</script>"
response.end
elseif rs("pass")<>replace(request.form("Pass"),"'","''") then
response.write "<script>alert('密码错误');history.back();</script>"
response.end
else
response.cookies("UserName")=request.Form("UserName")
response.write "<script>location='XXX.asp'</script>"
end if

rs.close