|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
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>只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天 |
|