ASP网站制作之使用ASP打造网站服装论坛DIY(四)

写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了. 另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)      4、服装论坛的办理局部　　这儿是咱们这个服装论坛的中心之地点，但它完成起来也没有甚么出格的中央。仍是那些老器材：窗体处置，数据库查询，在用ASP把他们无机的联合起来。当进入了文章核阅形式（后面提到的板务处置）以后，最为重要的内容，应当是对版主的身份停止验证了。上面来看看版主上岸页面：

＜ %
boardid=request("boardid")

（注：boardid是由进入这个页面的毗连所传递过去的，是要停止板务处置的看板的ID。经由过程它才干晓得处置的是谁人板的板务。）
Set conn = erver.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft AccessDriver (*.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 AccessDriver (*.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("板主")
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
　　注：利用Session来坚持对版主的身份验证，这必需请求客户端阅读器的cookie被翻开了。由于Session是经由过程cookie来完成的。在这儿，把看板ID赋给Session变量beenthere，标明版主主已经由过程了身份验证。在前面的每一个版务处置的页面中，都要反省beenthere是不是和响应的看版ID符合。

url="boardmanager.asp?boardid="& boardid
response.redirect url  
　　增补：初学ASP的时分老是为response.redirect这个办法感应猜疑，屡用不爽，如今我来告知你一些技能。利用它之前，必需经由过程response.buffer=true来让ASP页面利用缓冲区。这时候，在ASP被注释成HTML法式代码之前，它是放在缓冲区中的，而不直接被发送的客户端阅读器。还有一个必需要晓得的是：在利用response.redirect之前，是不克不及有任何实践的HTML法式代码被发送到客户端阅读器的，不然就会失足。固然也有变通的办法，假如在response.redirect之前已有HTML法式代码被注释出来，可以用response.clear办法来排除缓冲区，然后就能够利用它来停止复位向了。

end if
%＞
　　注：上面就是在下面身份验证经由过程后复位向的方针：boardmanager.asp。它将列出了一切别有被处置的文章。

＜ %
boardid=request("boardid")
if session("beenthere")＜ ＞boardidthen response.redirect "forums.asp"
　　注：这就是查验版主身份的中央，由于后面已经由过程cookie在斑竹的阅读器中作了标志，如今咱们就可以够经由过程seesion来识别版主的身份了。假如标示不符，就会经由过程response.redirect前往到最入手下手的上岸页面。假如版主阅读器的cookie没有翻开，那末seesion（"beenthere"）的值会为空，一样也没法进入这个页面。

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft AccessDriver (*.mdb)};dbq=" & Server.MapPath("bbssystem.mdb")
Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = conn
sql="select 称号 from 看板列表 whereid=" & boardid
set rs=conn.execute(sql)
boardname=rs("称号")
cmd.commandtext="未宣布文章列表"
ReDim param(0)
param(0) = CLng(boardid)//注：Clng 不成疏忽
Set rs = cmd.Execute( ,param )
set cmd=nothing
%＞
＜ html＞
＜ head＞
＜ title＞版务处置＜ /title＞
＜ meta http-equiv="Content-Type"content="text/html; charset=GB2312"＞
＜ /head＞
＜ body bgcolor="#FFFFFF"＞
＜ h1 align="center"＞＜%=boardname%＞版务办理＜ /h1＞
＜ hr＞
＜ %
if rs.eof or rs.bof then response.write "＜H2＞如今没有文章要处置＜ /h2＞"
response.end
%＞
注：假如没有新文章被网友宣布，这给出响应的提醒，并用response.end来停止此页的显示。
＜ table width="90%" border="0"cellspacing="0" cellpadding="0"align="center" ＞
＜ tr bgcolor="#FFFFCC"＞
＜ td width="40%" height="20"＞主题＜/td＞
＜ td width="40%" height="20"＞文章题目＜/td＞
＜ td width="8%" height="20"＞作者＜/td＞
＜ td width="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＞＜a href=qtopic.asp?topicid="& topicid& "＞" & topicname &"＜ /A＞＜ /td＞"
response.write "＜ td＞＜ a href=managearticle.asp?articleid="&articleid & "&boardid="& boardid &"＞" &articlename & "＜ /A＞＜ /td＞"
response.write "＜ td＞＜ a href=qauthor.asp?author="&author & "＞" & author& "＜ /a＞＜ /td＞"
response.write "＜ td＞" &datastr & "＜ /td＞＜ /tr＞"
rs.movenext
loop until rs.eof
%＞
＜ /table＞
＜ /html＞
＜ %
set rs=nothing
conn.close
set conn=nothing
%＞
＜ /body＞
　　当点击了响应文章的联合后，就进入此文章的处置页面managearticle.asp：

＜ %
articleid=request("articleid")
boardid=request("boardid")
if session("beenthere")＜ ＞boardidthen response.redirect "forums.asp"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft AccessDriver (*.mdb)};dbq=" & Server.MapPath("bbssystem.mdb")
Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = conn
cmd.CommandText = "按id查询文章"
ReDim param(0)
param(0) = CLng(articleid)//注：Clng 不成疏忽
Set rs = 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＞"
set cmd=nothing
%＞
＜ html＞
＜ head＞
＜ title＞Untitled Document＜ /title＞
＜ meta http-equiv="Content-Type"content="text/html; charset=GB2312"＞
＜ /head＞
＜ body bgcolor="#E9E9E4"＞
＜ table width="89%" border="0"cellspacing="0" cellpadding="0"align="center"＞
＜ tr bgcolor="#CCCCCC"＞
＜ td＞作者：＜ font color="#FF3366"＞＜a href="qauthor.asp?author=＜ %=author%＞"＞＜ %=author%＞ ＜ /a＞＜ /font＞宣布日期：＜ font color="#FF3333"＞＜%=data%＞＜ /font＞
看板：＜ font color="#FF3333"＞＜a href="qboard.asp?boardid=＜ %=boardid%＞"＞＜ %=boardname%＞＜ /a＞＜ /font＞板主保举：＜ font color="#FF3333"＞#rate#＜/font＞＜ /td＞
＜ /tr＞
＜ tr bgcolor="#CCCCCC"＞
＜ td＞题目：＜ font color="#FF3333"＞＜%=title%＞
主题：＜ a href="qtopic.asp?topicid=＜%=topicid%＞"＞ ＜ %=topicname%＞＜ /a＞ ＜ /font＞＜ /td＞
＜ /tr＞
＜ tr valign="top"＞
＜ td＞
＜ hr＞
＜ font color="#FF3366"＞文章内容：＜ /font＞＜ br＞
＜ br＞
＜ font color=blue＞＜ %response.writecontent%＞＜ /font＞
＜ br＞
＜ hr＞
＜ /td＞
＜ /tr＞
＜ tr valign="top"＞
＜ form method="post" action="manageresult.asp"＞
＜ td height="18"＞
＜ table width="100%" border="1"cellspacing="1" cellpadding="1"＞
＜ tr＞
＜ td width="29%"＞
＜ div align="right"＞
＜ input type="hidden" name="boardid"value="＜ %=boardid%＞"＞
＜ input type="hidden" name="topicid"value="＜ %=topicid%＞"＞
＜ input type="hidden" name="articleid"value="＜ %=articleid%＞"＞
文章处置：＜ /div＞
＜ /td＞
＜ td width="12%" bordercolor="#006666"＞删除:
＜ input type="radio" name="manage"value=1＞
＜ /td＞
＜ td width="30%" bordercolor="#006666"＞宣布:
＜ input type="radio" name="manage"value=2＞
保举品级
＜ select name="select"＞
＜ option value="1"＞1＜/option＞
＜ option value="2"＞2＜/option＞
＜ option value="3" selected＞3＜/option＞
＜ option value="4"＞4＜/option＞
＜ option value="5"＞5＜/option＞
＜ /select＞
＜ /td＞
＜ td width="20%" bordercolor="#006666"＞今后再处置:
＜ input type="radio" name="manage"value=3＞
＜ /td＞
＜ td width="9%"＞
＜ input type="submit" name="Submit"value="肯定"＞
＜ /td＞
＜ /tr＞
＜ /table＞
＜ /td＞
＜ /form＞
＜ /tr＞
＜ /table＞
＜ /body＞
＜ /html＞
＜ %
set rs=nothing
conn.close
set conn=nothing
%＞

