% @ 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 %>
|
|
|
Home >> About Newsun |
![]() |
| ||||||||||||||||||||
|
|
| Home - Help - Contact - Statement - About Newsun |
| Copyright © 2004 www.newsuntoys.com Inc. All rights reserved. |