asp下经常用到的代码


            点击提示“确定”与“取消”提示框 onclick='{if(confirm("您确定删除吗?此操作将不能恢复!")){return true;}return false;}' 删除.LDB文件 <% Application.Contents.Removeall() %> 将HTML格式转换为纯文本格式 <%   Function RemoveHTML(strHTML)    Dim objRegExp, Match, Matches       Set objRegExp = New Regexp    objRegExp.IgnoreCase = True    objRegExp.Global = True    '取闭合的<>    objRegExp.Pattern = "<.+?>"    '进行匹配    Set Matches = objRegExp.Execute(strHTML)    ' 遍历匹配集合，并替换掉匹配的项目    For Each Match in Matches           strHtml=Replace(strHTML,Match.Value,"")    Next    RemoveHTML=strHTML    Set objRegExp = Nothing   End Function   %> 调用 <%=RemoveHTML(你的字段)%> 25、当前页地址 <%  response.write "http://"&Request.ServerVariables("server_name")&Request.ServerVariables("script_name")  %>