www.gusucode.com > 木犁IT产品管理系统 1.0 beta1码程序 > conn.asp
<!--#include file="fsql.asp" --> <% Function Get_SafeStr(str) Get_SafeStr = Replace(Replace(Replace(Replace(Replace(Trim(str), "'", ""), Chr(34), ""), ";", ""),"=",""),">","") End Function db="sjk2008/#sy#wgh2008#.asp" 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 %>