ASP 模块-头

|用户注册|用户注册1|用户登录|计数器|留言板|聊天室|聊天室1|讨论区|

|Register|Register1|Login|Counter|Guest|Chat|Chat1|

用户注册

用户帐号 *
登录密码 *
用户姓名 *
联系电话 *
电子邮件 *
主页地址 *
操作   

<%

action=trim(Request("action"))

UserNick=trim(Request("UserNick"))

  

if action="register" then checkpass=true

if len(UserNick)<1 then checkpass=false

　

'打开用户资料表，用AddNew向数据库请求添加新记录，

向部分字段赋值,用Update写入

if checkpass then

rs.open "用户资料表",cn,adOpenDynamic,3

rs.AddNew

rs("用户账号")=UserNick

rs.Update

rs.close

Response.Redirect"yfzl.asp"

end if

%>

 

<html>

<body>

<!--#include file="glsd_t.asp"-->

<form action="" method="post">

<input type="hidden" name="action" value="register">

用户帐号：<input type="text" name="UserNick">

　

<input type="submit" name="Submit" value="用户注册">

</form>

</body>

</html>