壳单元与实体单元接触:我这里有个前台图片滚动的源码。谁知道怎么设计一个添加图片的后台页面啊

来源:百度文库 编辑:神马品牌网 时间:2024/05/11 19:39:59
<table width="210" border="0" cellpadding="0" cellspacing="0" bgcolor="#F9F9F9">
<tr><td >
<marquee id="scrollarea" direction="up" scrolldelay="200" scrollamount="2" width="200" height="150" onmouseover="this.stop();" onmouseout="this.start();">
<p>
<table width="200" border=0 cellpadding=0 cellspacing="0">
<%
set rs=server.createobject("adodb.recordset")
i=0

MaxShangpinList=6

sql="SELECT * FROM newsimages order by id desc"
rs.Open sql,conn,1,1
%>
<%
do while not rs.eof
i=i+1
%>
<tr><td width="200" valign="top" class="text9pt2"><%=rs("图片路径")%><br><br>
<%
if (i mod (MaxShangpinList/4)=0) and i>=(MaxShangpinList/4) then
%>
<%
end if
if i>=MaxShangpinList then exit do
rs.movenext
loop
rs.close
%>
</td>
</tr>
</table>
</p>
</marquee></td></tr></table>

你还需要2个页面:
及添加表单和处理表单。
设添加表单为:images.asp
设处理表单为:saveimages.asp

images.asp:

权限设置
...
<from action="saveimges.asp" ....>
...
<input name="image_Url"...>
...
</from>

saveimages.asp:

权限设置
.....
<%
image_Url=request.from("image_Url")
....
Set rs= Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM newsimages"
rs.Open sql,conn,1,3
rs.Addnew
'假设图片路径表名为Pic_Url
rs("Pic_Url") = image_Url
rs.Update
....
%>

参考一下文件上传写数据库就行了嘛,代码写出来太长,不爱写,呵呵

上传图片你该会吧?

把图片上传到一定的地方,然后把此图片的路径存入数据库,到时候读取数据库此图片的路径(就像上面你的操作一样)就行了

上传图片的代码你在网上随便搜索一下都是一大把