Form.RemoveAll
Set Form = Nothing
End Sub
End Class
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
Rem 建立上传类实例
Set oUpload = New Upload
Rem 指定允许上传文件的类型
oUpload.CheckFields = "GIFBMPJPG"
Rem 指定上传文件所存储的相对路径
oUpload.Folder = "51JS.COM-ZMM/UploadFile"
Rem 开始上传处理
oUpload.Start
If oUpload.Finished Then
Rem 上传成功，显示上传信息
Dim sHtml : sHtml = ""
sHtml = sHtml & "<center>"
sHtml = sHtml & "<div style=""width: 600px;height: 500px;font-size: 10pt;border: 1px solid highlight;overflow: auto;"" align=""left"">"
sHtml = sHtml & "<center style=""font-size: 15pt;color: red;"">上传表单数据</center><br>"
sHtml = sHtml & "标题：<br>" & oUpload.Form("P_title") & "<br><br><br>"
sHtml = sHtml & "类型：<br>" & oUpload.Form("P_assort") & "<br><br><br>"
sHtml = sHtml & "小图：<br>服务器端路径：<a href=""" & oUpload.Form("P_p_w_picpath_s") & """ target=""_blank"">" & oUpload.Form("P_p_w_picpath_s") & "</a><br><img src=""" & oUpload.Form("P_p_w_picpath_s") & """><br><br><br>"
sHtml = sHtml & "中图：<br>服务器端路径：<a href=""" & oUpload.Form("P_p_w_picpath_m") & """ target=""_blank"">" & oUpload.Form("P_p_w_picpath_m") & "</a><br><img src=""" & oUpload.Form("P_p_w_picpath_m") & """><br><br><br>"
上一篇:学习ASP有用的文本框过滤函数
下一篇:ASP实现的日历代码实例程序
|
精品推荐