日韩欧美国产精品免费一二-日韩欧美国产精品亚洲二区-日韩欧美国产精品专区-日韩欧美国产另-日韩欧美国产免费看-日韩欧美国产免费看清风阁

讀取指定的行數(shù)： 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收取附件函數(shù)
'Function getAttachments(id)
Set Attachments = msg.Attachments
separator = ", "
'創(chuàng)建文件夾，文件夾的名字為時間如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)

'創(chuàng)建文件夾完畢
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
%>