如果你不会建立自定义模型，先学习下，如果建立好了自定义模型，往下看，代码中有说明

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="Conn.asp"-->
<!--#include file="KS_Cls/Kesion.MemberCls.asp"-->
<!--#include file="KS_Cls/Kesion.Label.CommonCls.asp"-->

<%
'***使用说明***AD:本人小博 http://www.purpletea.cn QQ:792981109
'建设一个SQL标签，获取当前文章的ID，{SQL_文章ID获取()}
'查询语句 select ID from KS_U_jzzb where ID={$CurrInfoID}，自定义模型的表，去数据库里看去
'循环体 [loop=1]{$Field(ID,Num,0,2)}[/loop]
'当前文档存储为dh.asp 或者你喜欢的其他名字，存放在更目录或者其他目录，我是放了根目录下了，地址就是/dh.asp
'将iframe加入内容页模板之中：
'<iframe src="/dh.asp?id={SQL_文章ID获取()}" frameborder="0" vspace="0" hspace="0" width="400" height="80"></iframe>
'当前文档可以根据需求自行修改
'****************************************************
Dim KSCls
Set KSCls = New UserCk
KSCls.Kesion()
Set KSCls = Nothing

Class UserCk
        Private KS,KSUser,LoginTF,TemplateFile
  Private Sub Class_Initialize()
    Set KS=New PublicCls
    Set KSUser=New UserCls
  End Sub
        Private Sub Class_Terminate()
   Set KS=Nothing
   Set KSUser=Nothing
  End Sub
  Public Sub Kesion() 
      
         Dim LoginTF:LoginTF=Cbool(KSUser.UserLoginChecked)
  
   Dim content,RS,SqlStr
   If LoginTF=True Then
  
    '读取数据库内容
    if request("id")<>"" then
    Set RS = Server.CreateObject("Adodb.RecordSet")
    SqlStr = "Select * From [表的名字] Where  ID="&Int(request("id"))
    RS.Open SqlStr, conn, 1, 1
    content="<span style='color:red'>"&RS("KS_lianxidianhua")&"</span> " '读取字段，请自行更改此处，重要
    else
    content="读取数据时错误，请<a href='/'>返回首页</a>"
    end if
   
   Else
   content="这里是会员可见的信息，您还没有登录，请<a href='/user/' target='_blank'>登录</a>，<a href='/user/' style='color:green'>加入</a>尊贵会员，享受更多会员服务！"   
   End If
 
    Response.Write content
 End Sub

End Class
%>

此主题相关图片如下：denglu.jpg

2009 11 -23 日最新文档在附件中
 

下载信息  [文件大小：1.44 KB 下载次数： 次]

点击下载文件:dh

大家来顶，让需要的人们，看得到呗