<!--#include file="inc/articlechar.inc"-->
<%
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("music.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
%>
<%
if request.form("images")="" then 
response.write "错误提示:请输入图片地址!"
response.end
end if
if request.form("images1")="" then 
response.write "错误提示:请输入歌曲地址!"
response.end
end if
%>
<%
images=htmlencode2(request.form("images"))
images1=htmlencode2(request.form("images1"))
title=htmlencode2(request.form("title"))

articleid=request("id")

sql="select * from learning where articleid="&articleid

rs.open sql,conn,3,3
rs("typeid")=Request.Form("typeid")
rs("images")=images
rs("images1")=images1
rs("title")=title
rs.update
rs.close

response.redirect "manage.asp"
%>