<%
'****************************************************
' Software name:Kesion CMS 8.0
' Email: service@kesion.com . QQ:111394,9537636
' Web: http://www.kesion.com http://www.kesion.cn
' Copyright (C) Kesion Network All Rights Reserved.
'****************************************************
Dim KS
Set KS=New PublicCls
Set KSUser = New UserCls
Dim ProID,Tips,RS,SqlStr
ProID = KS.ChkClng(KS.S("ProID"))
If ProID = 0 Or Cbool(KSUser.UserLoginChecked)=false Then
Tips = "登录查看您的价格。登录 注册"
Else
SqlStr = "SELECT GroupPrice,Price_Member FROM KS_Product Where ID=" & ProID
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SqlStr, conn, 1, 1
If Not RS.bof Then
If RS(0)=1 Then
Tips = "￥ " & Conn.Execute("Select Price From KS_ProPrice Where ProID= " & ProID & " and GroupID=" & KSUser.GroupID)(0) & " 元"
Else
Tips = "￥ " & FormatNumber(rs(1),2,-1) & " 元"
End If
End If
rs.Close
Set rs = Nothing
End If
Response.Write "document.write('" & Tips & "');"
Response.Write "document.write('');"
%>
function ShowLogin()
{
new KesionPopup().popupIframe('会员登录','<%=KS.Setting(3)%>user/userlogin.asp?Action=Poplogin',397,184,'no');
}
<%
Call CloseConn()
Set KS=Nothing
%>