企业空间模板里有一个显示公司信息的，我不想直接调用出来，只有一定权限的才可以看到，我的方法如下：

新建一个eninfo.asp文件放在根目录代码如下

<%@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)
  
   '判断会员是否登陆
   If LoginTF=True Then
  
    '判断接受参数是否为空 并且是否为企业会员或者管理员，然后读取数据库内容
    if request("UID")<>"" AND KSUser.GroupID=3 OR KSUser.GroupID=1 then
    Set RS = Server.CreateObject("Adodb.RecordSet")
       SqlStr = "Select * From [KS_User] Where UserID="&Int(request("UID"))
       RS.Open SqlStr, conn, 1, 1
       content="<table border='0' style='font-size:14px'><tr><td>企业法人:"&Rs("RealName")&"</td>"
    content=content&"<td> 公司名称:"&RS("CompanyName") &"</td></tr>"  
    content=content&"<tr><td>手   机:"&RS("Mobile")&"</td>"
    content=content&"<td> 联系电话:"&Rs("OfficeTel")&"</td></tr>"
    content=content&"<tr><td> 传真号码:"&Rs("Fax")&"</td>"
    content=content&"<td> 电子邮箱:"&Rs("Email")&"</td></tr>"
    content=content&"<tr><td colspan='4'>公司网址:"&RS("Homepage")&"</td></tr>"
    content=content&"<tr><td colspan='4'>联系地址:"&RS("Address") &"</td></tr></table>"
     else
        content="<span style='font-size:15px'>这里是企业会员信息,您当前是个人会员无权查看，请升级到<a href='/user/' target='_blank' style='color:red'>企业会员</a>后查看</span>"
     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
%>

然后我在企业空间模板里调用的地方 ，引用一个框架 <iframe src="/eninfo.asp?UID={SQL_企业ID()}" frameborder="0" vspace="0" hspace="0" width="100%"></iframe>

SQL_企业ID   标签为  Select UserID From KS_User Where UserName={$GetUserName}

我测试获得了UserID 并且eninfo.asp文件也获取到了用户的ID号，但是提示我内部服务器500错误，请热心人帮忙，或提供更好的方法。。。