conn.asp

ASP入门与提高实用教程 源文件(上传网站)

<%@language=vbscript codepage=936 LCID=2052 %>
<%
option explicit
response.buffer=true

dim conn,connstr
set conn=server.CreateObject ("adodb.connection")
	
	conn.CommandTimeout =300
	conn.ConnectionTimeout =300
	
	connstr ="Provider = Microsoft.Jet.OLEDB.4.0; Data Source ="& Server.MapPath("db/db1.mdb")
	Conn.Open connstr
sub connclose
	conn.close
	set conn=nothing
end sub

sub rsclose
	rs.close
	set rs=nothing
end sub
function encodestr(str)
	str=trim(str)
	str=replace(str,"<","&lt;")
	str=replace(str,">","&gt;")
	str=replace(str,"'","""")
	str=replace(str,vbCrLf&vbCrlf,"</p><p>")
	str=replace(str,vbCrLf,"<br>")
	str=Replace(str,"&#","&amp;#")
	encodestr=replace(str,"  ","　")
end function

%>