admin_news_add.asp
上传用户:lwb168
上传日期:2021-10-31
资源大小:722k
文件大小:4k
源码类别:

Email服务器

开发平台:

ASP/ASPX

  1. <!--#include file = admin_conn.asp -->
  2. <html>
  3. <head>
  4. <meta http-equiv="Content-Language" content="zh-cn">
  5. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  6. <title>新建网页 1</title>
  7. <base target="_self">
  8. <STYLE type="text/css"> <!-- a:link { text-decoration: none; font-family: AdobeSm; color: #000000 }
  9. a:visited { text-decoration: none; color: #000000 }
  10. A:hover {COLOR: green; FONT-FAMILY: "宋体"; TEXT-DECORATION: underline;}
  11. body { font-size: 9pt; font-family: 宋体, Arial;color: #000000}
  12. TD {FONT-SIZE: 9pt; FONT-FAMILY: "宋体", "Arial";color: #000000}
  13. p {FONT-SIZE: 9pt; FONT-FAMILY: "宋体", "Arial";color: #000000}
  14. input {FONT-SIZE: 9pt; FONT-FAMILY: "宋体", "Arial";color: #000000}
  15. body { margin-top: 0; margin-bottom: 0; color: #000000 }
  16. --></STYLE>
  17. </head>
  18. <body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0" bgcolor="#9CBEF7">
  19. <%
  20. if request("id")<>"" then
  21.   id=request("id")
  22.   sql = "select * from mail where id="&id
  23.   Set rs = Server.CreateObject("ADODB.RecordSet")
  24.   rs.Open sql,conn,1,1
  25.   title=rs("title")
  26.   lm=rs("lm")
  27.   content=rs("content")
  28.   rs.close
  29.   set rs=nothing
  30. end if
  31. %>
  32. <table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0">
  33. <tr>
  34. <td>
  35. <!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript" Type="text/javascript"><!--
  36. function FrontPage_Form1_Validator(theForm)
  37. {
  38.   if (theForm.title.value == "")
  39.   {
  40.     alert("请在 新闻信息标题 域中输入值。");
  41.     theForm.title.focus();
  42.     return (false);
  43.   }
  44.   if (theForm.title.value.length < 5)
  45.   {
  46.     alert("在 新闻信息标题 域中,请至少输入 5 个字符。");
  47.     theForm.title.focus();
  48.     return (false);
  49.   }
  50.   if (theForm.title.value.length > 100)
  51.   {
  52.     alert("在 新闻信息标题 域中,请最多输入 100 个字符。");
  53.     theForm.title.focus();
  54.     return (false);
  55.   }
  56.   return (true);
  57. }
  58. //--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="admin_news_add_save.asp<%if title<>"" then response.write "?edit=1&id="&request("id")%>" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1">
  59. <table border="1" width="100%" id="table2" cellspacing="0" cellpadding="5" style="border-collapse: collapse" bordercolor="#80ABF4">
  60. <tr style="DISPLAY: none">
  61. <td width="10%" align="center">新闻信息标题</td>
  62. <td width="47%">
  63. &nbsp;<!--webbot bot="Validation" s-display-name="新闻信息标题" b-value-required="TRUE" i-minimum-length="5" i-maximum-length="100" -->
  64.               <input name="title" type="text" value="1111111111111111" size="59" maxlength="100" <%if title<>"" then response.write "value="&title%>>
  65.             </td style="DISPLAY: none">
  66. <td width="40%">填写新闻信息标题(不能超过100字)</td>
  67. </tr>
  68. <tr style="DISPLAY: none">
  69. <td width="10%" align="center">栏目选择</td>
  70. <td width="47%">&nbsp;<select size="1" name="lm">
  71. <%
  72.   if lm<>"" then response.write "<option>"&lm&"</option>"
  73.   sql = "select * from lm"
  74.   Set rs = Server.CreateObject("ADODB.RecordSet")
  75.   rs.Open sql,conn,1,1
  76.   while not rs.eof
  77.     if request("lm")<>rs("lm") or lm<>rs("lm") then response.write "<option value="&rs("id")&">"&rs("lm")&"</option>"
  78.   rs.movenext
  79.   wend 
  80.   rs.close
  81.   set rs=nothing
  82.  
  83. %>
  84. </select><textarea name="content" style="display:none" cols="1" rows="1"><%if content<>"" then response.write content%></textarea></td>
  85. <td width="40%"> </td>
  86. </tr>
  87. <tr>
  88. <td colspan="3">
  89. <IFRAME ID="eWebEditor1" SRC="edit/ewebeditor.asp?id=content&style=news" FRAMEBORDER="0" SCROLLING="no" WIDTH="100%" HEIGHT="400" marginwidth="1" marginheight="1" name="wfasdg"></IFRAME></td>
  90. </tr>
  91. <tr>
  92. <td width="10%"> </td>
  93. <td width="47%"> </td>
  94. <td width="40%"> </td>
  95. </tr>
  96. </table>
  97. <p align="center"><input type="submit" value=" 保 存 " name="B1">   <input type="reset" value=" 重 置 " name="B2"></p>
  98. </form>
  99. <p> </td>
  100. </tr>
  101. </table>
  102. </body>
  103. </html>
  104. <%
  105. conn.close
  106. set conn=nothing
  107. %>