明輝手游網(wǎng)中心:是一個(gè)免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺(tái)!

ASP技術(shù)在論壇中的使用(6)(吐血推薦!。。。

[摘要]文章發(fā)表模塊只有兩個(gè)頁面,一個(gè)是前面提到的用來提供輸入表單的submit.asp,還有一個(gè)是用來處理表單輸入的subresult.asp。前面的那個(gè)頁面很簡單,基本上就是一個(gè)HTML表單,沒有什么好講的,下面來看看subresult.asp的內(nèi)容:      < ...
    文章發(fā)表模塊只有兩個(gè)頁面,一個(gè)是前面提到的用來提供輸入表單的submit.asp,還有一個(gè)是用來處理表單輸入的subresult.asp。前面的那個(gè)頁面很簡單,基本上就是一個(gè)HTML表單,沒有什么好講的,下面來看看subresult.asp的內(nèi)容:

  

  < html>

  < head>

  < title>發(fā)表文章< /title>

  < meta http-equiv="Content-Type" content="text/html; charset=gb2312">

  < /head>

  < body bgcolor="#FFFFFF">

  

  < %

  author=request("author")

  password=request("password")

  topicid=request("topicid")

  boardid=request("boardid")

  content=request("content")

  title=request("title")

  

  這一段取出在submit.asp中提交的表但內(nèi)容,放在相應(yīng)的變量中。

  

  Set conn = Server.CreateObject("ADODB.Connection")

  conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("bbssystem.mdb")

  Set cmd = Server.CreateObject("ADODB.Command")

  Set cmd.ActiveConnection = conn

  

  '查詢作者是否已存在

  cmd.CommandText = "select * from 作者表 where id='" & author &"'"

  Set rs = cmd.Execute()

  

  '檢查權(quán)限

  if rs.eof or rs.bof then

  response.write "< h3>你還沒有注冊(cè),請(qǐng)先< a href=register.htm>注冊(cè)< /a>後在來發(fā)表文章< /h3>"

  response.write "< /body>< /html>"

  response.end

  end if

  

  if password< > rs("密碼") then

   response.write "< h2>密碼錯(cuò)誤,請(qǐng)檢查密碼是否正確< /h2>"

  response.write "< /body>< /html>"

  response.end

  end if

  

  這一段是對(duì)作者權(quán)限進(jìn)檢查,對(duì)于賬號(hào)不存在或者密碼錯(cuò)誤做出相應(yīng)的錯(cuò)誤處理。在這兒可以看到response.end的用法,它是用來結(jié)束當(dāng)前ASP腳本。結(jié)合if語句,可以對(duì)程序中的預(yù)期錯(cuò)誤進(jìn)行處理。在一個(gè)好的WEB應(yīng)用中,錯(cuò)誤處理是必不可少的。

  

  ' 將數(shù)據(jù)中的單引號(hào)改成兩個(gè)單引號(hào),并且在前后加上單引號(hào)

  Function SqlStr( data )

   SqlStr = "'" & Replace( data, "'", "''" ) & "'"

  End Function

  

  '寫入數(shù)據(jù)庫

  sql = "Insert Into 內(nèi)容表 (看板id,主題id,作者id,標(biāo)題,內(nèi)容) Values( "

  sql = sql & SqlStr(topicid) & ", "

  sql = sql & SqlStr(boardid) & ", "

  sql = sql & SqlStr(author) & ", "

  sql = sql & SqlStr(title) & ", "

  sql = sql & SqlStr(content) & ") "

  conn.Execute sql

  %>

  < h2>文章已經(jīng)被發(fā)送到數(shù)據(jù)庫,當(dāng)板主審閱后就可以看到了< h2>

  < /body>

  < /html>

  到這兒,文章已經(jīng)被保存在數(shù)據(jù)庫中了。但是,它并不能夠立刻被顯示出來,還需要斑竹的認(rèn)可才行。下面,就來看看論壇的管理部分的內(nèi)容。