<%
'|-----------------------------------------------------------------------|
'|---------飞越软件信息采集器v1.0 for 动易网站管理系统2005/2006 ---------|
'|-------------------------- 作者:科技创造自由 --------------------------|
'|------------------ 飞越快乐家园  http://www.fy66.net/ -----------------|
'|--动易版主Top在本插件的编写过程中给予了大力支持,特此表示诚恳的感谢!----|
'|------ 本插件多处代码参考了SNA新闻采集系统for动易4.03,特此声明! -------|
'|----- 转载请保留版权信息,手下留情,留下的是对别人的尊重,谢谢! ----------|
'|-----------------------------------------------------------------------|
dim connstrItem
dim dbItem
dim connItem
dbItem="Admin_ST_Date.asa" '动易软件信息采集数据库地址(请使用相对路径)
On Error Resume Next
Set connItem = Server.CreateObject("ADODB.Connection")
connstrItem="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbItem)
connItem.Open connstrItem
Const Edition=2006'动易网站管理系统版本，请填写2005或2006。
If Err Then
   err.Clear
   Set ConnItem = Nothing
   Response.Write "数据库连接出错，请检查连接字串。"
   Response.End
End If
sub CloseConnItem()
On Error Resume Next
   ConnItem.close
   Set ConnItem=nothing
End sub
%>