利用ASP打造網站論壇DIY(三)

來源:互聯網
上載者:User
    3、構建文章發表部分

  文章發表模組只有兩個頁面,一個是前面提到的用來提供輸入表單的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中提交的表但內容,放在相應的變數中。


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

  (1)查詢作者是否已存在


cmd.CommandText = "select * from 作者表where id='" & author &"'"
Set rs = cmd.Execute()

  (2)檢查許可權


cmd.CommandText = "select * from 作者表where id='" & author &"'"
Set rs = cmd.Execute()

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

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


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 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。