求助 【注册提示成功 登录提示 账号不存在】

[zhiyuan1985]

是不是代码问题，一下是注册提交的代码 各位大哥看看
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/md5.asp"-->
<%
Dim serviceqq,login_name,login_password,full_name,id_card,phone,qq,address,site_url,tuiguang,payee,aliuser,bank_card,sheng,shi,bank_name,site_name,bank_address,yzm
login_name=req_Post("login_name").Values = '登陆账号
login_password=trim(request.Form("pass_wd")) '登陆密码
full_name=req_Post("full_name") '真实姓名
id_card=req_Post("id_card") '身份证号码
phone=req_Post("tel") '电话号码
qq=req_Post("qq") 'QQ号码
address=req_Post("address") '通讯地址
site_url=req_Post("web_url") '网站名称
tuiguang=req_Post("tuiguang") '代理名称
payee=req_Post("payee") '银行联系人
aliuser=req_Post("aliuser") '支付宝
bank_card=req_Post("bank_card") '银行卡账号
sheng=req_Post("sheng")'省 '开户地址省份
shi=req_Post("shi")'市 '开户地址市
bank_name=req_Post("bank_name") '银行名称
site_name=req_Post("web_name") '网站名称
bank_address=sheng&shi '开户地址
yzm = req_Post("yzm") '验证码
if session("pSN") <> yzm then
response.write "<script>alert('验证码错误，请重新输入!');window.history.back();</script>"
response.End()
end if
if login_name="" or login_password="" or payee="" or bank_card="" or bank_name="" then
response.write "<script>alert('对不起,您填写的资料不完整，请返回重新填写!');window.history.back();</script>"
response.End()
end if

call ConnectionDatabase()
Set Rs=GrateRs("Select top 1 username,passwd,full_name,id_card,phone,address,payee,tuiguang,site_name,qq_msn,bank_card,bank_address,bankname,site_url,dxk,kak,vip from member where username like '"&login_name&"'",3)
if Rs.eof then
Rs.addnew
Rs("username")=login_name
Rs("passwd")=md5(login_password)
Rs("full_name")=full_name
Rs("id_card")=id_card
Rs("phone")=phone
Rs("address")=address
Rs("payee")=payee
rs("tuiguang")=tuiguang
Rs("site_name")=site_name
Rs("qq_msn")=qq
Rs("bank_card")=bank_card
Rs("bank_address")=bank_address
Rs("bankname")=bank_name
Rs("site_url")=site_url
Rs("dxk")=Set_Usr_kconn
Rs("kak")=Set_Usr_kconn2
if sh=0 then rs("vip")=1 '自动审核
Rs.update


set Rsd=GrateRs("select top 1 * from bankcard",3)
rsd.addnew
rsd("uid")=rs("id")
rsd("name")=payee
rsd("bankname")=bank_name
rsd("card")=bank_card
rsd.update
rsd.close
set rsd=nothing


else
response.write "<script>alert('对不起,您注册的用户已经存在,请选择另外的登录用户名!');window.history.back();</script>"
response.End()
end if

call DBConnEnd

str=""
if serviceqq<>"" then str="您的服务专员QQ："&serviceqq&""

if sh=0 then
response.write "<script>alert('注册成功!现在返回登录!"&str&"');window.location.href='index.html';</script>"
response.End()
else
response.write "<script>alert('注册成功!请马上联系业务，为您开通帐号后在首页登录!"&str&"');window.location.href='index.asp'</script>"
response.End()
end if

%>