<%
	'option explicit
	dim conn
	dim connstr
	dim db
	'更改数据库名字
	db="datacnmai_xp/%297456123894cnmaidatazhaobaoshengcnmaicom.asp"
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
	conn.Open connstr

Rem 断开数据库连接
function Closedb
	'Conn.close
	Set conn = Nothing
End Function

Rem 过滤SQL非法字符
function checkStr(str)
	if isnull(str) then
		checkStr = ""
		exit function 
	end if
	checkStr=replace(str,"'","''")
End Function
%>