读取指定的行数： set fso=server.createobject("scripting.filesystemobject") set emlfile=fso.opentextfile("文件在硬盘上的位置",1,false,-2) if not emlfile.atendofstream then look_i=0 '指定读取前5行 While not emlfile.AtEndOfStream and look_i<5 msg_line=emlfile.ReadLine msg_all=msg_all & msg_line & chr(13) look_i=look_i+1 Wend response.write msg_all end if

<%
'Jmail收取附件函数
'Function getAttachments(id)
Set Attachments = msg.Attachments
separator = ", "
'创建文件夹，文件夹的名字为时间如2004-12-15152021
gg=now()
gg1=replace(gg, " ", " ")
gg1=replace(gg1, ": ", " ")
gg1= "c:\temp\ "&gg1

Dim fso, f
Set fso = CreateObject( "Scripting.FileSystemObject ")
'判断c:是否以存在temp文件夹，如果不存在则需要建立该文件夹
if not fso.FolderExists( "c:\temp ") then
fso.CreateFolder "c:\temp "
end if
Set f = fso.CreateFolder(gg1)

'创建文件夹完毕
For i = 0 To Attachments.Count - 1
If i = Attachments.Count - 1 Then
separator = " "
End If

Set at = Attachments(i)
at.SaveToFile( gg1& "\ " & at.Name )
tt=gg1& "\ " & at.Name
'response.Write "tt11= "&tt
%>
<tr>
<td> 附&nbsp;&nbsp;件: </td>
<td> <a href= " <%=tt%> "> <%=at.name%> </a> </td>
</tr>
<%
Next
%>