<%
   dim conn   
   dim connstr
   connstr="DBQ="+server.mappath("../7dinet/7dinet.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
     set conn=server.createobject("ADODB.CONNECTION")
     conn.open connstr 
%><!-- 
'******************************以下信息切記一定不要刪除******************************************************'
'**                                                                                                     *****'
'**                 啟迪信息平臺由www.7di.net開發完成，如果需要轉載，請保留作者的勞動成果               *****'
'**                   此程序由 我（qq:9256114）和 沒有魚的水（356754）開發完成，歷時2周。               *****'
'**                   我的站點是http://www.7di.net，最近正在加緊改版，歡迎提出寶貴建議。                *****'
'**          沒有魚的水的站點是http://www.heartyue.com，這是一個不錯的文學站點，由我們兩人合作完成      *****'
'**                                                                                                     *****'
'************************************************************************************************************' -->