Email服务器

开发平台：
ASP/ASPX

admin_news_add.asp：源码内容
							
<!--#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%">
					&nbsp;<!--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%">&nbsp;<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
%>

						