admin_affiche_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"-->
<!--#include file="../inc/char.asp"-->

<%
dim affichename
dim affichecontent
dim sql
dim rs
dim id
affichename=request.form("affichename")
affichecontent=htmlencode2(request("affichecontent"))
id=request("id")
set rs=server.createobject("adodb.recordset")
sql="select * from affiche where afficheid="&id
rs.open sql,conn,3,3
rs("affichename")=affichename
rs("affichecontent")=affichecontent
rs("affichetime")=now()
rs.update
rs.close
set conn=nothing
response.redirect "Admin_Affiche.asp"
%>