教大家如何利用ASP打造网站论坛DIY(1)(3)_ASP教程

编辑Tag赚U币

教程Tag：暂无Tag,欢迎添加,赚取U币!

推荐：ASP实现带进度条的测试网速的代码程序
ASP实现带进度条的测试网速。把下列代码存为.ASP的文件，放在你的服务器上就可以直接运行了。以下为引用的内容： <% Response.E

板主：文本类型，看板版主的ID。

主题数：数字类型，看板中包含的主题数。

（4）主题表（用来存放有关主题的讯息）：

ID：自动编号，并为其设置索引。

标题：文本类型，表示主题名。

看板：数字类型，来自看板列表，表示主题所属的看板。

文章数：数字类型，主题中包含的文章数。

所有的表是设计完了，但是数据库的设计并没有完，所以我们还需要建立表间关系，这样就能够让数据库执行一些相关性检查，避免资料出错。建立表间关系的另外的一个好处，就是通过它能够很容易的建立出复杂的JOIN查询。

通常我们在ASP中操作数据库的时候，都是使用的执行时生成的查询，然后由传递给数据库解释执行。而在这儿我们要用的是存贮查询。与执行时查询比较而言，预存程序具有更多的优点。

它保存在数据库中，独立于ASP程序代码，使得他更容易建立和修改，并且查询的效率更高，速度更快，可以调试好了以后再放在ASP页面中使用，能避免很多问题。而且使用存贮查询的ASP程序代码更加容易阅读和修改。可能大家都对在ASP中使用SQL查询感到很烦，特别是那些逗号啊，分号啊什么的，一不小心就会出错。使用存贮查询后，就可以不用顾虑这些问题了。当然，预存程序再使用上也有一些要注意的地方，在后面我会详细的讲解它的使用方法。在ACCESS中建立预存程序是一件很容易的事，这儿我就不再多说了。在这儿我只给出各个查询的SQL语句程序代码。

我把所有要使用到的查询都作为预存程序保存在了数据库中，主要的有以下的一些：

（1）按ID查询文章：

以下为引用的内容：
SELECT 主题表.标题 AS 主题名, 看板列表.名称 AS 看板名, 内容表.*
FROM 主题表 INNER JOIN (内容表 INNER JOIN 看板列表 ON 内容表.看板ID = 看板列表.ID) ON 主题表.ID = 内容表.主题ID
WHERE (((内容表.ID)=[articleid]));

（2）版主密码查询：

以下为引用的内容：
SELECT 看板列表.板主, 作者表.密码
FROM 作者表 INNER JOIN 看板列表 ON 作者表.ID = 看板列表.板主
WHERE (((看板列表.ID)=[id];

（3）查询作者：

以下为引用的内容：
SELECT 作者表.*
FROM 作者表
WHERE (((作者表.ID)=[id]));

（4）发表文章列表：

以下为引用的内容：
SELECT [内容表].[ID], [内容表].[标题], [内容表].[作者ID] AS 作者, [内容表].[日期], [内容表].[推荐度], [内容表].[点击次数] AS 点击数。
FROM 内容表
WHERE ((([内容表].[主题ID])=[TopicIndex]) And (([内容表].[发表])=True));

未发表文章列表：

以下为引用的内容：
SELECT 内容表.ID AS 文章id, 主题表.ID AS 主题id, 主题表.标题 AS 主题, 内容表.标题 AS 标题, 内容表.作者ID AS 作者, 内容表.日期 AS 日期
FROM 主题表 INNER JOIN 内容表 ON 主题表.ID = 内容表.主题ID
WHERE (((内容表.发表)=False) AND ((内容表.看板ID)=[boardid]));

（5）主题列表：

以下为引用的内容：
SELECT 主题表.*, 看板列表.名称 AS 看板名
FROM 看板列表 INNER JOIN 主题表 ON 看板列表.ID = 主题表.看板
WHERE (((主题表.看板)=[boardIndex]));

还有一些查询，因为大多类同，我就不一一列出了。

在上面的查询语句中，可以看到一些由"["和"]"包围起来的东西，那就是查询参数了。需要在执行时给出参数值，然后把参数值带入到查询语句中才能够执行。还有一点要注意的是：在建立那些INNER JOIN查询时，是需要把表间关系添加到设计视图中的，否则是不能够自动生成INNER JOIN查询语句的。

到这儿，数据库的设计就算完了，以后的工作就是ASP的事了。

二、构建

1、构建主窗体

先要给出一个窗体，能够让网友输入注册讯息，这些是HTML的内容，且放在一边，我们来仔细看看具体实现注册的ASP脚本。

（1）将资料中的单引号改成两个单引号，并且在前后加上单引号

以下为引用的内容：
Function SqlStr( data )
SqlStr = "'" & Replace( data,"'", "''" ) & "'"
End Function

注：这是一个自定义的函数，用来把用户输入中的单引号（'）转换成两个单引号（''）。在ASP中，用双引号围着的是字符串，因而上面的"'"代表的就是只有一个单引号的字符串。之所以要把一个单引号换成两个单引号，这是因为在SQL语句中，用单引号围起来是用来代表变量的。为了不至于混淆，就要把字符串中的单引号用两个单引号来表示。而所有的用户输入都要作为变量嵌入到SQL语句中的，所以这个函数是必不可少的。

（2）存贮准备

以下为引用的内容：
id=Request("id")
password=Request("password")
nickname=Request("nickname")
email=Request("email")
sex=request("sex")

注：把来自用户输入窗体中的内容保存在变量中，这不是必须的，但写了更容易读写。

以下为引用的内容：
if Request("name")=""then name=" " else name=request("name")
if Request("phone")=""then phone=" " else phone=request("phone")

分享：如何提高自己的编程水平
有成功的喜悦，也有失败的痛苦，但总不敢称自己是高手，因为和我心目中真正的高手们比起来，还差的太远。世界上并没有成为高手的捷径，但一些基本原则是可以遵循的。 1. 扎实的基础。数据