swedit.asp

这是一个文章管理的网页源程序

<!--#include file="inc/articlechar.inc"-->

<%set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("mymdb/news.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
%>
<%if request.form("password")="" then 
response.write "错误提示:请输入密码!"
response.end
end if
if request.form("sex")="" then 
response.write "错误提示:请输入性别!"
response.end
end if
if request.form("email")="" then 
response.write "错误提示:请输入电子邮件地址!"
response.end
end if
if request.form("intro")="" then 
response.write "错误提示:请填写个人简介!"
response.end
end if
%>
<%username=request("name")
password=request.form("password")
email=request.form("email")
intro=request.form("intro")
sex=request.form("sex")
sql="select * from admin where username='"&username&"'"
rs.open sql,conn,3,3
rs("password")=password
rs("email")=email
rs("intro")=intro
rs("sex")=sex
rs.update
rs.close
response.redirect "writedit.asp"
%>