admin_intro_edit_cl.asp 水族产品用品经营类企业网站asp源代码程序 - ASP源码程序

www.gusucode.com > 水族产品用品经营类企业网站asp源代码程序 > admin/admin_intro_edit_cl.asp

    <%
if session("admin")="" then
	response.Redirect("admin_login.asp")
end if
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/db.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from admin where name='admin'"
rs.open sql,conn,1,2
intro=request("intro")
rs("intro")=intro
rs.update

%>
<body background="../image/admin_bj.gif" onLoad="fh.focus()">
修改成功
<input name="fh" type="button" id="fh" value="返回" onClick="location='admin_intro_edit.asp'">
</body>