Set objFso = server.createobject("Scripting.FileSystemObject")
Set objFile = objFso.OpenTextFile(Server.MapPath(strFileName))
Do While Not objFile.AtEndOfStream
strLine = objFile.ReadLine
response.write ""&strLine&"
"
Loop
Set objFile = nothing
Set objFso = nothing
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024