function.asp

来自「一个关于房产的asp程序」· ASP 代码 · 共 60 行

<%
        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>