
<%
        dim title
        title="伴江行.房产易"

	'##转换 ' 为 "
	function convertsql(str)
		convertsql=replace(str,"'","''")
	end function
	
	'##检测数据库操作否正确
	function checkDb()
		if conn.Errors.count > 0 Then
			checkDb=1
		else
			checkDb=0
		end if
	end function

	'##检测环境否正确
	function checkVb()
		if  Err.number>0 Then
			Err.clear()
			checkVb=1
		else
			Err.clear()
			checkVb=0
		end if
	end function

	'##显示信息函数
	sub out(str)
		response.write str
	end sub

	'##对html进行加密
	function htmlencode(str)
		if not isnull(str) then
			htmlencode=Server.UrlEnCode(str)
		else
			htmlencode=""
		end if
	end function
%>