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")

%>