|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP是依赖组件的,能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊!利用Session来坚持对斑竹的身份考证,这必需请求客户端扫瞄器的cookie被翻开了。由于Session是经由过程cookie来完成的。在这儿,把看板ID赋给Session变量beenthere,标明斑竹已经由过程了身份考证。在前面的每一个版务处置的页面中,都要反省beenthere是不是和响应的看版ID符合。
url="boardmanager.asp?boardid="&boardid
response.redirecturl
初学ASP的时分老是为response.redirect这个办法感应狐疑,屡用不爽,如今我来告知你一些技能。利用它之前,必需经由过程response.buffer=true来让ASP页面利用缓冲区。这时候,在ASP被注释成HTML代码之前,它是放在缓冲区中的,而不间接被发送的客户端扫瞄器。另有一个必需要晓得的是:在利用response.redirect之前,是不克不及有任何实践的HTML代码被发送到客户端扫瞄器的,不然就会堕落。固然也有变通的办法,假如在response.redirect之前已有HTML代码被注释出来,能够用response.clear办法来扫除缓冲区,然后就能够利用它来举行重定向了。
endif
%>
上面的页面,就是在下面身份考证经由过程后重定向的方针:boardmanager.asp。它将列出了一切别有被处置的文章。
<%
boardid=request("boardid")
ifsession("beenthere")boardidthenresponse.redirect"forums.asp"
这就是查验斑竹身份的中央,由于后面已经由过程cookie在斑竹的扫瞄器中作了标志,如今我们就可以够经由过程seesion来识别斑竹的身份了。假如标记不符,就会经由过程response.redirect前往到最入手下手的上岸页面。假如斑竹扫瞄器的cookie没有翻开,那末seesion(“beenthere“)的值会为空,一样也没法进进这个页面。
Setconn=Server.CreateObject("ADODB.Connection")
conn.Open"driver={MicrosoftAccessDriver(*.mdb)};dbq="&Server.MapPath("bbssystem.mdb")
Setcmd=Server.CreateObject("ADODB.Command")
Setcmd.ActiveConnection=conn
sql="select称号from看板列表whereid="&boardid
setrs=conn.execute(sql)
boardname=rs("称号")
cmd.commandtext="未宣布文章列表"
ReDimparam(0)声明
param(0)=CLng(boardid)Cint不成疏忽
Setrs=cmd.Execute(,param)
setcmd=nothing
%>
<html>
<head>
<title>版务处置</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
</head>
<bodybgcolor="#FFFFFF">
<h1align="center"><%=boardname%>板板务办理</h1>
<hr>
<%
ifrs.eoforrs.bofthenresponse.write"<H2>如今没有文章要处置</h2>"
response.end
%>
假如没有新文章被网友公布,这给出响应的提醒,并用response.end来停止此页的显现。
<tablewidth="90%"border="0"cellspacing="0"cellpadding="0"align="center">
<trbgcolor="#FFFFCC">
<tdwidth="40%"height="20">主题</td>
<tdwidth="40%"height="20">文章题目</td>
<tdwidth="8%"height="20">作者</td>
<tdwidth="12%"height="20">日期</td>
</tr>
<%
do
topicid=rs("主题id")
articleid=rs("文章id")
data=rs("日期")
datastr=cstr(year(data))&"-"&cstr(month(data))&"-"&cstr(day(data))
author=rs("作者")
articlename=rs("题目")
topicname=rs("主题")
response.write"<tr><td><ahref=qtopic.asp?topicid="&topicid&">"&topicname&"</A></td>"
response.write"<td><ahref=managearticle.asp?articleid="&articleid&"&boardid="&boardid&">"&articlename&"</A></td>"
response.write"<td><ahref=qauthor.asp?author="&author&">"&author&"</a></td>"
response.write"<td>"&datastr&"</td></tr>"
rs.movenext
loopuntilrs.eof
%>
</table>
</html>
<%
setrs=nothing
conn.close
setconn=nothing
%>
</body>
当点击了响应文章的联合后,就进进此文章的处置页面managearticle.asp:
<%
articleid=request("articleid")
boardid=request("boardid")
ifsession("beenthere")boardidthen</p>楼上说交互性不好,太牵强了吧。在微软提供的一套框架中,利用asp做网站,开发效率高,使用人数少,减少不必要的开销。交互性是互动方式,是有开发人员决定的。 |
|