ASP中常用的代碼塊

' 判斷髮言是否來自外部
function ChkPost()
    dim server_v1,server_v2
    chkpost=false
    server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
    server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
    if mid(server_v1,8,len(server_v2))<>server_v2 then
        chkpost=false
    else
        chkpost=true
    end if
end function

'過濾HTML代碼
function HTMLEncode(fString)
if not isnull(fString) then
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")

    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(9), "&nbsp;")
    fString = Replace(fString, CHR(34), "&quot;")
    fString = Replace(fString, CHR(39), "'")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
    fString = Replace(fString, CHR(10), "<BR> ")

    fString=ChkBadWords(fString)
    HTMLEncode = fString
end if
end function

'過濾表單字元
function HTMLcode(fString)
if not isnull(fString) then
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
    fString = Replace(fString, CHR(10), "<BR>")
    HTMLcode = fString
end if
end function

'返回上一頁
<input type=button name="back" value="返 回" onClick="location.href='<%=Request.ServerVariables("HTTP_REFERER")%>'">

<a href="<%=Request.ServerVariables("HTTP_REFERER")%>"><<返回上一頁</a>

'計算指令碼前後所使用的時間
<%
startime=timer()
endtime=timer()
response.write FormatNumber((endtime-startime)*1000,3)%>毫秒