<%@CODEPAGE=65001%>
<%
'option explicit
'Response.Buffer = true '启动缓冲器
Response.codePage=65001
Response.ContentType = "text/html"
Response.CharSet = "utf-8"

Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>
<!--#include file="../sy/db_database_name.asp" -->
<!--#include file="function.asp" -->
<%
dim db,conn,connstr,dataname
db="../db/"&dataname&""
'On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串!"
Response.End
End If

'SuiYue.COM
Public Const web_url="../"
%>
<!--#include file="../sy/inc/const.asp" -->
<!--#include file="../sy/inc/nosql.asp" -->
<%
if len(session("S[CART_COUNT]"))<1 then
session("S[CART_COUNT]")=0
end if
%>