<%
Function getFileName(lsPath)
lsPath = Request.ServerVariables("SCRIPT_NAME")
arPath = Split(lsPath, "/")
GetFileName =arPath(UBound(arPath,1))
End Function
%>

?<%Response.Write(Request.ServerVariables("QUERY_STRING"))%>">

Diyerek bulunduğunuz sayfanın (adres çubuğunda yazan adresin) tam yolunu sayfaya yazdırabilirsiniz. Gerisi html form etiketinin içine almak ve javascript ile bunu kopyalamaktır. https://clipboardjs.com/ site yardımcı olur.

Ben classic asp kodunu server side mantığını görebilesiniz diye yazdım. Diğer dillerde (php gibi) kendiniz kodu yazabilirsiniz.