几个常用的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