国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

常用ASP函數的介紹

2024-05-04 11:05:15
字體:
來源:轉載
供稿:網友

ASP函數在asp網頁編程實現功能中是必需部分,但是你對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?
上文就是常用ASP函數的介紹,看完后你對ASP函數了解了嗎?


'=================用正則表達式突出顯示字符串中查詢到的單詞的函數======================?
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?

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 大连市| 娱乐| 南漳县| 瑞丽市| 汾阳市| 兴城市| 旬邑县| 郑州市| 长春市| 丹东市| 克什克腾旗| 海宁市| 胶州市| 兰考县| 宁津县| 醴陵市| 邻水| 福建省| 郯城县| 关岭| 织金县| 民权县| 黄龙县| 台安县| 平江县| 揭西县| 高雄县| 婺源县| 梅州市| 桃园市| 阳城县| 沁源县| 湄潭县| 东明县| 浦城县| 松桃| 三门县| 廉江市| 延安市| 阿合奇县| 汉源县|