求助——模板的修改，修改功能不能实现

kitty0108 2009-11-23 08:47:23

代码如下：
admin_mob_modi.asp

<%
if session("aleave")="" then
response.redirect "adminlogin.asp"
response.end
end if
%>
<%
act=request("act")
if act="edit" then
mtextarea=request("mtextarea")
set rs1=server.createobject("adodb.recordset")
sql1="select * from c_moban"
rs1.open sql1,conn,3,2
if not rs1.eof then
rs1("m_html")=mtextarea
rs1.update
response.write"<SCRIPT language=JavaScript>alert('修改成功！');"
response.write"javascript:history.go(-1)</SCRIPT>"
end if
end if
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from c_moban"
rs.open sql,conn,1,1
if rs.eof then
response.write"<SCRIPT language=JavaScript>alert('服务器出错，请联系管理员！');"
response.write"javascript:history.go(-1)</SCRIPT>"
else
moban=rs("m_html")
%><head>
<LINK href="../css.css" type=text/css rel=stylesheet>
<meta name="keywords" content="">
<META http-equiv=Content-Type content=text/html; charset=gb2312>
<style type="text/css">

</style>
</head>

<table width="90%" border=1 align="center" cellPadding=0 cellSpacing=0 bordercolor="#4DB8FF" borderColorDark=#ffffff bgcolor="#F9F9F9">
<form method="POST" action="admin_mob_modi.asp?act=edit">
<tr bgcolor="#CCCCCC">
<td width="100%" height="24" colspan=2 align=center bgcolor="#4DB8FF"><span class="STYLE1">修改模板（建议在dreamware中设计）</span></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="100%" height="22" align="center"><textarea name="mtextarea" cols="100" rows="30"><%=moban%></textarea></td>
</tr>
<tr align="center" bgcolor="#FFFFFF" height="24">
<td height="30" colspan=2> <input type="hidden" value="edit" name="act">
<input name="cmdok" type="button" id="cmdok" value=" 修改 " class="input">
<input name="cmdcance" type="button" id="cmdcance" value=" 清除 " class="input"> </td>
</tr>
</form>
</table>
<%
end if
rs.close
set rs=nothing
%>

在点击修改时没有变动，实现不了修改功能！！！求大侠们帮帮小妹的忙。感激不尽！

...全文