register.asp

这是我做的毕业设计,企业管理系统.ASP连接SQL数据库,基本功能已经实现

<%@ language = VBScript%>
<%
hy_id=trim(request.form("hy_id"))
passwd=trim(request.form("passwd"))
passwd2=trim(request.form("passwd2"))
name=trim(request.form("name"))
email=trim(request.form("myemail"))
level="1"
if hy_id="" or name="" then
response.redirect"error.asp?info=对不起，您的注册信息未填完整，请重新填写！"
end if
if len(passwd)<6 then
response.redirect"error.asp?info=对不起，您的密码不应该少于6位，请重新填写！"
end if
if passwd<>passwd2 then
response.redirect"error.asp?info=对不起，两次输入的密码不一致，请重新填写！"
end if
if email="" then
response.redirect"error.asp?info=对不起，您的E-mail必须填写，请填写完整！"
end if
set conn=server.createobject("adodb.connection")
connstr="provider=sqloledb;user id=sa;password=0335;"&_
"initial catalog=vod; persist security info=true;data source=(local)"
set rs=createobject("adodb.recordset")
conn.open connstr
sql="select * from member where hy_id='"&hy_id&"'"
rs.open sql,conn
if not rs.eof then
response.redirect"error.asp?info=对不起，您所填入的用户名已经存在！"
else
ssql="insert member(hy_id,passwd,hy_name,email,level)values"
ssql=ssql & "('"&hy_id&"','"&passwd&"','"&name&"','"&email&"','"&level&"')"
conn.execute ssql, , adcmdtext
response.redirect"register_finish.htm"
end if
%>