?? function.asp
字號:
<%
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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -