繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 不用组件实现上载功能(2)
- ASP
- remote script文档(转载自微软)(八)
- 不能ASP图像组件来生成图像的ASP计数器程序(二)
- 不能ASP图像组件来生成图像的ASP计数器程序(三)
- 用ASP发送邮件
- 用ASP进行网络打印功能
- 用ASP实现号码转换
- 如何用ASP创建日志文件
- 二十八条改善 ASP 性能和外观的技巧(1-7)
- 二十八条改善 ASP 性能和外观的技巧(8-14)
- 二十八条改善 ASP 性能和外观的技巧(15-21)
- 二十八条改善 ASP 性能和外观的技巧(22-28)
- asp实现在web中显示电子表格数据（一）显示数据表格的应用
- asp实现在web中显示电子表格数据（二）生成HTML表格
- asp实现在web中显示电子表格数据（三）创建数据表列表和名字范围
- asp实现在web中显示电子表格数据（四）创建文件选择列表
- Carello Web 使 ASP 源码暴露 (APP,缺陷)
- MS IIS虚拟主机ASP源码泄露 (MS,缺陷)
- 虚拟web目录容易泄露ASP源代码 (MS,缺陷)
- MS IIS server的ASP安全缺陷 (MS,缺陷)
- 用WinSock设计Chat程序(转)
ASP 中的 不用组件实现上载功能(2)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 97 ::
收藏到网摘: n/a
<% Option Explicit %>
<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
Const IMAGE_SIZE = "width=""200"" height=""150"""
Dim UploadRequest
Set UploadRequest = Server.CreateObject("Scripting.Dictionary")
Dim byteCount, RequestBin
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
BuildUploadRequest RequestBin
Dim saveURL, goURL, filepathname, value, filename
'---- save path
'saveURL = UploadRequest.Item("saveURL").Item("Value")
saveURL = "/"
'---- jump to file path when finish upload
goURL = UploadRequest.Item("goURL").Item("Value")
filepathname = UploadRequest.Item("my_file").Item("FilePathName")
value = UploadRequest.Item("my_file").Item("Value")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
'---- debug
'Response.Write saveURL&"**"&goURL&"**"&filepathname
'Response.Write "**"&filename
'Response.End
Dim fso, MyFile, i
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If NOT fso.FolderExists(Server.mappath(saveURL) & "\") Then
RecMkDir(Server.mappath(saveURL) & "\")
End If
Set MyFile = fso.CreateTextFile(Server.mappath(saveURL) & "\" & filename)
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
Session("StoredFile") = filename
Session("strImage") = "<img src='" & saveURL & filename & "'" & IMAGE_SIZE & " border=1 bordercolor=#0000FF>"
Response.Redirect goURL
%>
<!--#include file="upload.asp"-->
'---- file name /test.asp/
<% Option Explicit %>
<%
On Error Resume Next
Response.Expires = 0
Response.AddHeader "Pragma", "no-cache"
Dim thisFile
thisFile = Right(Request.ServerVariables("PATH_INFO"),Len(Request.ServerVariables("PATH_INFO"))-InStrRev(Request.ServerVariables("PATH_INFO"), "/"))
If Request("imageCancel") <> "" Then
Session("StoredFile") = ""
Session("strImage") = ""
End If
%>
<html>
<head>
<title>Corp2Net.com</title>
<script language="JavaScript" src="/admin.js"></script>
<script language="JavaScript">
<!--
function UpLoad(obj)
{
if (obj.my_file.value.length < 7)
return false;
return true;
}
// -->
</script>
<body link=<%= COLOR_NL_1 %> alink=<%= COLOR_AL_1 %> vlink=<%= COLOR_VL_1 %> bgcolor=<%= COLOR_BG_1 %>>
<font color="<%= C_WD_CONTENT_4 %>">
Only upload <b>*.jpg</b> or <b>*.gif</b> file!
<br>
Otherwise, image may not show correctly!
</font>
<center>
<table>
<% If ( Len(Session("strImage")) > 0 ) Then %>
<tr>
<td>
<table border="1" bordercolor="<%= C_WD_T_BORDER %>" cellspacing="0" cellpadding="0&qu
评论 (0) All
