UC知道急求，ASP图片上传代码
来源：百度知道 编辑：UC知道 时间：2024/07/02 14:35:32
要真的能够使用的，网上找了N小时都不能用，越找越火
按以下要求制作，先谢谢了
在A页面有一个“图片地址”文本框，上传文件要把文件放在当前目录的UploadFile下面，图片的相对路径自动显示在“图片地址”文本框里。
这个文本框name="DefaultPicUrl"
页面如下，各位直接复制，生成HTML文件就能看到页面。
<body>
<p>
<label></label>
<label>
<input type="text" name="textfield" />
</label>
<label>
<input type="submit" name="Submit" value="浏览" />
</label>
<label>
<input type="submit" name="Submit2" value="上传" />
</label>
</p>
<p>
图片地址：
<input name="DefaultPicUrl" type="text" id="DefaultPicUrl" size="60" maxlength="120" />
</p>
</body>
有没有人知道
按以下要求制作，先谢谢了
在A页面有一个“图片地址”文本框，上传文件要把文件放在当前目录的UploadFile下面，图片的相对路径自动显示在“图片地址”文本框里。
这个文本框name="DefaultPicUrl"
页面如下，各位直接复制，生成HTML文件就能看到页面。
<body>
<p>
<label></label>
<label>
<input type="text" name="textfield" />
</label>
<label>
<input type="submit" name="Submit" value="浏览" />
</label>
<label>
<input type="submit" name="Submit2" value="上传" />
</label>
</p>
<p>
图片地址：
<input name="DefaultPicUrl" type="text" id="DefaultPicUrl" size="60" maxlength="120" />
</p>
</body>
有没有人知道
代码太多这里不好发 hi我传给你
要用<input type="file" name="file1" width="180" value="" size="36" />
以前用过一个上传文件的组件，还不错，将文件保存到默认目录。
<%@ Import Namespace="System" %>
<%@ Import Namespace="System.web.HttpPostedFile" %>
<%@ Import Namespace="System.Web.UI.Htmlcontrols.HtmlInputFile" %>
<script language="VB" runat="server">
Sub UPLOAD(Src As object, E As EventArgs)
If UploadFile.PostedFile.contentLength=0 then
ShowUpLoadFile.innerText="上传失败或文件不存在！"
Else
dim Temp() as String=Split(UploadFile.PostedFile.FileName,"\")
dim FileName as String=Temp(Temp.Length-1)
UploadFile.PostedFile.SaveAs(Server.MapPath(".") & "\images\" & FileName)
ShowUpLoadFile.InnerHtml="文件上传成功！<br>上传文件名：" & FileName
End If
End Sub
</sc