admin_news_add_old.asp
资源名称:imail.rar [点击查看]
上传用户:lwb168
上传日期:2021-10-31
资源大小:722k
文件大小:4k
源码类别:
Email服务器
开发平台:
ASP/ASPX
- <!--#include file = admin_conn.asp -->
- <html>
- <head>
- <meta http-equiv="Content-Language" content="zh-cn">
- <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
- <title>新建网页 1</title>
- <base target="_self">
- <STYLE type="text/css"> <!-- a:link { text-decoration: none; font-family: AdobeSm; color: #000000 }
- a:visited { text-decoration: none; color: #000000 }
- A:hover {COLOR: green; FONT-FAMILY: "宋体"; TEXT-DECORATION: underline;}
- body { font-size: 9pt; font-family: 宋体, Arial;color: #000000}
- TD {FONT-SIZE: 9pt; FONT-FAMILY: "宋体", "Arial";color: #000000}
- p {FONT-SIZE: 9pt; FONT-FAMILY: "宋体", "Arial";color: #000000}
- input {FONT-SIZE: 9pt; FONT-FAMILY: "宋体", "Arial";color: #000000}
- body { margin-top: 0; margin-bottom: 0; color: #000000 }
- --></STYLE>
- </head>
- <body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0" bgcolor="#9CBEF7">
- <%
- if request("id")<>"" then
- id=request("id")
- sql = "select * from mail where id="&id
- Set rs = Server.CreateObject("ADODB.RecordSet")
- rs.Open sql,conn,1,1
- title=rs("title")
- lm=rs("lm")
- content=rs("content")
- rs.close
- set rs=nothing
- end if
- %>
- <table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0">
- <tr>
- <td>
- <!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript" Type="text/javascript"><!--
- function FrontPage_Form1_Validator(theForm)
- {
- if (theForm.title.value == "")
- {
- alert("请在 新闻信息标题 域中输入值。");
- theForm.title.focus();
- return (false);
- }
- if (theForm.title.value.length < 5)
- {
- alert("在 新闻信息标题 域中,请至少输入 5 个字符。");
- theForm.title.focus();
- return (false);
- }
- if (theForm.title.value.length > 100)
- {
- alert("在 新闻信息标题 域中,请最多输入 100 个字符。");
- theForm.title.focus();
- return (false);
- }
- return (true);
- }
- //--></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">
- <table border="1" width="100%" id="table2" cellspacing="0" cellpadding="5" style="border-collapse: collapse" bordercolor="#80ABF4">
- <tr style="DISPLAY: none">
- <td width="10%" align="center">新闻信息标题</td>
- <td width="47%">
- <!--webbot bot="Validation" s-display-name="新闻信息标题" b-value-required="TRUE" i-minimum-length="5" i-maximum-length="100" -->
- <input name="title" type="text" value="1111111111111111" size="59" maxlength="100" <%if title<>"" then response.write "value="&title%>>
- </td style="DISPLAY: none">
- <td width="40%">填写新闻信息标题(不能超过100字)</td>
- </tr>
- <tr style="DISPLAY: none">
- <td width="10%" align="center">栏目选择</td>
- <td width="47%"> <select size="1" name="lm">
- <%
- if lm<>"" then response.write "<option>"&lm&"</option>"
- sql = "select * from lm"
- Set rs = Server.CreateObject("ADODB.RecordSet")
- rs.Open sql,conn,1,1
- while not rs.eof
- if request("lm")<>rs("lm") or lm<>rs("lm") then response.write "<option value="&rs("id")&">"&rs("lm")&"</option>"
- rs.movenext
- wend
- rs.close
- set rs=nothing
- %>
- </select><textarea name="content" style="display:none" cols="1" rows="1"><%if content<>"" then response.write content%></textarea></td>
- <td width="40%"> </td>
- </tr>
- <tr>
- <td colspan="3">
- <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>
- </tr>
- <tr>
- <td width="10%"> </td>
- <td width="47%"> </td>
- <td width="40%"> </td>
- </tr>
- </table>
- <p align="center"><input type="submit" value=" 保 存 " name="B1"> <input type="reset" value=" 重 置 " name="B2"></p>
- </form>
- <p> </td>
- </tr>
- </table>
- </body>
- </html>
- <%
- conn.close
- set conn=nothing
- %>