　　注：这一页和文章显示模块中的article.asp根基上是一样的，仅仅是多到场了版主处置的窗体，在这儿就不多讲了。
　　上面，要依据版主的处置进程，修该数据库响应局部

＜ %response.buffer=true%＞
＜ html＞
＜ head＞
＜ title＞文章处置＜ /title＞
＜ meta http-equiv="Content-Type"content="text/html; charset=GB2312"＞
＜ /head＞
＜ body bgcolor="#E9E9E4"＞
＜ %
articleid=request("articleid")
boardid=request("boardid")
topicid=request("topicid")
manage=request("manage")
'承受窗体内容
response.write manage '显示斑竹ID
if session("beenthere")＜ ＞boardidthen response.redirect "forums.asp"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft AccessDriver (*.mdb)};dbq=" & Server.MapPath("bbssystem.mdb")
依据上页中版主的操作，上面停止响应的处置。
if CLng(request("manage"))=1 then
sql="delete from 内容表 where id="& articleid
conn.execute sql
response.write "＜ h1＞文章已被删除＜/h1＞"
response.write "＜ a href=＞back＜/a＞"
elseif CLng(request("manage"))=2then
sql="update 内容表 set 宣布=true whereid=" & articleid
conn.execute sql
sql="update 主题表 set 文章数=文章数+1where id=" & topicid
conn.execute sql
response.write "＜ h1＞文章已宣布＜/h1＞"
response.write "＜ a href=＞back＜/a＞"
else
response.clear
response.redirect "boardmanager.asp?boardid="& boarded
end if
%＞
＜ /body＞
＜ /html＞
＜ %
conn.close
set conn=nothing
%＞
　　经由下面几步，一切的局部就算是根基完成了，固然，这时候还不克不及拿来用，摆不下台面的。假如想要可以拿得出来的话，还要在版面设计，客户端材料验证等方面多下一些工夫。不外那都是HTML的内容了，和ASP没多大的关系，这儿我就不多讲了。


由于ASP提供的是一对多的服务，所以用户的一些特殊需求很难得到满足。

尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。

Session:这个存储跟客户端会话过程的数据，默认20分钟失效

最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。

以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

掌握asp的特性而且一定要知道为什么。

下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

仓酷云

我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

掌握asp的特性而且一定要知道为什么。

我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。