求简单的asp上传图片代码

来源：百度知道 编辑：UC知道 时间：2024/05/11 19:56:13
不需要连接数据库，只需要设置一个 浏览 选项，
左边一个选择框，里面分别为:1 2 3 4 5
选择浏览，将把图片上传到ima文件夹下。
比如，选择1，则文件名命名为1.jpg。并覆盖原来文件
谁能按我的要求给写个代码，应该很短就能实现吧？
下面写的我在本地测试不行

上传时用的form 中 enctype="multipart/form-data" 才能传二进制流
网上有很多现成的asp无组件上传类，如无惧上传类．．．去下一个上面有说明，文件上传完成后用javascript将文名反回你的文本框中，在提交你的表单
限制图片的 后缀
<%Option Explicit
'定义限制的文件扩展名
'=======================================================================
Const FobidExtendName = "Jpg|gif"
'=======================================================================
'功能部分开始
'ChkName(FileName)
' 说明：返回Boolean
'=======================================================================
Public Function ChkName(FileName)
Dim Ename,ArrStr,i
If IsNull(FileName) Or FileName = "" Then
Exit Function
Else
Ename=Mid(Filename,InstrRev(Filename,".")+1,len(Filename)-InstrRev(Filename,".")+1)
ArrStr = Split(FobidExtendName,"|")
If IsArray(ArrStr) Then
For i =lbound(ArrStr) to Ubound(ArrStr)
If Lcase(Cstr(ArrStr(0))