仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 374|回复: 8
打印 上一主题 下一主题

[学习教程] ASP教程之使用ASP打造网站论坛DIY -6

[复制链接]
活着的死人 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:10:14 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

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没多年夜的干系,这儿我就未几讲了。想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的
灵魂腐蚀 该用户已被删除
沙发
发表于 2015-1-18 21:33:07 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
愤怒的大鸟 该用户已被删除
板凳
发表于 2015-1-25 16:42:45 | 只看该作者
下载一个源代码,然后再下载一个VBScript帮助,在源代码中遇到不认识的函数或是其他什么程序,都可以查帮助进行解决,这样学习效率很高。
老尸 该用户已被删除
地板
发表于 2015-2-3 11:12:41 | 只看该作者
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。
爱飞 该用户已被删除
5#
发表于 2015-2-8 20:29:42 | 只看该作者
那么,ASP.Net有哪些改进呢?
小女巫 该用户已被删除
6#
发表于 2015-2-26 06:12:35 | 只看该作者
Session:这个存储跟客户端会话过程的数据,默认20分钟失效
海妖 该用户已被删除
7#
发表于 2015-3-8 12:34:11 | 只看该作者
掌握asp的特性而且一定要知道为什么。
飘灵儿 该用户已被删除
8#
发表于 2015-3-16 00:41:06 | 只看该作者
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
飘飘悠悠 该用户已被删除
9#
发表于 2015-3-22 18:11:48 | 只看该作者
ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-24 04:19

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表