4.6 个人用户界面设计
① 个人用户注册界面
用户在网站导航处点击“新会员注册”将打开member.asp页面,这个
页面显示用户的注册表单,如下图:
当提交表单并检测输入数据合法后,会将表单提交到这个页面本身,页面首
先判断是否已经提交,如果已经提交则进入用户信息注册处理,这个注册过程比较复杂,但是主要的过程就是将usertype的值分为几个支线流程,这几个支线流程是类似的。由于此代码繁多,不做以展示。
这块程序首先根据所取得的表单中的用户名查询数据库中是否有相同用
户名的记录,如果有则给出提示,并终止运行,否则进入下一步,打开记录集并添加一条新的记录,然后系统默认要给用户发送一条站内短消息提示注册成功,因此还要打开记录集,在短信数据库pmailbox中新增一条短信数据。最后弹出提示告诉用户注册成功,然后转到用户首页。
其他usertype的处理过程与此类似,只不过不同的处理用户信息存放在不同表中。最后的过程都是一样的,此处为了解释清晰,代码编写的较为繁琐。
② 个人用户登陆
用户进入网站后,可以在页面上边的导航栏处填写用户名和密码,并选
择帐户类型进行登陆。
如果登陆成功,则显示用户管理的快界链接,否则显示登陆表单,在这个表单中填写用户名和密码,并提交到login.asp页面,用户可以登陆,下面展示login.asp页面代码:
Login.asp页面代码
<% Response.Buffer=True %>
<!--#include file="dbconn.inc"-->
<!--#include file="inc/enpasswd.inc"-->
<% uname=request("uname")
pwd=mistake(request("pwd"))
usertype=request("usertype")
if usertype="person" then
set rs=server.createobject("adodb.recordset")
sql="select * from person where uname='"&uname&"' and pwd='"&pwd&"'"
rs.open sql,conn,3,3
if rs.bof or rs.eof then
response.write"<SCRIPT language=VBScript>alert('错误的用户名、密码或您不是此类型用户,请重新输入!');"
response.write"javascript:history.go(-1)</SCRIPT>"
else
session("puid")=uname
response.Redirect "person/main.asp"
end if
else
if usertype="class" then
set rs=server.createobject("adodb.recordset")
sql="select * from class where uname='"&uname&"' and pwd='"&pwd&"'"
rs.open sql,conn,3,3
if rs.bof or rs.eof then
response.write"<SCRIPT language=VBScript>alert('错误的用户名、密码或您不是此类型用户,请重新输入!');"
response.write"VBscript:history.go(-1)</SCRIPT>"
else
session("puid")=uname
response.Redirect "class/main.asp"
end if else
if usertype="peixun" then
set rs=server.createobject("adodb.recordset")
sql="select * from peixun where uname='"&uname&"' and pwd='"&pwd&"'"
rs.open sql,conn,3,3
if rs.eof then
response.write"<SCRIPT language=VBScript>alert('错误的用户名、密码或您不是此类型用户,请重新输入!');"
response.write"VBscript:history.go(-1)</SCRIPT>"
else
session("cuid")=uname
response.Redirect "peixun/main.asp"
end if else
set rs=server.createobject("adodb.recordset")
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>