表单上传附件跟表单信息同时提交并传送到指定页面
我是用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这个页面。