% @ Language="VBScript"%>
<% Option Explicit
Response.Expires=0
Dim con,rst,strSQL
Dim strUser,nUserID,IsGuest, Tag
Set con=Server.CreateObject("ADODB.Connection")
Set rst=Server.CreateObject("ADODB.RecordSet")
con.Open Application("dsn")
'****检查用户,若为GUEST或非法用户,则只能浏览产品,无权报价
strUser=Request.Cookies("Ucook")("logName")
nUserID=Request.Cookies("Ucook")("logID")
Tag=Request.Cookies("Ucook")("Utag")
Exrate=Trim(Request.Cookies("IUHL"))
If strUser="" or UCase(strUser)="GUEST" or nUserID="" or Tag <> 2 or Exrate="" Then
IsGuest=True
Else
strSQL="Select UserName From WebUsers Where UserName='" & Replace(strUser,"'","''") & "' And ID_User=" & nUserID
rst.Open strSQL,con
If rst.EOF Then
IsGuest=True
Else
If UCase(rst("UserName"))="GUEST" Then
IsGuest=True
Else
IsGuest=False
End If
End If
rst.Close
End If
'**** End of Check
con.Close
set rst=nothing
set con=Nothing
%>