buyok_shop_30_conn.asp

来自「这是一个很漂亮的网站购物系统」· ASP 代码 · 共 18 行

<%
DB="data/buyok30xdddasdf.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" -->