conn.asp

树形论坛

<%@ LANGUAGE=VBScript CodePage=936%>
<%Response.Buffer=True%>
<%
'┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓'
'┃                   未名小型论坛WMFORUM(S)asp版 v2.0                     ┃'
'┣━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┫'
'┃                   homepage:http://www.qqwm.com                         ┃'
'┃                            http://ygy520.126.com                       ┃'
'┃                   Q Q  NO.:194088                                      ┃'
'┣━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┫'
'┃                          未名工作室出品                                ┃'
'┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛'
ver="2.0"
dim conn
dim connstr

datapath    ="p688com67123/"      '数据库目录的相对路径
datafile    ="comp68867123.asa"   '数据库的文件名
Connstr="DBQ="&server.mappath(""&datapath&""&datafile&"")&";DRIVER={Microsoft Access Driver (*.mdb)};"
SqlNowString="Now()"
SqlChar="'"
Set conn=Server.CreateObject("ADODB.Connection")
conn.open ConnStr

%>