生成的静态页面调用自己写的动态插件的方法及一个简单示例-风讯CMS教程

很多朋友都在问风讯中如何调用一些比较个性的东西，因为是静态的页面，没办法直接执行asp
所以今天我抽空写了一个简单的例子，有爱好的朋友可以看一下。希望会对大家有所帮助。
这个例子的功能是可以在首页调用网站注册的会员资料。
在风讯根目录下新建一asp文件：member,asp，文件代码如下：

<!--#include file=\"Inc/Cls_DB.asp\" -->
<!--#include file=\"Inc/Const.asp\" -->
<!--#include file=\"Inc/Function.asp\" -->(插入风讯的常量设置文件，如数据库路径和连接都在这几个文件里)
<%
'*******************code by chenwfy***********2006-04-25*********************************
'功能说明：调用最新会员资料
'************************************************************************************************
（注释）

Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing

（建立数据库连接，好象是吧，不大懂，嘿嘿。）

'==========================================================================
'设置调用会员数量
dim Getnum
Getnum = 10
'==========================================================================
（定义一个变量，设置调用会员资料的数量）

dim tempobj,tempsql
tempsql = \"select top \"& Getnum &\" id,MemName,***,loginnum from FS_Members order by id desc\"
set tempobj = conn.execute(tempsql)
（查询数据库，取得对应的资料）

if not tempobj.eof then
do while not tempobj.eof
dim memid,memname,mem***,true***,memloginnum
memid = tempobj(\"id\")
memname = tempobj(\"memname\")
mem*** = tempobj(\"***\")
memloginnum = tempobj(\"loginnum\")
if mem*** = \"0\" then
true*** = \"<font color=\"\"red\"\">女</font>\"
else
true*** = \"<font color=\"\"bule\"\">男<font>\"
end if
（重点在下面这里，呵呵，输出document.write后的内容并循环，这样才可以用js调用）
Response.write \"document.write('<table width=\"\"220\"\" border=\"\"0\"\" cellpadding=\"\"0\"\" cellspacing=\"\"0\"\">\"&\"<tr>\"&\"<td width=\"\"120\"\" height=\"\"20\"\" align=\"\"center\"\" valign=\"\"middle\"\">\"&\"<a href=memtext.asp?id=\"& memid &\" title=\"\"点击查看此会员的具体资料\"\" target=\"\"_blank\"\">\"& memname &\"</a>\"&\"</td>\"&\"<td width=\"\"50\"\" height=\"\"20\"\" align=\"\"center\"\" valign=\"\"middle\"\">\"& true*** &\"</td>\"&\"<td width=\"\"50\"\" height=\"\"20\"\" align=\"\"center\"\" valign=\"\"middle\"\">\"& memloginnum &\"</td>\"&\"</tr>\"&\"</table>');\"
tempobj.movenext
loop
else
response.Write\"暂时还没有会员哦\"
end if

tempobj.close
set tempobj = nothing
set conn = nothing （关闭数据库连接）
%>