asp下經常用到的代碼

點擊提示“確定”與“取消”提示框

onclick='{if(confirm("您確定刪除嗎?此操作將不能恢復!")){returntrue;}returnfalse;}'

刪除.LDB文件

<%

Application.Contents.Removeall()

%>

將HTML格式轉換為純文本格式

<%

FunctionRemoveHTML(strHTML)

DimobjRegExp,Match,Matches

SetobjRegExp=NewRegexp

objRegExp.IgnoreCase=True

objRegExp.Global=True

'取閉合的<>

objRegExp.Pattern="<.+?>"

'進行匹配

SetMatches=objRegExp.Execute(strHTML)

'遍歷匹配集合，並替換掉匹配的項目

ForEachMatchinMatches

strHtml=Replace(strHTML,Match.Value,"")

Next

RemoveHTML=strHTML

SetobjRegExp=Nothing

EndFunction

%>

調用

<%=RemoveHTML(你的字段)%>

25、當前頁地址

<%

response.write"http://"&Request.ServerVariables("server_name")&Request.ServerVariables("script_name")

%>