register.asp

asp+flash宾客留言系统

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="conn.asp" -->
<% 
foundErr=""
g_name=Request.form("g_name")
g_Pass=Request.form("g_Pass")
g_qq=Request.form("g_qq")
g_email=Request.form("g_email")
g_homepage=Request.form("g_homepage")
g_face=Request.form("g_face")

if len(g_name)=0 then
 	foundErr=foundErr& "请填写用户名！！<br>"
end if
if len(g_name)>10 then
 	foundErr=foundErr&"用户名不可以超过10个字符！！<br>"
end if
if len(g_pass)=0 then
 	foundErr=foundErr& "请填写用户密码！！<br>"
end if
if len(g_email)=0 then
 	foundErr=foundErr& "请填写Email！！<br>"
end if

if foundErr="" then 
set rs=server.CreateObject("adodb.recordset")
sql="select * from users where u_name='"&g_name&"'"
rs.open sql,conn,1,1
if not rs.eof then
Response.Write "&datatxt=该用户已经存在，请更换用户名"
else
sql1 = "insert into users (u_name,u_Pass,u_qq,u_email,u_homepage,u_face) values('"&g_name&"','"&g_Pass&"','"&g_qq&"','"&g_email&"','"&g_homepage&"',"&g_face&")"
conn.Execute(sql1)
Response.Write "&datatxt=恭喜，注册成功！"
Response.Write "&gbname="&g_name&"&gbpass="&g_Pass&"&gbface="&g_face'这一行是为了记录用户名和密码、头像用的，
end if
rs.close
set rs=nothing
else
Response.Write "&datatxt="&foundErr'输出错误信息
Response.Write "&gbname="&g_name&"&gbpass="&g_Pass&"&gbface="&g_face'这一行是为了记录用户名和密码、头像用的，
end if

%>