求一个ASP登陆脚本，我做的老不对 - Web 开发 / ASP

conn文件代码如下：
<%
dim rs,conn,sql
set rs=server.CreateObject("adodb.recordset")
set conn=server.CreateObject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Data/user.mdb")
conn.open connstr
%>

数据库是Access的
数据库：user.mdb
表：user_reg
字段：username，pwd，QQ，…………
请高人指点，给我写一个登陆验证用户名和密码的脚本，十万火急！先在此谢过了！

---

把传过来的用户名密码与数据库里的比较一下就可以了，正确就记录登陆信息，失败就提示并作其它处理

---

可是我对那些语句一点也不懂，网上找的也改不对，老师要逼着我交

---

VB code:

<!--#include file="Conn.asp"-->

<%
dim sql,rs
dim UserName,Password,CheckCode
UserName=replace(trim(request("UserName")),"'","") '获取用户名
Password=replace(trim(Request("Password")),"'","") '获取密码
CheckCode=replace(trim(Request("CheckCode")),"'","") '获取验证码
Check1=session("xuasyzm")

if CheckCode<>Check1 then
response.Write("<script language='javascript'>alert('验证码不正确');history.go(-1);</script>")
end if

set rs=server.CreateObject("adodb.recordset")
sql="