Click the prompts "OK" and "Cancel" prompt boxes
onclick='{if(confirm("Are you sure to delete? This operation will not be restored!")){returntrue;}returnfalse;}'
Delete .LDB file
<%
Application.Contents.Removeall()
%>
Convert HTML to plain text format
<%
FunctionRemoveHTML (strHTML)
DimobjRegExp,Match,Matches
SetobjRegExp=NewRegexp
objRegExp.IgnoreCase=True
objRegExp.Global=True
'Pick the closed<>
objRegExp.Pattern="<.+?>"
'Make a match
SetMatches=objRegExp.Execute(strHTML)
'Travel over the matching collection and replace the matching items
ForEachMatchinMatches
strHtml=Replace(strHTML,Match.Value,"")
Next
RemoveHTML=strHTML
SetobjRegExp=Nothing
EndFunction
%>
Call
<%=RemoveHTML(your field)%>
25. Current page address
<%
response.write"http://"&Request.ServerVariables("server_name")&Request.ServerVariables("script_name")
%>