www.gusucode.com > 云枫企业网站源代码第二版 2.0源码程序 > admin/news/add.asp
<!--#include file="../inc/admin.asp"--> <!--#include file="../inc/conn.asp"--> <%if Request.QueryString("no")="eshop" then%> <% title=server.htmlencode(Trim(Request("title"))) titlee=server.htmlencode(Trim(Request("titlee"))) D_type=request("D_type") sContent = "" For i = 1 To Request.Form("d_content").Count sContent = sContent & Request.Form("d_content")(i) Next sContente = "" For ie = 1 To Request.Form("d_contente").Count sContente = sContente & Request.Form("d_contente")(ie) Next Set rs = Server.CreateObject("ADODB.Recordset") sql="select * from news " rs.open sql,conn,1,3 rs.addnew rs("title")=title rs("titlee")=titlee rs("D_type")=D_type rs("content")=sContent rs("contente")=sContente rs("counter")=0 rs.update rs.close response.redirect "manage.asp" end if %> <html> <head> <title>健康园地管理</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link href="../Admin_Style.css" rel="stylesheet" type="text/css"> <style type="text/css"> <!-- body { margin-top: 10px; } .STYLE1 { color: #FFFFFF; font-weight: bold; } --> </style></head> <table width="743" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="25" align="center" style="background-image: url('../Images/topbg1.gif')"><span class="STYLE1">新增信息</span></td> </tr> <tr> <td> <script language=JavaScript> // 表单提交客户端检测 function doSubmit(){ if (document.myform.title.value==""){ alert("信息名称不能为空!"); myform.title.focus(); return false; } if (document.myform.D_type.value=="add"){ alert("请选择信息类别!"); myform.D_type.focus(); return false; } // getHTML()为eWebEditor自带的接口函数,功能为取编辑区的内容 if (eWebEditor1.getHTML()==""){ alert("请输入详细内容!"); return false; } document.myform.submit(); } </script> <form action="Add.asp?no=eshop" method="post" name="myform"> <table width="743" border="0" cellspacing="2" cellpadding="3" class="border"> <tr> <td width="8%" height="25" align="center" bgcolor="#E1F4EE">信息名称(中)</td> <td width="62%" bgcolor="#E1F4EE"><input type="text" name="title" class="inputtext" size="50"></td> </tr> <tr> <td width="8%" height="25" align="center" bgcolor="#E1F4EE">信息名称(英)</td> <td width="62%" bgcolor="#E1F4EE"><input type="text" name="titlee" class="inputtext" size="50"></td> </tr> <tr> <td width="8%" height="25" align="center" bgcolor="#E1F4EE">类 别</td> <td width="62%" bgcolor="#E1F4EE"><select name="D_type"> <option value="add">=请添加信息类别=</option> <% Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.Open "Select * From newsname order by id desc", conn, 1,1 if not(rs1.eof or rs1.bof) then do while not rs1.eof %> <option value=<%=rs1("id")%>><%=rs1("sortname")%></option> <%rs1.movenext loop rs1.close set rs1=nothing end if %> </select> </td> </tr> <tr> <td height="25" align="center" bgcolor="#E1F4EE">详细内容(中)</td> <td height="25" bgcolor="#E1F4EE"><textarea name="d_content" style="display:none"></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" align="center" bgcolor="#E1F4EE">详细内容(英)</td> <td height="25" bgcolor="#E1F4EE"><textarea name="d_contente" style="display:none"></textarea> <iframe id="eWebEditor2" src="../ewebeditor/ewebeditor.asp?id=d_contente&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=button name=btnSubmit value=" 提 交 " onClick="doSubmit()"> <input type=reset name=btnReset value=" 重 填 "> </div></td> </tr> </table> </form> </td> </tr> </table>