Frequently used code in ASP

Click the "OK" and "cancel" prompts
Onclick = '{If (confirm ("are you sure you want to delete it? This operation cannot be restored! ") {Return true;} return false ;}'

Delete the. LDB File
<%
Application. Contents. removeall ()
%>

Convert HTML format to plain text format
<%
Function removehtml (strhtml)
Dim objregexp, match, matches
Set objregexp = new Regexp

Objregexp. ignorecase = true
Objregexp. Global = true
'Take the closed <>
Objregexp. pattern = "<. +?> "
'For matching
Set matches = objregexp. Execute (strhtml)

'Traverse the matching set and replace the matched items.
For each match in matches
Strhtml = Replace (strhtml, match. value ,"")
Next
Removehtml = strhtml
Set objregexp = nothing
End Function

%>
Call
<% = Removehtml (your field) %>

25. Current page address
<%
Response. Write "http: //" & request. servervariables ("SERVER_NAME") & request. servervariables ("script_name ")
%>