|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP最大的缺点在于网络的安全性和可靠性,企业将经营数据放在开放的平台上,最大的担忧就是如何保证这些数据不被其他人破坏。 当点击了响应文章的联合后,就进进此文章的处置页面managearticle.asp:
<%
articleid=request("articleid")
boardid=request("boardid")
ifsession("beenthere")<>boardidthenresponse.redirect"forums.asp"
Setconn=Server.CreateObject("ADODB.Connection")
conn.Open"driver={MicrosoftAccessDriver(*.mdb)};dbq="&Server.MapPath("bbssystem.mdb")
Setcmd=Server.CreateObject("ADODB.Command")
Setcmd.ActiveConnection=conn
cmd.CommandText="按id查询文章"
ReDimparam(0)
param(0)=CLng(articleid)//注:Clng不成疏忽
Setrs=cmd.Execute(,param)
author=rs("作者id")
title=rs("题目")
data=rs("日期")
rate=rs("保举度")
boardid=rs("看板id")
topicid=rs("主题id")
boardname=rs("看板名")
topicname=rs("主落款")
content=rs("内容")
content=replace(content,vbCrlf,"</p><p>")
content="<p>"&content&"</p>"
setcmd=nothing
%>
<html>
<head>
<title>UntitledDocument</title>
<metahttp-equiv="Content-Type"content="text/html;charset=GB2312">
</head>
<bodybgcolor="#E9E9E4">
<tablewidth="89%"border="0"cellspacing="0"cellpadding="0"align="center">
<trbgcolor="#CCCCCC">
<td><fontcolor="#FF3366"><ahref="qauthor.asp?author=<%=author%>"><%=author%></a></font>宣布日期:<fontcolor="#FF3333"><%=data%></font>
看板:<fontcolor="#FF3333"><ahref="qboard.asp?boardid=<%=boardid%>"><%=boardname%></a></font>板主保举:<fontcolor="#FF3333">#rate#</font></td>
</tr>
<trbgcolor="#CCCCCC">
<td>题目:<fontcolor="#FF3333"><%=title%>
主题:<ahref="qtopic.asp?topicid=<%=topicid%>"><%=topicname%></a></font></td>
</tr>
<trvalign="top">
<td>
<hr>
<fontcolor="#FF3366">文章内容:</font><br>
<br>
<fontcolor=blue><%response.writecontent%></font>
<br>
<hr>
</td>
</tr>
<trvalign="top">
<formmethod="post"action="manageresult.asp">
<tdheight="18">
<tablewidth="100%"border="1"cellspacing="1"cellpadding="1">
<tr>
<tdwidth="29%">
<divalign="right">
<inputtype="hidden"name="boardid"value="<%=boardid%>">
<inputtype="hidden"name="topicid"value="<%=topicid%>">
<inputtype="hidden"name="articleid"value="<%=articleid%>">
文章处置:</div>
</td>
<tdwidth="12%"bordercolor="#006666">删除:
<inputtype="radio"name="manage"value=1>
</td>
<tdwidth="30%"bordercolor="#006666">宣布:
<inputtype="radio"name="manage"value=2>
保举品级
<selectname="select">
<optionvalue="1">1</option>
<optionvalue="2">2</option>
<optionvalue="3"selected>3</option>
<optionvalue="4">4</option>
<optionvalue="5">5</option>
</select>
</td>
<tdwidth="20%"bordercolor="#006666">今后再处置:
<inputtype="radio"name="manage"value=3>
</td>
<tdwidth="9%">
<inputtype="submit"name="Submit"value="断定">
</td>
</tr>
</table>
</td>
</form>
</tr>
</table>
</body>
</html>
<%
setrs=nothing
conn.close
setconn=nothing
%>
注:这一页和文章显现模块中的article.asp基础上是一样的,仅仅是多到场了版主处置的窗体,在这儿就未几讲了。
上面,要依据版主的处置历程,修该数据库响应部分
<%response.buffer=true%>
<html>
<head>
<title>文章处置</title>
<metahttp-equiv="Content-Type"content="text/html;charset=GB2312">
</head>
<bodybgcolor="#E9E9E4">
<%
articleid=request("articleid")
boardid=request("boardid")
topicid=request("topicid")
manage=request("manage")
承受窗体内容
response.writemanage显现斑竹ID
ifsession("beenthere")<>boardidthenresponse.redirect"forums.asp"
Setconn=Server.CreateObject("ADODB.Connection")
conn.Open"driver={MicrosoftAccessDriver(*.mdb)};dbq="&Server.MapPath("bbssystem.mdb")
依据上页中版主的操纵,上面举行响应的处置。
ifCLng(request("manage"))=1then
sql="deletefrom内容表whereid="&articleid
conn.executesql
response.write"<h1>文章已被删除</h1>"
response.write"<ahref=>back</a>"
elseifCLng(request("manage"))=2then
sql="update内容表set宣布=truewhereid="&articleid
conn.executesql
sql="update主题表set文章数=文章数+1whereid="&topicid
conn.executesql
response.write"<h1>文章已宣布</h1>"
response.write"<ahref=>back</a>"
else
response.clear
response.redirect"boardmanager.asp?boardid="&boarded
endif
%>
</body>
</html>
<%
conn.close
setconn=nothing
%>
经由下面几步,一切的部分就算是基础完成了,固然,这时候还不克不及拿来用,摆不下台面的。假如想要可以拿得出来的话,还要在版面计划,客户端材料考证等方面多下一些工夫。不外那都是HTML的内容了,和ASP没多年夜的干系,这儿我就未几讲了。想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的 |
|