Code used frequently in ASP-application techniques

Click the prompt "OK" and "Cancel" prompt box
Onclick= ' {if confirm ("Are you sure you want to delete it? This operation will not be restored!")) {return true;} return false;} '


Delete. 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 = "<.+?>"
' to match
Set matches = Objregexp.execute (strhtml)

' Iterate through the matching set and replace the matching item
For the 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")
%>