<!--#include file=\"Wq_SqlIn.Asp\"-->
<!--#include file=\"admin/database_name.asp\" -->
<%
db=\"data/\"&dataname&\"\"
On Error Resume Next
dim ConnStr
dim conn
ConnStr = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Server.MapPath(db)
Set conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write \"数据库连接出错,请检查Conn.asp文件中的数据库参数设置。\"
Response.End
End If
sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
end if
end sub
%>作者: bsj 时间: 2008-12-14 00:02
没有的,帮你顶顶……