直接建立的一个动态页面,无静态生成,页面内容为:
- <!--#include file="../Conn.asp"-->
- <!--#include file="../KS_Cls/Kesion.CommonCls.asp"-->
- <!--#include file="../KS_Cls/Kesion.Label.CommonCls.asp"-->
- <%
- Dim KSCls
- Set KSCls = New muban
- KSCls.Kesion()
- Set KSCls = Nothing
- Class muban
- Private KS, KSR,Maps
- Private Sub Class_Initialize()
- If (Not Response.IsClientConnected)Then
- Response.Clear
- Response.End
- End If
- Set KS=New PublicCls
- Set KSR = New Refresh
- End Sub
- Private Sub Class_Terminate()
- Call CloseConn()
- Set KS=Nothing
- End Sub
- Public Sub Kesion()
- Dim FileContent
- Dim MapTemplatePath:MapTemplatePath=KS.Setting(3) & KS.Setting(90) & "muban.htm" '读取模板地址,模板放到在template目录下,文件名自取,但需要和这里的文件名一致!
- FileContent = KSR.LoadTemplate(MapTemplatePath)
- FileContent=KSR.KSLabelReplaceAll(FileContent) '调用科汛的全站标签替换函数
- response.write FileContent '最后输出内容
- End Sub
- End Class
- %>
模板中对应终极标签为
对应SQL查询语句:select KS_User.UserID,KS_User.Address,KS_User.Email,KS_User.IsOnline,KS_User.UserFace,KS_User.Mobile,KS_User.OfficeTel,KS_User.QQ,KS_User.RealName,KS_User.KS_renzheng,KS_Blog.BlogName,KS_Blog.hits FROM KS_User INNER JOIN KS_Blog ON KS_User.UserID = KS_Blog.UserID where KS_User.GroupID=18 and Status=1 order by KS_User.LastLoginTime desc
然后就是[LOOP]循环体。