<% @ 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 %> 批发玩具

  五分彩app >> 帮助

 
常见问题:
 
 
如何:
 
 
关于注册:
 
 
声明:
 

         www.pftoy.com不能也不保证此处所上传的所有图片受到版权或其他知识产权的保护,且对于任何个人或实体使用这些数据或链接导致的任何损失、伤害、损伤、权利的主张、债务、由此产生的损失或其他事项,包括任何商业授权等,概不负责。

 

 

五分彩app - 帮助 - 联系我们 - 声明 - 关于我们 
版权所有  2010 www.pftoy.com    All rights reserved.