*****===取得帶埠的url，推薦使用***************=
function get_scriptnameurl()
if request.servervariables("server_port")="80" then
get_scriptnameurl="http://" & request.servervariables("serve程式設計客棧r_name")&lcase(request.servervariables("script_name"))
'***************==用正規表示式突出顯示字串中查詢到的單詞的函式********************==
function boldword(strcontent,word)
if word="" then
boldword = strcontent
exit function
end if
dim objregexp
set objregexp=new regexp
objregexp.ignorecase =true
objregexp.global=true
objregexp.pattern="(" & word & ")"
strcontent=objregexp.replace(strcontent,"$1" )
set objregexp=nothing
boldword=strcontent
end function
'***************取得使用者當前ip地程式設計客棧址***************====
'***************取得當前程式指令碼路徑程式設計客棧***************===
function getscriptname()
scriptaddress = cstr(request.servervariables("script_name"))'取得當前位址
if (request.querystring <> "") then
scriptaddress = scriptaddress & "?" & server.htmlencode(request.querystring)'取得帶引數位址
end if
if len(scriptaddress)>250 then scriptaddress = left(scirptaddress,250)&"..." '進行路徑擷取，最大為250個字元
getscriptname = scriptaddress
end function
'**********=返回帶引數的url，多關鍵字排序時使用**********====
' removelist 引數：需要從url中去除的引數，可以是多個，中間請用逗號隔開
function keepurlstr(removelist)
scriptaddress = cstr(request.servervariables("script_name"程式設計客棧))&"?"'取得當前位址,並加入「?」符號
m_itemurl = ""
for each m_item in request.querystring
if instr(removelist,m_item)=0 then
m_itemurl = m_itemurl & m_item &"="& server.urlencode(r""&m_item&"")) & "&"
end if
next
keepurlstr = scriptaddress & m_itemurl
end function
本文標題: 幾個常用的asp函式
本文位址:
ASP幾個常用的判斷函式
在取得使用者輸入資訊的時候,我們常常要判斷使用者輸入的有效性.下面幾個是常用的 1,檢查輸入字段是否為日期型別 funciton xzip inputzip if isnumeric inputzip then if len inputzip 6 then xzip 1 else xzip 0 en...
ASP中幾個有用的函式
原出處 江都資訊網論壇 function deletefile filename 刪除檔案 if filename then set fso server.createobject scripting.filesystemobject if fso.fileexists filename then ...
asp常用函式
array function 返回乙個陣列 syntax array list arguments 字元，數字均可 example dim myarray for i 1 to 7 redim preserve myarray i myarray i weekdayname i next resul...