<!--#include file="../Conn.asp"-->
<!--#include file="../KS_Cls/Kesion.MemberCls.asp"-->
<%

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 = "登录查看您的价格。<a href=""javascript:ShowLogin();""><font color=red>登录</font></a> <a href=""../?do=reg""><font color=red>注册</font></a>"
 Else
        SqlStr = "SELECT GroupPrice,Price_Member FROM 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 = "￥ <font color=""red"">" & Conn.Execute("Select Price From KS_ProPrice Where ProID= " & ProID & " and GroupID=" & KSUser.GroupID)(0) & "</font> 元"
		   Else
            Tips = "￥ <font color=""red"">" & FormatNumber(rs(1),2,-1) & "</font> 元"
		   End If
        End If
        rs.Close
        Set rs = Nothing
End If
Response.Write "document.write('" & Tips & "');"
Response.Write "document.write('<script src=""" & KS.Setting(3) & "nc/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	
%>
