<!--#include file="inc/inc_function.asp"-->
<%
dim conn,connstr,startime,sundxDB,rs,UserAgent
startime=timer()
UserAgent = Trim(Lcase(Request.Servervariables("HTTP_USER_AGENT")))
If InStr(UserAgent,"teleport") > 0 or InStr(UserAgent,"webzip") > 0 or InStr(UserAgent,"flashget")>0 or InStr(UserAgent,"offline")>0 Then
	Response.Write "请不要采用teleport/Webzip/Flashget/Offline等工具来浏览商城！"
	Response.End
End If


'access数据库的文件名，请使用相对于网站根目录的的绝对路径
'如果是安装在网站根目录，直接修改文件名即可。如果是安装在网站某一目录下，则在前面加上此目录，
'例如，系统安装在“http://www.sdxco.cn/shop/”目录下（shop为安装目录），则这里应该修改为：sundxdb="/shop/admin/#sundxShop#.asp"


sundxDB="/admin/#sundxShopfree#.asp"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&sundxDB&"")
On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open connstr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "数据库连接出错，请检查Conn.asp中的数据库指向。"'
		Response.End
	End If
	
Dim strTitle,LngDiscount,strUserName,LngUserID,LngGrpID,LngDeposit,rsVip,strUserEmail
LngDiscount = 1
LngUserID = 0
LngDeposit = 0
strUserName = "非注册用户"
strTitle = "非注册用户"
if Request.Cookies("sundxshop")("username")<>"" then 
set rsVip=server.CreateObject("adodb.recordset")
rsVip.open "select DV_User.GrpID,DV_User.UserID,DV_User.Score,DV_User.UserEmail,DV_User.Deposit,DV_User.UserName,sundxGRP.GrpName,sundxGRP.Stars from DV_User Inner Join sundxGRP On DV_User.GrpID = sundxGRP.GrpID where username='"&request.Cookies("sundxshop")("username")&"' ",conn,1,1
strTitle = rsVip("GrpName")
LngDiscount = rsVip("Stars")
LngGrpID = Clng(rsVip("GrpID"))
strUserName = rsVip("UserName")
LngUserID = Clng(rsVip("UserID"))
LngScore = Clng(rsVip("Score"))
LngDeposit = rsVip("Deposit")
strUserEmail = rsVip("UserEmail")
rsVip.close
set rsVip=nothing 
End If
%>
<head>
 <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="skin/skin01.css" rel="stylesheet" type="text/css">
<script type="text/javascript" src="inc/img.js"></script>

