ASP技術在論壇中的運用(六)

來源:互聯網
上載者:User
文章發表模組只有兩個頁面,一個是前面提到的用來提供輸入表單的submit.asp,還有一個是用來處理表單輸入的subresult.asp。前面的那個頁面很簡單,基本上就是一個HTML表單,沒有什麼好講的,下面來看看subresult.asp的內容:

  

  < html>

  < head>

  < title>發表文章< /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中提交的表但內容,放在相應的變數中。

  

  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()

  

  '檢查許可權

  if rs.eof or rs.bof then

  response.write "< h3>你還沒有註冊,請先< a href=register.htm>註冊< /a>後在來發表文章< /h3>"

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

  response.end

  end if

  

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

   response.write "< h2>密碼錯誤,請檢查密碼是否正確< /h2>"

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

  response.end

  end if

  

  這一段是對作者許可權進檢查,對於帳號不存在或者密碼錯誤做出相應的錯誤處理。在這兒可以看到response.end的用法,它是用來結束當前ASP指令碼。結合if語句,可以對程式中的預期錯誤進行處理。在一個好的WEB應用中,錯誤處理是必不可少的。

  

  ' 將資料中的單引號改成兩個單引號,並且在前後加上單引號

  Function SqlStr( data )

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

  End Function

  

  '寫入資料庫

  sql = "Insert Into 內容表 (看板id,主題id,作者id,標題,內容) 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>文章已經被發送到資料庫,當板主審閱後就可以看到了< h2>

  < /body>

  < /html>

  到這兒,文章已經被儲存在資料庫中了。但是,它並不能夠立刻被顯示出來,還需要斑竹的認可才行。下面,就來看看論壇的管理部分的內容。



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。