用过化境上传的朋友请进……

sky_rui 2003-10-17 03:48:43
最近下了个化境无组件上传的东东
请使用过的朋友介绍介绍要如何利用这个东西开发上传的页面呢?
谢谢各位啦……
...全文
29 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
xxrl 2003-10-17
  • 打赏
  • 举报
回复
<!--#include file="includes/ConnectDatabase.asp"-->
<!--#include file="includes/xxrl.asp"-->
<!--#include file="includes/Config.asp"-->
<!--#include virtual="includes/cls_load.asp"-->

<%
'''''cls_load.asp为那个上传组件
dim sql
if session("autouserid")="" or trim(request("autouserid"))="deleted" then
response.Redirect "log.asp?fm=modadvs.asp"
response.End
else
userid=session("autouserid")
end if
%>
<%
dim upload,file,sfilename,bfilename,formName,sPath,bPath,iCount
set upload=new upload_5xSoft ''建立上传对象

'bPath = "tmp/" '图片路径
fromstep = upload.form("step")
bannerurl = upload.form("bannerurl")

set file=upload.file("jpg") '上传图片
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
bfilename=file.FileName
file.SaveAs Server.mappath("/banner/"&userid&".jpg") ''保存文件
end if
set file=nothing
objconn.execute "update xxrl_auto_user set bannerurl='"&bannerurl&"' where userid='"&userid&"'"
objconn.close
Alert_ReDirect "更新广告成功!","modadvs.asp"
response.End
%>
xxrl 2003-10-17
  • 打赏
  • 举报
回复
<form name=form1 method="post" action="modadvs_.asp" enctype="multipart/form-data">
<br>
<table width="500" border="1" cellspacing="1" cellpadding="3" align="center" bordercolor="#333333">
<tr bgcolor="#0099FF">
<td height="28" colspan="2">
<div align="center"><font color="#FFFFFF">网站 468×60 BANNER广告位管理</font></div>
</td>
</tr>
<tr bgcolor="#FFCC66">
<td height="22" width="139">
<div align="right">468×60 BANNER广告:</div>
</td>
<td height="22" width="344">
<input type="file" name="jpg">
</td>
</tr>
<tr bgcolor="#FFCC66">
<td height="22" width="139">
<div align="right">链接:</div>
</td>
<td height="22" width="344">
<input type="text" name="bannerurl" value="<%=bannerurl%>" size="40">
</td>
</tr>
<tr bgcolor="#FFCC66">
<td height="22" width="139"> </td>
<td height="22" width="344">
<input type="submit" name="Submit3" value="更新">
<input type="hidden" name="step" value="2">
<input type="button" name="cc" value="删除广告图片" onclick="javascript:self.location.href='deladvs.asp?userid=<%=userid%>'">
</td>
</tr>
</table>
</form>

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