马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
使用cdonts,可以发送、查看邮件,实现webmail的功能。结合wsh,可以实现对nt主机的管理,如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等,就像管理本地机一样方便。response能够把文件放到用户不克不及抵达的中央,然后在asp文件顶用binaryread,的办法发给用户,这里有一个函数,
ConstForReading=1
ConstTristateTrue=-1
ConstFILE_TRANSFER_SIZE=16384
FunctionTransferFile(path,mimeType)
DimobjFileSystem,objFile,objStream
Dimchar
Dimsent
send=0
TransferFile=True
setobjFileSystem=server.CreateObject("scripting.filesystemobject")
SetobjFile=objFileSystem.GetFile(path)
SetobjStream=objFile.OpenAsTextStream(ForReading,TristateTrue)
Response.AddHeader"content-type",mimeType
Response.AddHeader"Content-Disposition","attachment;filename="&file_name
Response.AddHeader"content-length",objFile.Size
DoWhileNotobjStream.AtEndOfStream
char=objStream.Read(1)
Response.BinaryWrite(char)
sent=sent+1
If(sentMODFILE_TRANSFER_SIZE)=0Then
Response.Flush
IfNotResponse.IsClientConnectedThen
TransferFile=False
ExitDo
EndIf
EndIf
Loop
Response.Flush
IfNotResponse.IsClientConnectedThenTransferFile=False
objStream.Close
SetobjStream=Nothing
SetobjFileSystem=Nothing
EndFunction
DimmimeType,sucess
mimeType="application/x-msdownload"
file_path=server.MapPath("software/"&file_name)
success=TransferFile(file_path,mimeType)
%>
</p>Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来; |