<%@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"-->

<%
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

End Class
%>