|
??? 文章颁发模块只有两个页面，一个是前面提到的用来提供输入表单的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>
到这儿，文章已经被生涯在数据库中了。可是，它并不可以或许立即被表现出来，还必要斑竹的承认才行。下面，就来看看论坛的打点部门的内容。 （编辑：湖南网）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
