<%
        dim title
        title="商丘易房網"

	'##轉換 ' 為 "
	function convertsql(str)
		convertsql=replace(replace(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

	'##顯示提示信息函數
	sub outerr(str)
      response.write"<table width='60%' border='1' cellpadding='0' cellspacing='0' bordercolorlight='#fd9035' bordercolordark='#ffffff' align='center'>"
	  response.write"<tr><td bgcolor='#fd9035' height='35' style='font-size:10pt'>"
      response.write"<div align='center'><font color='#FFFFFF'><b>提示信息！</b></font></div>"
	  response.write"</td></tr>"
	  response.write"<tr><td><p align='center'><br>"&str&"<br><br></p></td></tr>"
	  'response.write str
      response.write"<tr><td bgcolor='#fd9035' height='25' valign='middle' style='font-size:10pt'>"
      'response.write"<td bgcolor='#fd9035' style='font-size:10pt'>"
      response.write"<div align='center'><font color=#FFFFFF>商丘易房網    http://www.sqefw.com</font></div>"
      response.write"</td></tr></table>"
	end sub

	'##對html進行加密
	function htmlencode(str)
		if not isnull(str) then
			htmlencode=Server.UrlEnCode(str)
		else
			htmlencode=""
		end if
	end function
%>
<p></p>