<!--#include file="inc/inc_function.asp"-->
<%
dim conn,connstr,startime,sundxdb,rs,useragent
const httpurl="127.0.0.1"
const httpserver="localhost"
const strVersion = "商达讯网店购物系统 9.1官方正式简体中文版专业版免费版"
session.timeout=60
server.scripttimeout=900
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

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


sundxdb="#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 "数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。
		response.end
	end if


set rsc=server.CreateObject("adodb.recordset")
rsc.Open "select * from config",conn,1,1
webimg9=trim(rsc("webimg9"))
webimg10=trim(rsc("webimg10"))
rsc.Close
set rsc=nothing

%>


<meta http-equiv="content-type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<style>
td{font-size:9pt;line-height:120%;color:#353535} 
body{font-size:9pt;line-height:120%} 

a:link          { color: #000000; text-decoration: none }
a:visited       { color: #000000; text-decoration: none }
a:active        { color: #000000; text-decoration: none }
a:hover         { color: #336699; text-decoration: none; position: relative; right: 0px; top: 1px }
</style>
<style type=text/css>
.pad {
	padding-left: 150px
}
</style>
<body bgcolor="#ffffff" leftmargin="4" topmargin="4" marginwidth="0" marginheight="0">
