标题:表单上传附件跟表单信息同时提交并传送到指定页面
只看楼主
hwc201411
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2010-8-10
结帖率:57.14%
 问题点数:0 回复次数:0 
表单上传附件跟表单信息同时提交并传送到指定页面
我是用Jmail做一个发送邮件功能。现在遇到问题是填写信息里面的那个附件值穿不过来。
<form method="post" action="mail.asp">
  <p>你的名字:
    <input type="text" name="fname">
 </p>
  <p>你的电话: <input type="text" name="dianhua"><br>
    <br>
    你的邮箱:
    <input type="text" name="femail">
    <br>
    <br>
申请职位:
<input type="text" name="title">
  </p>
  <p>上传简历:<INPUT type=text name=file >
    <INPUT style=FONT-SIZE:9pt type="submit" value=" 上 传 " onClick="javascript:window.open('uploadfile2.asp');">
  </p>
  </p>
  <div><input type="submit" name="submit" value="发送"></div>
</form>
上传附件文件有2个uploadfile2.asp还有upload2.asp
<!--#include file="upload2.asp"-->
<%
Dim AffixSize,AffixType,FilePath
AffixSize=200  '设置上传文件大小,单位为K
AffixType=".gif|.jpg|.doc" '设置上传文件格式,用“|”分隔
Server.ScriptTimeOut=5000 '超时设置
FilePath="UploadFiles"  '设置上传文件的目录
If Request("action")="saveupload" Then
 Dim Affix,i
 Dim Upload,File,Fso
 Dim formName,FileName,FileType,FileSize,TotalBytes,ErrorType,ranNum,FullPath
 Set Upload=New Upload_Kings
 For Each formName In Upload.File
  Set File=Upload.File(formName)
  FileName=File.FileName
  FileType=Lcase(Mid(FileName,InStrRev(FileName, ".")))
  Affix=Split(AffixType,"|")
  For i = 0 To UBound(Affix)
   If FileType=Affix(i) Then
    ErrorType=0
    Exit For
   Else
    ErrorType=1
   End If
  Next
  If ErrorType=1 Then
   Response.Write("文件格式错误!")
   Response.End
  End If
  FileSize=File.FileSize
  If FileSize<1 Then
   Response.Write("请先选择你要上传的文件!")
   Response.End
  End If
  If FileSize>AffixSize*1024 Then
   Response.Write("文件大小不得超过 "&AffixSize&" K\n当前的文件大小为 "&Int(FileSize/1024)&" K")
   Response.End
  End If
  FullPath=Server.Mappath(FilePath)
  Set Fso=Server.CreateObject("Scripting.FileSystemObject")
  If Not Fso.FolderExists(FullPath) Then Fso.CreateFolder(FullPath)
  Set Fso=Nothing
  'Randomize
  'ranNum=Int(9000*Rnd)+1000
  'FileName=Year(Now)&Month(Now)&Day(Now)&Hour(Now)&Minute(Now)&Second(Now)&ranNum&FileType
  File.SaveAs FullPath&"\"&FileName
  Set File=Nothing
 Next
 Set Upload=Nothing
 Response.Write "上传成功<BR><A href="""&FilePath&"/"&FileName&""" target=_blank>查看文件</A> <A href=""javascript:history.back();"">继续上传</A>"
 Response.End
End If
%>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
  <FORM method=post enctype=multipart/form-data action="?action=saveupload">
  <TR>
    <TD height="26"><INPUT type=file name=file> *大小不能超过<%=AffixSize%>K
      <INPUT style=FONT-SIZE:9pt type="submit" value=" 上 传 " name=Submit>
  </TR>
  </FORM>
</TABLE> 当我点击上传附件的时候,他直接给我执行发送邮件了,但是没有附件传送。
最终目标是把附件值还有那个表单那些信息传送到mail.asp这个页面。
搜索更多相关主题的帖子: 表单 页面 附件 
2010-09-20 09:42



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-320939-1-1.html




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

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