conn.asp

来自「很好的OA办公系统」· ASP 代码 · 共 32 行

 <%'-------------------
 ' Copyright: pwsite.net (动力在线)
 ' @author pwsite.net (飞越)
 ' email:[e-mail] | [e-mail]
 '------------------------
 
 dim connstr,conn,connstr1,conn1,connstr2,conn2
 const feiyuedbq="fyipdb.mdb" 'ip与手机数据库路径
 const feiyuedbq1="feiyueff.mdb" '管理员资料路径 ,这个路径强烈建议更改
const pages=20'每页显示记录
const feiyue="fyip"'session
  connstr="DBQ="+server.mappath(""&feiyuedbq&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
     set conn=server.createobject("ADODB.CONNECTION")
    conn.open connstr  
    
   ' connstr1="DBQ="+server.mappath(""&feiyuedbq1&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
   '  set conn1=server.createobject("ADODB.CONNECTION")
    'conn1.open connstr1


  '过滤非法字符
function chktopic(str)
	if str<>"" then	
	chktopic=replace(str,"'","''")
	end if
end function

sub closedb()
conn.close
set conn=nothing
end sub 
%>