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

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

    <!--#INCLUDE VIRTUAL="/comm.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

%>
<body background='../image/admin_bj.gif'>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript" type="text/JavaScript" src="/comm.js"></script>
<link href="/css.css" rel="stylesheet" type="text/css">
<form action="admin_intro_edit_cl.asp" method="post" name="form1" class="ww6">
<table  border="0" cellpadding="5" cellspacing="0" class="w4">
  <tr align="left" valign="top">
    <td align="center" valign="middle" bgcolor="#999999" class="w_redtext"><font color="#FFFFFF"><strong>简介修改</strong></font></td>
  </tr>
</table>
<textarea name="intro" cols="98" rows="25" id="intro" class="w_input"><%=rs("intro") %></textarea>
<br>
<input type="submit" name="Submit" value="修改">
<input type="reset" name="Submit" value="重置">
</form>