日期:2014-05-17  浏览次数:21044 次

vb封装成dll基本成功,但遇严重困难,请您赐教。
程序按照以下语句,已经能正确运行(如下),但我现在不能用绝对路径,而应该、或者说必须使用相对路径,怎么改才行呢?谢谢您的赐教!
<%
    Dim   Coon       As   Connection
    Dim   Rs           As   Recordset
    Set   Conn   =   New   Connection
        With   Conn
            .ConnectionString   =   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source=E:\aspwork11\1nongcun\info\database\ikn__jj_#mrr.mdb "
            .Open
        End   With

Set   Rs   =   New   Recordset
sql   =   "Select   top   4   *   From   NewsData   where   D_CataID= 'A00030004 '   and   D_Picture <> ' '   ORDER   BY   D_id   desc "
Rs.Open   sql,   Conn,   1,   1
......以下程序正常,省略。
%>

------解决方案--------------------
已经在其他帖子里面回复了。 我来拿分了。

应该是要加上一个Server的对象,才可以。
具体代码大家如果需要,可以向 ab9(落寞的微笑) 索求。