Dim curUrl:curUrl = Replace(Request.ServerVariables("Script_Name"),"/","")

　　推荐阅读

　　不用WinRar只有asp将网络空间上的文件打包下载

<%@ Language=VBScript %> <% Option Explicit %> <!--#include file="asptar.asp"--> <% Response.Buffer = True Response.Clear Dim Co,Temp,T,x,i,fsoBrowse,theFolder,TheSubFolders,FilePath,s,PH,objTar Co=>>>详细阅读

本文标题：asp获取当前文件名的代码

地址：http://www.17bianji.com/kaifa2/ASP/32225.html

 1/2    1