<%
if request.cookies("tongji")<>"" then
tongji=request.cookies("tongji")
response.cookies("buyok")("userid")=tongji
end if
DB="data/19790108.asp"
Response.Buffer=True
session.timeout=20
on error resume next
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if fso.FolderExists(server.MapPath("include"))=false then
DB="../"&DB
end if
set fso=nothing
set conn=server.createobject("adodb.Connection")
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
'connstr= "driver={Microsoft Access Driver(*.mdb)};dbq=" & Server.MapPath(DB)
conn.Open connstr
copycolor="#A9A9A9"
%>
<!--#include file="buyok_shop_info.asp" -->
<!--#include file="buyok_functions.asp" -->