ASP函数集-ASP教程,ASP技巧

========取得带端口的url，推荐使用================

function get_scriptnameurl()

if request.servervariables("server_port")="80" then

get_scriptnameurl="http://" & request.servervariables("server_name")&lcase(request.servervariables("script_name"))

else

get_scriptnameurl="http://" & request.servervariables("server_name")&":"&request.servervariables("server_port")&lcase(request.servervariables("script_name"))

end if

end function

=================用正则表达式突出显示字符串中查询到的单词的函数======================

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,"<font color=""#ff0000""><b>$1</b></font>" )

set objregexp=nothing

boldword=strcontent

end function

===============取得用户当前ip地址===================

function getip()

uip = request.servervariables("http_x_forwarded_for")

if uip = "" then uip = request.servervariables("remote_addr")

getip = uip

end function

===============取得当前程序脚本路径==================

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(request.querystring(""&m_item&"")) & "&"

end if

next

keepurlstr = scriptaddress & m_itemurl

end function