| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 566 人关注过本帖
标题:一个关于上传的问题
只看楼主 加入收藏
juran
Rank: 2
来 自:北京
等 级:论坛游民
帖 子:18
专家分:51
注 册:2009-7-22
结帖率:50%
收藏
已结贴  问题点数:20 回复次数:7 
一个关于上传的问题
全部代码如下:

<%
  Response.Buffer = True
  Server.ScriptTimeOut=9999999
  On Error Resume Next
%>

<style type="text/css">
<!--
body,input {font-size:12px;}
-->
</style>
<title>文件上传</title>
</head>
<body id="body">
<%
  ExtName = "jpg,gif,png,txt,rar,zip,doc,xls"    '允许扩展名
  SavePath = "upload"          '保存路径
  If Right(SavePath,1)<>"/" Then SavePath=SavePath&"/" '在目录后加(/)
  CheckAndCreateFolder(SavePath)

  UpLoadAll_a = Request.TotalBytes '取得客户端全部内容
  If(UpLoadAll_a>0) Then
    Set UploadStream_c = Server.CreateObject("ADODB.Stream")
    UploadStream_c.Type = 1
    UploadStream_c.Open
    UploadStream_c.Write Request.BinaryRead(UpLoadAll_a)
    UploadStream_c.Position = 0

    FormDataAll_d = UploadStream_c.Read
    CrLf_e = chrB(13)&chrB(10)
    FormStart_f = InStrB(FormDataAll_d,CrLf_e)
    FormEnd_g = InStrB(FormStart_f+1,FormDataAll_d,CrLf_e)

    Set FormStream_h = Server.Createobject("ADODB.Stream")
    FormStream_h.Type = 1
    FormStream_h.Open
    UploadStream_c.Position = FormStart_f + 1
    UploadStream_c.CopyTo FormStream_h,FormEnd_g-FormStart_f-3
    FormStream_h.Position = 0
    FormStream_h.Type = 2
    FormStream_h.CharSet = "GB2312"
    FormStreamText_i = FormStream_h.Readtext
    FormStream_h.Close

    FileName_j = Mid(FormStreamText_i,InstrRev(FormStreamText_i,"\")+1,FormEnd_g)

    If(CheckFileExt(FileName_j,ExtName)) Then
      SaveFile = Server.MapPath(SavePath & FileName_j)

      If Err Then
        Response.Write "文件上传: <span style=""color:red;"">文件上传出错!</span> <a href=""" & Request.ServerVariables("URL") &""">重新上传文件</a><br />"
        Err.Clear
      Else
        SaveFile = CheckFileExists(SaveFile)

        k=Instrb(FormDataAll_d,CrLf_e&CrLf_e)+4
        l=Instrb(k+1,FormDataAll_d,leftB(FormDataAll_d,FormStart_f-1))-k-2
        FormStream_h.Type=1
        FormStream_h.Open
        UploadStream_c.Position=k-1
        UploadStream_c.CopyTo FormStream_h,l
        FormStream_h.SaveToFile SaveFile,2
        
        SaveFileName = Mid(SaveFile,InstrRev(SaveFile,"\")+1)
        Response.write "文件上传: <span style=""color:red;"">" & SaveFileName & " </span>文件上传成功! <a href=""" & Request.ServerVariables("URL") &""">继续上传文件</a><br />"
      End If
    Else
      Response.write "文件上传: <span style=""color:red;"">文件格式不正确!</span> <a href=""" & Request.ServerVariables("URL") &""">重新上传文件</a><br />"
    End If

  Else
%>
<script language="Javascript">
<!--
function ValidInput()
{
   
if(document.upform.upfile.value=="")
  {
    alert("请选择上传文件!")
    document.upform.upfile.focus()
    return false
  }
  return true
}
// -->
</script>
<table width=100% border=0 cellspan=0>
<tr><td><form action='<%= Request.ServerVariables("URL") %>' method='post' name="upform" onsubmit="return ValidInput()"  enctype="multipart/form-data"><input type='file' name='textfield2' size="20"><input type='submit' value="上传" onclick="tijiao();"/>
</form></td></tr></table>

<script language="javascript">
function tijiao(){
parent.myform.text1.value=document.all.textfield2.value

}
</script>
<%
  End if
  Set FormStream_h = Nothing
  UploadStream.Close
  Set UploadStream = Nothing
%>
</body>
</html>
<%
  '判断文件类型是否合格
  Function CheckFileExt(FileName,ExtName) '文件名,允许上传文件类型
    FileType = ExtName
    FileType = Split(FileType,",")
    For i = 0 To Ubound(FileType)
      If LCase(Right(FileName,3)) = LCase(FileType(i)) then
      CheckFileExt = True
      Exit Function
      Else
      CheckFileExt = False
      End if
    Next
  End Function

  '检查上传文件夹是否存在,不存在则创建文件夹
  Function CheckAndCreateFolder(FolderName)
    fldr = Server.Mappath(FolderName)
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(fldr) Then
      fso.CreateFolder(fldr)
    End If
    Set fso = Nothing
  End Function

'检查文件是否存在,重命名存在文件
Function CheckFileExists(FileName)
  Set fso=Server.CreateObject("Scripting.FileSystemObject")
  If fso.FileExists(SaveFile) Then
    i=1
    msg=True
    Do While msg
      CheckFileExists = Replace(SaveFile,Right(SaveFile,4),"_" & i & Right(SaveFile,4))
      If not fso.FileExists(CheckFileExists) Then
        msg=False
      End If
      i=i+1
    Loop
  Else
    CheckFileExists = FileName
  End If
  Set fso=Nothing
End Function
%>




我想把这个页上传的文件的网络地址例如:http://www.这个地址返回给父页面

请教大家,帮个忙,谢谢
搜索更多相关主题的帖子: 上传 ASP 
2009-07-22 13:57
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
弹出窗口页面还是内嵌iframe页面?
弹窗用window.opener就可以iframe的话要根据嵌套结构来写。
2009-07-22 14:45
juran
Rank: 2
来 自:北京
等 级:论坛游民
帖 子:18
专家分:51
注 册:2009-7-22
收藏
得分:0 
忘了写iframe页了
<form method="POST" name="myform" action="inf_to_server.asp"  onsubmit="return  validate();">
 
  <table border="1" width="100%" cellspacing="1" height="121" bordercolorlight=#000000 bordercolordark=#ffffff>
    <tr>
      <td width="21%" align="center" height="21">
        标  题</td>
      <td width="79%" height="21"><input type="text" name="biaoti" size="21" style="width: 288; height: 18;background-color: #ffffff;filter:chroma(color=#ffffff);"></td>
    </tr>
    <tr>
      <td width="21%" align="center" height="80">
        内  容</td>
      <td width="79%"  valign="middle"><textarea rows="15" name="neirong" cols="38" style="font-size: 10pt;background-color: #ffffff;filter:chroma(color=#ffffff);overflow: auto"></textarea></td>
    </tr>
    <tr><td align=center>附件:</td>
    <td valign=top>
<input type="text" name="text1">
<iframe src='up/upfile.asp' height=58 name=myiframe id=myiframe frameborder=0 scrolling=no></iframe>
      </td>
    </tr>
  </table>
  <p align="center">
    <input type="submit" value="发布通知" name="B1" style="border:1pt solid #636563;height:18px;background-color: #ffffff;filter:chroma(color=#ffffff);">&nbsp;&nbsp;<INPUT TYPE="reset" value="重新填写" style="border:1pt solid #636563;height:18px;background-color: #ffffff;filter:chroma(color=#ffffff);">
    </p>
</form>


这个是我之前的父页代码,在UPLOAD上面有个INPUT,我想把上传后的图片地址放到数据库,但在那里面我不知道怎么把上传后的图片的地址读出来。
2009-07-22 15:14
juran
Rank: 2
来 自:北京
等 级:论坛游民
帖 子:18
专家分:51
注 册:2009-7-22
收藏
得分:0 
在1楼里的
<script language="javascript">
function tijiao(){
parent.myform.text1.value=document.all.textfield2.value
}
</script>
只能把onclick后的textfield2中的内容传到父页里,也就是选中你硬盘文件的位置,例如:D:\1.jpg  而不是上传后的地址。
2009-07-22 15:43
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
你把上传地址Response.Write到网页上,再用Javascript传过去不就可以了?
2009-07-22 16:14
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
我是指上传后的地址
2009-07-22 16:14
juran
Rank: 2
来 自:北京
等 级:论坛游民
帖 子:18
专家分:51
注 册:2009-7-22
收藏
得分:0 
我现在的做法是用Request.Servervariables("url")把当前的页面地址读出来,然后在后面加上设定的上传路径uppath
2009-07-22 17:06
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:20 
以下是引用juran在2009-7-22 17:06的发言:

我现在的做法是用Request.Servervariables("url")把当前的页面地址读出来,然后在后面加上设定的上传路径uppath

也可以这样做,然后加上上传后的文件名就可以。
2009-07-22 18:32
快速回复:一个关于上传的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021653 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved