conn.asp

asp+flash宾客留言系统

<%
Set conn = Server.CreateObject("ADODB.Connection")
'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("gbook.mdb")
connstr="Driver={Microsoft Access Driver (*.mdb)};UID=fcclzy;PWD=13786443047;dbq= "&server.MapPath("gbook.mdb")
conn.open connstr
function encodestr(str)
	dim i
	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>")
	encodestr=replace(str,"  ","??")
end function
%>