国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

<%

Dim Filex,step
Filex = "aaa.txt" '文本文件相對此處理頁面的相對路徑
step = 10 '每行顯示多少個(gè)字，可以自己定義

dim FSO, F, content,l
Set FSO = Server.CreateObject("Scripting.FileSystemObject")

If FSO.FileExists(Server.MapPath(Filex)) Then
'文件存在，讀取內(nèi)容
Set F = FSO.OpenTextFile(Server.MapPath(Filex), 1)
content = F.ReadAll
Set F=nothing

l = 1
do while l <= len(content)
response.Write(mid(content,l,step)&"<br>")
l = l + step
loop

Else
response.Write("文件不存在")
End If

Set FSO = Nothing

%>