毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

asp学生论坛bbs设计毕业论文(开题报告+源代码) 第12页

更新时间:2010-4-18:  来源:毕业论文
asp学生论坛bbs设计毕业论文(开题报告+源代码) 第12页
(1) 用户名的验证:在获取的同时就可以对文件长度等进行检测,使用Cint()函数进行强制执行整数运算判断是否在可接受的范围之内。
Cint(Mybbs.Forum_Setting(41)) or strLength(Request.form("name"))
<Cint(Mybbs.Forum_Setting(40))
使用InStr函数来判断是否存在非法的字符。
 If Instr(username,"=")>0 or Instr(username,"%")>0 or Instr(username,chr(32))>0 or
   Instr(username,"?")>0 or Instr(username,"&")>0 or Instr(username,";")>0 or Instr(username,",")>0
   or Instr(username,"'")>0 or Instr(username,",")>0 or Instr(username,chr(34))>0 or
 Instr(username,chr(9))>0 or Instr(username,"")>0 or Instr(username,"$")>0
(2) 密码的验证:主要验证的是密码的长度,采用Len()函数,可以返回字符串中字符的个数。参数可以是字符串也可以是变量名。
If Request.form("psw")="" or len(Request.form("psw"))>10 or len(Request.form("psw"))<6 Then
   ErrCodes=ErrCodes+"<li>"+template.Strings(13)
 (3) 电子邮件的验证:邮件的地址一般是“用户名@域名”,采用VBScript的函数Split(),可以返回一个一文数组。在参数部分可以设置“@”为字符串的标识界限。用这个符号来拆分电子邮件地址,形成数组。UBound()函数返回了数组文数的最大可用下标。
Dim names,name,i,c
Is ValidEmail=true
Names=Split(email,”@”)
If UBound(names)<>1 then
 Is VailEmail=false
 Exit function
End If
 而用户的注册信息如果是合法的则在提交注册信息后要将这个注册信息插入到数据库中去,可以使用Recordset对象。
set rs=Server.CreateObject(“ADODB.Recordset”)
sql=”select * from [User_T]
rs.open sql,conn,2,3
rs.addnew
rs(“Username”)=username
rs(“Userpassword”)=password
rs(“UserEmail”)=useremail
rs(“Userclass”)=userclass
rs(“TitlePic”)=titlepic
rs.update
rs.close
set rs=nothing
 但光有Recordset对象没有Connection对象也没有用,Connection对象已经写入了连接数据库的函数Conn.asp。
 ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
 Set conn = Server.CreateObject("ADODB.Connection")
 conn.open ConnStr
 set rs=server.createobject("adodb.recordset")
 sql="select * from [User_T] where username=’”&username&”’
 rs.open sql,conn,1,3
 在上面程序里,conn对象的功能是连接数据库,rs的功能是打开数据表User_T。而Connection对象的功能是连接数据库,连接程序如下:
Sub ConnectionDatabase
 Dim ConnStr
  Db = "data/mybbs7.mdb"
  ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
  Set conn = Server.CreateObject("ADODB.Connection")
 conn.open ConnStr
 ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)一句分别设置了Provide参数和Data Source参数。
 用户注册后要修改自己的信息。修改信息就是将原来用户的信息显示出来,待用户修改提交表单后更新数据库中的信息,这里同样要对用户新输入的信息进行检测,这个和用户注册部分的检测是一样的,只是没有了对用户名的检测。所以用户信息的修改的程序与用户注册是很相似的,只少了rs.addnew一句,另外在选取信息的时候的语句有所不同。
sql=”Select * from [User_T]” where userid=”& UserID
 通过这一句可以准确的定位到用户的编号UserID的这条记录,这是利用了Recordset对象的查询功能,然后使用Recordset对象的写入功能,用rs.Update结束。
 虽然用户的用户名不可以更改,但是用户的密码是可以更改的,这是用户身份验证的标识,同时也可以更改自己的密码提问和密码答案。这些更改也基本上和用户信息修改的程序相同,利用用户的编号取出用户的信息,验证用户的修改信息后更新数据库。
但是如果用户是忘记了密码而要取回,则就要调用到另外的一套程序。见程序4-3。
程序4-3 获得用户密码程序(Lostpass.asp)
 If request.Form("username")="" Then
  showerr template.Strings(6)
  Exit Sub
 Else
  username=replace(request("username"),"'","")
 End If
 If Mybbs.Forum_Setting(2)<>"0" Then
  Set Rs=Mybbs.execute("Select UserQuesion,userAnswer,Username,Usergroupid from [Dv_user] where username='"&username&"'")
 Else
  Set Rs=Mybbs.execute("Select UserQuesion,userAnswer,Username,Usergroupid from [Dv_user] where username='"&username&"' and UserGroupID>3")
 End If
 If rs.eof and rs.bof then
  showerr template.Strings(8)
  Exit Sub
 ElseIf  rs(3) < 4 then
  showerr template.Strings(7)
  Exit Sub
 Else
  If  rs(0)="" or isnull(rs(0)) Then
   showerr template.Strings(9)
   Exit Sub
  Else
   
   template.html(6)=Replace(template.html(6),"{$Quesion}",Rs(0))
   template.html(6)=Replace(template.html(6),"{$username}",username)
   If Mybbs.forum_setting(81)="0"  Then
    template.html(6)=Replace(template.html(6),"{$getcode}","")
   Else
    template.html(6)=Replace(template.html(6),"{$getcode}"," 验证码:
"&Mybbs.GetCode())
   End If
   Response.Write template.html(6)  
  End If
 End If
 Rs.Close 
 Set Rs=Nothing
 这里是通过两步来完成取回密码的,第一步是验证用户名,第二步才是取回密码。
 4.1.3 浏览其他用户信息
 如程序4-4。
 程序4-4 用户列表程序(dispuser.asp)
 UPSQL="update [Dv_user] set UserViews=UserViews+1 "
SQL=" Select UserID,UserName,UserPassword,UserEmail,UserPost,UserTopic,UserSign,UserSex,
UserFace,UserWidth,UserHeight,UserIM,JoinDate,LastLogin,UserLogins,UserViews,Lockuser,
Userclass,UserGroup,userWealth,userEP,userCP,UserTitle,UserBirthday,UserQuesion,UserAnswer,
UserLastIP,UserPhoto,UserFav,UserPower,UserDel,UserIsBest,UserInfo,UserSetting,UserGroupID,
TitlePic,UserHidden,UserMsg,IsChallenge,UserMobile From [Dv_User] "

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] 下一页

asp学生论坛bbs设计毕业论文(开题报告+源代码) 第12页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。