Question

asp代码求翻译

<%
DB="data/#888.mdb"
Response.Buffer=True
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.asp" -->
<!--#include file="functions.asp" -->

Answer 1

创建连接数据库对象
引入buyok.asp和functions.asp文件

Answer 2

没分，谁回答