Set rs = cmd.Execute()

　　

　　'检查权限

　　if rs.eof or rs.bof then

　　response.write "< h3>你还没有注册，请先< a href=http://www.dvbbs.net/tech/asp/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(autho

上一页  [1] [2] [3] 下一页

在google里搜索更多ASP技术在论坛中的运用(六)（吐血推荐！！！！）

	Web www.51ec.org

上一篇信息学院： ASP技术在论坛中的运用(五)（吐血推荐！！！！）

下一篇信息学院： ASP技术在论坛中的运用(七)（吐血推荐！！！！）