www.gusucode.com > 云枫企业网站源代码第二版 2.0源码程序 > admin/info/index6.asp
<!--#include file="../inc/admin.asp"--> <!--#include file="../inc/conn.asp"--> <%if Request.QueryString("no")="eshop" then sContent = "" For i = 1 To Request.Form("d_content").Count sContent = sContent & Request.Form("d_content")(i) Next If sContent="" Then response.write "SORRY <br>" response.write "各地代理不能为空" response.end end if Set rs = Server.CreateObject("ADODB.Recordset") sql="select * from info" rs.open sql,conn,1,3 rs("content6")=sContent rs.update rs.close response.redirect "index6.asp" end if %> <% id=request.querystring("id") Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * From info", conn,3,3 sContent = rs("Content6") %> <html> <head> <title>管理</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link href="../Admin_Style.css" rel="stylesheet" type="text/css"> </head> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" > <tr> <td align="center" valign="top"> <br> <table width="708" border="0" cellspacing="0" cellpadding="0" class="border" > <tr> <td height="25" align="center" style="background-image: url('../Images/topbg1.gif')"> <div ><strong><FONT COLOR="#FFFFFF">修改各地代理</FONT></strong></div></td> </tr> <tr> <form method="post" action="index6.asp?no=eshop"> <input type=hidden name=id value=<%=id%>> <td><div align="center"> <table width="100%" border="0" cellspacing="2" cellpadding="3"> <tr> <td height="25" bgcolor="#E1F4EE"><div align="center">各地代理</div></td> <td height="25" bgcolor="#E1F4EE"><textarea name="d_content" style="display:none"><%=Server.HtmlEncode(sContent)%></textarea> <IFRAME ID="eWebEditor1" SRC="../ewebeditor/ewebeditor.asp?id=d_content&style=standard" FRAMEBORDER="0" SCROLLING="no" WIDTH="550" HEIGHT="350"></IFRAME></td> </tr> <tr> <td height="25" colspan="2" bgcolor="#E1F4EE"> <div align="center"> <input type="submit" value="确定"> <input type="reset" value="从来"> </div></td> </tr> </table> </div></td></form> </tr> </table> <br> <br> </td> </tr> </table>