conn.asp

是个不错的文件代码,希望大家好好用,

<% 
dim db,conn,connstr
db="iqsun.asp"
set Conn = server.CreateObject("ADODB.Connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="& server.MapPath("data/"&db&"")
conn.Open connstr

Function HtmlEncode(Content) 
  Content = Replace(Content, ">", "&gt;") 
  Content = Replace(Content, "<", "&lt;")
  Content = Replace(Content, " ", "&nbsp;")
  Content = Replace(Content, "'", "")
  Content = Replace(Content, CHR(10),"<BR>") 
  HtmlEncode = content 
End Function
%>