|
| |
 精品推荐 |
 |
|
| |
|
|
|
|
ASP动态网页实例：表单多文件上传类
|
日期：2007年7月23日 作者： 查看:[大字体
中字体 小字体]
|
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>"
sHtml = sHtml & "大图：<br>服务器端路径：<a href=""" & oUpload.Form("P_p_w_picpath_b") & """ target=""_blank"">" & oUpload.Form("P_p_w_picpath_b") & "</a><br><img src=""" & oUpload.Form("P_p_w_picpath_b") & """><br><br><br>"
sHtml = sHtml & "介绍：<br>" & oUpload.Form("P_content") & "<br>"
sHtml = sHtml & "</div>"
sHtml = sHtml & "</center>"
Response.Write sHtml
Response.End
Else
Rem 上传失败，显示错误信息
Call ShowMsg(oUpload.ErrMessage, Request.ServerVariables("SCRIPT_NAME"))
End If
Rem 对话框提示函数
Function ShowMsg(byVal sText, byVal sTarget)
Dim sScript : sScript = ""
sScript = sScript & "<script language=""javascript"">" & vbCrlf & _
"window.alert('" & sText & "');" & vbCrlf & _
上一篇:学习ASP有用的文本框过滤函数
下一篇:ASP实现的日历代码实例程序
|
| 相关文章： |
|
|
|
| 相关软件： |
|
|
|
|
