点击提示“确定”与“取消”提示框 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") %>
推荐阅读
根据日期得到生肖的ASP函数
根据生日时间返回所属生肖复制代码 代码如下:<% Function Zodiac(birthday) If IsDate(birthday) Then birthyear = Year(birthday) ZodiacList = Array("猴", "鸡", "狗", "猪", "鼠", "牛", "虎", "兔", >>>详细阅读
本文标题:asp下经常用到的代码
地址:http://www.17bianji.com/kaifa2/ASP/32287.html
1/2 1