📄 admin_mob_modi.asp
字号:
<!--#include file="adminconn.inc" -->
<%
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>
</head>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<form method="POST" action="admin_mob_modi.asp?act=edit">
<tr bgcolor="#CCCCCC">
<td width="100%" height="24" colspan=2 align=center><b>修 改 摸 板（建议在frantpage或是dreamware中设计）</b></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="submit" id="cmdok" value=" 修 改 " class="input">
<input name="cmdcance" type="reset" id="cmdcance" value=" 清 除 " class="input">
</td>
</tr>
</form>
</table>
<%
end if
rs.close
set rs=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -