利用自定义模型打造会员可见信息供求系统-领先建站CMS提供服务商我们专注于CMS建站产品的研发

3247 查看	5 回复

主题：[修正最终版]利用自定义模型打造会员可见信息供求系统 [收藏主题]

转到：

purpletea 当前离线

90 主题	0 广播	0 粉丝

级别:学前班

用户积分:1549 分
登录次数:169 次
注册时间:2008/10/27
最后登录:2013/3/28

purpletea 发表于：2010/2/6 10:17:00 | 只看该作者查看该作者主题楼主

做考试题库就用#科汛在线考试系统!

利用自定义模型打造会员可见信息供求系统

原先一版：http://bbs.kesion.com/dispbbs.asp?boardID=41&ID=110312

大家好，我是紫色茶 http://www.purpletea.cn

简单需求假设：

求购信息是高级会员组即可看见联系方式，需添加高级会员组

执行思路：

在求购信息页面模板，加入iframe 调用一个查询的asp页面（名字在这里命名为：purpletea.asp,位置放置在根目录），调用时传入文档的id，此页面判断是否登陆，并判断登陆会员是否是高级会员，如果是显示联系方式，如果不是提示只有高级会员可见。

实施过程：

前提：已经添加高级会员组，添加过程在此不述

1、首先建立一个自定义模型，求购系统，表名KS_U_qgxt ，模型自定义添加一个字段： KS_lianxidianhua

2、新建一个SQL标签，用来读取当前文档的ID，{SQL_文章ID获取()}
查询语句 select ID from KS_U_qgxt where ID={$CurrInfoID}

循环体 [loop=1]{$Field(ID,Num,0,2)}[/loop]

3、在制作求购系统模板，并在内容页面模板中加入iframe语句，用来读取 purpletea.asp

4、重要步骤，制作purpletea.asp页面。以下是代码内容，如果这个不会，那就在学习下asp吧

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>

<%
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,RSU,SqlStrU,Username,typeU
   if KSUser.UserName<>"" then       '我这里直接判断会员用户名了
   Username=KSUser.UserName
   else
   Username="purpletea" ' 这个是随便赋值，我多加了点
   end if
    Set RSU = Server.CreateObject("Adodb.RecordSet")
    SqlStrU = "Select UserType From [KS_User] Where UserName='" & Username&"'" '查询这个用户名
    RSU.Open SqlStrU, conn, 1, 1
    if not RSU.eof then

       if int(RSU("UserType"))=1 then '看他的UserType，好久不用kesion了，也不知道了什么意思，大概是会员组的依稀，1即是高级会员组的值。
         typeU=1
        else
         typeU=0
        end if

    else
     typeU=0
    end if
   If typeU=1 then   ' 如果会员组值为1，即高级一点点的
   If LoginTF=True Then  '哦，还没有判断登陆，哈哈

    '读取数据库内容
    if request("id")<>"" then  'iframe 传过来的id，在这里就用上了吧
    Set RS = Server.CreateObject("Adodb.RecordSet")
    SqlStr = "Select * From [KS_U_jzzb] Where ID="&request("id")
    RS.Open SqlStr, conn, 1, 1
    content="strong>联系电话：</strong><span style='color:red'>"&RS("KS_lianxidianhua")&"</span> </div>" ' 要显示的字段，在这里，都显示，要是想换样式，自己写吧。
    else
    content="没有相关数据，请<a href='/'>返回首页</a>"
    end if
   End if
     Else '没有登陆，怎么办，显示提示啊
   content="联系方式高级会员可见，您是高级会员，请<a href='/user/' target='_blank'>登录</a>，<a href='/user/' style='color:green'>加入</a>尊贵会员，享受更多会员服务！"
     End if

    Response.Write content 'Ok 输出内容吧
End Sub