IT学习者 | 文章大全 | 技术文档 | 桌面壁纸 | 实用查询 | 网络电台 | 成语 | 歇后语 | 网址 | 下载 | 周公解梦 | 生日密码 | 电视剧365 | Flash
 您现在的位置: IT学习者 >> 文章大全 >> 网络编程 >> ASP技术

ASP技术在论坛中的运用(七)

【 来源:CSDN  更新时间:2004-9-16 | 字体:
    这儿或许是我们这个论坛的核心之所在,但它实现起来也没有什么特别的地方。还是那些老东西:表单处理,数据库查询,在用ASP把他们有机的结合起来。

  当进入了文章审阅模式(前面提到的板务处理)之后,最为首要的内容,应该是对斑竹的身份进行验证了。下面来看看斑竹登陆页面:

  < %

  boardid=request("boardid")

  boardid是由进入这个页面的链接所传递过来的,是要进行板务处理的看板的ID。通过它才能知道处理的是那个板的板务。

  

  Set conn = Server.CreateObject("ADODB.Connection")

  conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("bbssystem.mdb")

  Set cmd = Server.CreateObject("ADODB.Command")

  Set cmd.ActiveConnection = conn

  cmd.CommandText = "板主密码查询"

   ReDim param(0) ' 声明

  param(0) = CLng(boardid) ' CLng 不可忽略

  Set rs = cmd.Execute( ,param )

  boardmanager=rs("板主")

  set cmd=nothing

  %>

  < html>

  < head>

  < title>Untitled Document< /title>

  < meta http-equiv="Content-Type" content="text/html; charset=gb2312">

  < /head>

  < body bgcolor="#FFFFFF">

  < p>只有板主< %=boardmanager%>才能够进入这个地方< /p>

   < p>请输入验证密码, 并且为了保持身份验证,请打开浏览器的Cookies。< /p>

  < form method="post" action="managerloginrest.asp">

   < input type="password" name="password">

   < input type="hidden" name="boardid" value=< %=boardid%>>

   < input type="submit" name="Submit" value="确定">

  < /form>

  这个页面仅仅是用来登陆用的,它得到斑竹输入的密码后,并不能进行验证,而是将验证的工作放到下一个页面中进行。实际上,密码输入和验证的工作是可以放在一个页面中完成的,只不过代码的结构安排上有点麻烦。

  < /body>

  < /html>

  < %

  set rs=nothing

  conn.close

  set conn=nothing

  %>

   现在得到了斑竹ID和输入的密码,下面就是进行验证的工作managerloginrest.asp了,它接受上面那个文件中表单的内容,并进行相关处理:

  < %

  response.buffer=true

  把缓冲区设置为允许使用。这一条一般来说,是应该加在每个ASP页面的首部的,这样能够提高ASP页面的性能。在打开了缓冲区后,ASP中还有一些相应的特殊用法,在后面会提及。

  boardid=request("boardid")

  password=request("password")

  Set conn = Server.CreateObject("ADODB.Connection")

  conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("bbssystem.mdb")

  Set cmd = Server.CreateObject("ADODB.Command")

  Set cmd.ActiveConnection = conn

  cmd.CommandText = "板主密码查询"

   ReDim param(0) ' 声明

  param(0) = CLng(boardid) ' Cint 不可忽略

  Set rs = cmd.Execute( ,param )

  boardmanager=rs("板主")

  if password< > rs("密码") then %>

  < html>

  < head>

  < title>身份验证< /title>

  < meta http-equiv="Content-Type" content="text/html; charset=gb2312">

  < /head>

  < body bgcolor="#FFFFFF">

  密码错误

  < /body>

  < /html>

  < %

  else

  session("beenthere")=boarded
相 关 文 章
相 关 软 件
逃生 放生 黄玫瑰 想太多 那滋味 擦肩而过 放手去爱 北京欢迎你 依然在一起 吻得太逼真 感动天感动地 坐上火车去拉萨 怎么会狠心伤害我
心碎 冲动 小太阳 别碰我 蒲公英 千山万水 改变自己 一定要爱你 等爱的玫瑰 陷入爱里面 北极星的眼泪 最后一次的温柔 亲爱的那不是爱情
光荣 火花 坏女人 日不落 樱花草 为你写诗 独家记忆 夏天的味道 寂寞才说爱 忘不掉的伤 爱上你是个错 第三者的第三者 地球人都知道我爱你
假如 相思 是非题 有缘人 舍不得 我的答铃 死而无憾 外滩十八号 越爱越难过 123木头人 和寂寞说分手 爱上你是我的错 爱情里没有谁对谁错
加入收藏留言建议自助友情链接普通友情链接站长的Blog
版权所有   COPYRIGHT 2002-2008 ★IT学习者★ ALL RIGHTS RESERVED.