雅安黑社会大哥级人物:ASP 用户注册问题

<%
dim conn
dim connstr
dim db
db="1.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.open connstr
%>

<form method="post" action="1.asp" onSubmit="submits();">
<label>
<input name="name" type="text" id="name" />
</label>
<label>
<input type="hidden" name="save" size="30" value="yes">
<input type="submit" name="Submit" value="提交" />
</label>
</form>

<%
if request("save")="yes" then
if request.form("name")="" then
response.write("<script>alert(""用户名不能为空！"");</script>")
else
name1=trim(request.form("name"))
set rs=server.createobject("adodb.recordset")
sql="select username from [user] where username like '%"&name1&"%' "
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Response.Write("<script>alert(""你所注册的用户名尚不存在！"");</script>")
else
Response.Write("<script>alert(""你所注册的用户名已经存在！"");</script>")
response.end
end if
rs.close
conn.close
end if
end if
%>

username=request.form(username)
if username<>"" then
dim sqlstr,rs
sqlstr=select * from usertable where username='"& username & "'"
set rs=db.execute(sqlstr)
if not rs.eof then
response.write("already exist")
else
response.write("not in")
end if
end if