adduser2.asp

标准的小型企业网站程序

<!--#include file=conn.asp-->
<%
dim name,pw,message
  count=0
  name=trim(request("name"))
    pw=trim(request("password"))
	
set rs=server.CreateObject("adodb.recordset")
rs.open "select username from [admin] where username='"&name&"'",conn,1,1
if not rs.eof and not rs.bof then
call usererr()
rs.close
else
rs.close
rs.open "select * from [admin]",conn,1,3
rs.addnew
rs("username")=name
rs("password")=pw
rs.update
rs.close
set rs=nothing
message="加入成功！"
sub usererr()
message="对不起,此用户名已经存在!"
end sub
end if
response.redirect"adduser.asp?message="&message

%>