<% @ 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 %> NEWSUN

  Home >> Contact

You can easily contact us using one of the several options below: 

EMAIL: 

   

                

Leon:

 market@newsuntoys.com

 

   
TELEPHONE:    
 

Tel 1:

86-592-5802825
     

FAX: 

   

Fax1: 86-592-5802835
 

Fax2:

86-592-5802837
   

 

Home - Help - Contact - Statement - About Newsun 
Copyright © 2004 www.newsuntoys.com Inc. All rights reserved.