想做个内部网站，怎么加登陆状态判断呢？-领先建站CMS提供服务商我们专注于CMS建站产品的研发

1707 查看	4 回复

主题：想做个内部网站，怎么加登陆状态判断呢？ [收藏主题]

转到：

无风当前离线

1622 主题	5 广播	29 粉丝

级别:高一年

用户积分:5963 分
登录次数:199 次
注册时间:2009/10/12
最后登录:2024/4/4
官方认证：仿站大师

无风发表于：2014/2/5 11:58:59 | 显示全部帖子查看该作者主题楼主

老版本代码，仅供参考

<%
'----------------------------------------
'判断用户是否登录调用方式：<script language="javascript" type="text/javascript" src="GetQikanPrice.asp?id={$Field(id,Num,0,2)}"></script >
'----------------------------------------
Dim KS:Set KS=New PublicCls
Dim KSUser:Set KSUser=New UserCls
Dim UserLoginTF:UserLoginTF=KSUser.UserLoginChecked
Dim RS,SqlStr,id,qkmoney
id=Trim(Request("id"))
IF Cbool(KSUser.UserLoginChecked)=false Then
qkmoney = "<a href=""javascript:ShowLogin();""><font color=red>请登录查看</font></a>"
Else
SqlStr = "select qkmoney from qikan where rec=1 and id ="&id
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SqlStr, conn, 1, 1
If Not RS.bof Then
qkmoney = "<span>"&rs("qkmoney") & "</span>元"
End If
rs.close
set rs = nothing
End If
Response.Write "document.write('" & qkmoney & "');"
Response.Write "document.write('<script src=""" & KS.Setting(3) & "ks_inc/kesion.box.js"" language=""JavaScript""></script>');"
%>
function ShowLogin()
{
new KesionPopup().popupIframe('会员登录','<%=KS.Setting(3)%>user/userlogin.asp?Action=Poplogin',397,184,'no');
}
<%
Call CloseConn()
Set KS=Nothing
%>

反对(0)

底部