conn.asp

来自「目前人力资源管理系统的发展已经相对成熟」· ASP 代码 · 共 14 行

<%
set conn=server.CreateObject("Adodb.Connection")
Path="driver={SQL Server};server=.;uid=sa;pwd=;database=db_people"
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
%>