admin_ad_edit_save.asp

这个是一个<图片系统>,但是又是不能用的..所以..上传上来..等你们改良一下

<%
'=========================================================
' 功能：讯网wap图片程序
' 版本：讯网wap图片程序 v 0.1
' 时间：2006-7-65
' 作者：随风
' QQ:10025324 22216
' 电子信箱：[e-mail]
'=========================================================
if session("AdminName") = "" then
    response.Redirect "Admin_Login.asp"
end if
%>
<!--#include file="conn.asp"-->
<!--#include file="Sql_Erro.asp"-->
<%
dim adname
dim adcontent
dim sql
dim rs
dim id
dim adHots
dim adtime
adname=request.form("adname")
adcontent=request("adcontent")
adHots=request("adHots")
adtime=request("adtime")
id=request("id")
set rs=server.createobject("adodb.recordset")
sql="select * from ad where adid="&id
rs.open sql,conn,3,3
rs("adname")=adname
rs("adContent")=adContent
rs("adHots")=adHots
rs("adtime")=adtime
rs.update
rs.close
set conn=nothing
response.redirect "Admin_ad.asp"
%>