conn.asp

客户资源管理系统 1.显示所有客户资料 2.添加/修改客户资料； 3.添加客户拜访记录； 4.模糊搜索； 5.数据导出导入excal-access； 6.信息录入人员管理； 7.数据转移

<%
Dim conn,connstr
Dim DBPath
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("Connections/#data.pcook")
'	conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath

''====================================''
''说明    字符替换
''返回值  被替换后的字符串                  
''====================================''
Function htmlEncode2(str)
    If IsEmpty(str) Or str = "" Then
	    htmlEncode2 = "&nbsp;"
	Else
	    str = Replace(str,">","&gt;")
		str = Replace(str,"<","&lt;")
		str = Replace(str,"'","&quot;")
		str = Replace(str,Chr(13),"<br>")
		str = Replace(str,VBCrlf,"<br>")
		str = Replace(str," ","&nbsp;")
		htmlEncode2 = str
	End If
End Function
''====================================''
''说明    字符替换
''返回值  还原字符串                  
''====================================''
Function htmlEncode3(str)
	str = Replace(str,"&quot;","'")
	str = Replace(str,"<br>",Chr(13))
	str = Replace(str,"&nbsp;"," ")
	str = Replace(str,"&gt;",">")
	str = Replace(str,"&lt;","<")
	htmlEncode3 = str
End Function
%>