仓酷云

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

[学习教程] ASP编程:一各复杂的bbs(四)

[复制链接]
爱飞 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:33:17 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来;讲话的服务器端页面bbs.asp:

<%
dimflag
flag=0
name=REQUEST.FORM("name")
code=REQUEST.FORM("code")
insubject=request.form("subject")
incontent=REQUEST.FORM("content")
subject=""&request.form("subject")&""
content=""&REQUEST.FORM("content")&""
curdate=Date
curtime=Time
setconn=Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("author.mdb")
conn.Open"driver={MicrosoftAccessDriver(*.mdb)};dbq="&DBPath
setRS=Conn.Execute("SELECT*FROMauthor")
dowhilenotrs.eof
ifrs("authorname")=nameandrs("password")=codethen
flag=1
Setfso=Server.CreateObject("Scripting.FileSystemObject")
Application.Lock
TxtPath=Server.MapPath("bbs.txt")
SetInStream=fso.OpenTextFile(txtpath,,true)
number=Cstr(InStream.Readline+1)
SetOutStream=fso.CreateTextFile(txtpath)
OutStream.WriteLinenumber
IfRequest.QueryString("ID")=""Then
manswernum=number
Else
manswernum=Request.QueryString("ID")
EndIf
IfRequest.QueryString("topnum")=""Then
mtopnum=number
Else
mtopnum=Request.QueryString("topnum")
EndIf
SetOutStream=Nothing
application.unlock
inname=""&name&""
Setconnbbs=Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("bbs.mdb")
connbbs.Open"driver={MicrosoftAccessDriver(*.mdb)};dbq="&DBPath
Connbbs.Execute("INSERTINTObbs(ID,authorname,subject,content,adddate,answernum,topnum,visitnum)Values("&number&","&inname&","&subject&","&content&","&curdate&","&manswernum&","&mtopnum&",0)")

Connbbs.Close%>
<%=name%><p>
<%=insubject%><p><%=curdate&""%><%=curtime&"增加贴子"%><p>
<%=incontent%><p><ahref="disp.asp">前往论坛</a>
<%
exitdo
response.flush
Else
rs.movenext
%>
<%EndIf
loop
RS.Close
Conn.Close%>
<%ifflag=0then%>
您的用户名或暗码堕落,请您<ahref="bbs_add.htm">重输!</a>
<%endif%>
</p>只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天
小魔女 该用户已被删除
沙发
发表于 2015-1-20 09:49:27 | 只看该作者
Session:这个存储跟客户端会话过程的数据,默认20分钟失效
兰色精灵 该用户已被删除
板凳
发表于 2015-1-29 06:39:37 | 只看该作者
不能只是将它停留在纸上谈兵的程度上。
老尸 该用户已被删除
地板
发表于 2015-1-31 08:10:22 | 只看该作者
我可以结合自己的经验大致给你说一说,希望对你有所帮助,少走些弯路。
第二个灵魂 该用户已被删除
5#
发表于 2015-2-6 18:44:06 | 只看该作者
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
小女巫 该用户已被删除
6#
发表于 2015-2-18 03:34:52 | 只看该作者
还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
冷月葬花魂 该用户已被删除
7#
发表于 2015-3-6 00:20:47 | 只看该作者
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
爱飞 该用户已被删除
8#
 楼主| 发表于 2015-3-20 00:44:10 | 只看该作者
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-23 07:04

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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