conn.asp

ASP+SQL2000编写的OA办公自动化系统,值得学习和借鉴1

<%
set conn=server.CreateObject("Adodb.Connection")
Path="driver={SQL Server};server=.;uid=sa;pwd=123;database=db_office"
conn.open path 
function HTMLcode(fString)
if not isnull(fString) then
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
    fString = Replace(fString, CHR(10), "<BR>")
	fString = Replace(fString, CHR(32), "&nbsp;")
    HTMLcode = fString
end if
end function
%>