生成的静态页面调用自己写的动态插件的方法及一个简单示例_风讯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 （关闭数据库连接）
%>

查看更多 风讯cms教程  风讯cms模板