<!--#include file="../Include/Conn.asp" -->
<!--#include file="../Include/const.asp" -->
<html>
<head>
<title><%=site_info(0)%>:.邮件订阅</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../Files/Style.css" rel="stylesheet" type="text/css">
<script language="JavaScript" src="../Include/JChar.js"></script>
<script language="JavaScript">
 function CheckValidForm()
 {
 	if (!isEmail(document.form1.txtEmail.value))
	{
		msg="对不起,您输入的电子邮件可能不正确！\n如果，您使用的是我们系统无法识别的电子邮件地址，请和我们联系！";
		alert(msg);
	 	document.form1.txtEmail.focus();
	return false;
	}
 }
</script>
</head>
<body topmargin="0" leftmargin="0"> 
<!--#include file="../Include/Top.asp" -->
<table style="BORDER-LEFT: #666666 1px solid; BORDER-RIGHT: #666666 1px solid;" width="768" border="0" align="center" cellpadding="2" cellspacing="0">
  <tr> 
    <td height="1" background="../MyImages/henxiuxian.gif"></td>
  </tr>
  <tr> 
    <td height="21" valign="bottom"> <img src="../images/foot.gif" width="16" height="16" hspace="5" align="absmiddle">网站导航：<a title="返回首页" href="../index.asp">首 
      页</a><img src="../images/dhjt.gif" width="7" height="5" hspace="5" align="absmiddle"><span  FILTER: dropshadow(color=#FFFFFF, offx=1, offy=1, positive=1);  WIDTH: 100%">邮件订阅</span></td>
  </tr>
  <tr> 
    <td height="4" background="../images/img_018.gif"></td>
  </tr>
</table>
<table style="BORDER-RIGHT: #8c8c8c 1px solid; BORDER-LEFT: #8c8c8c 1px solid" width="768" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="743" valign="top"><span class="p1"> </span> <TABLE width="92%" border=0 align="center" cellPadding=0 cellSpacing=0>
        <TBODY>
          <TR> 
            <TD height=6><IMG height=15 src="" width=8></TD>
          </TR>
          <TR> 
            <TD bgColor=#ff9900></TD>
          </TR>
          <TR> 
            <TD></TD>
          </TR>
          <TR> 
            <TD vAlign=top height=141> <FORM name=form1    action=TakeSend.asp   method=post onSubmit="return CheckValidForm()">
                <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                  <TBODY>
                    <TR> 
                      <TD class=p9 height=30><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                          <TBODY>
                            <TR> 
                              <TD width=100><FONT color=#006699><B>栏目名称</B></FONT></TD>
                              <TD align=middle width=82><B><FONT 
                  color=#006699>栏目分类</FONT></B></TD>
                              <TD width="488" height=22 align=middle><FONT 
                  color=#006699><B>详细描述</B></FONT></TD>
                            </TR>
                            <TR> 
                              <TD colSpan=3 align=left bgcolor="#ff9900"><IMG height=1 src="" width=1></TD>
                            </TR>
                            <TR> 
                              <TD align=left colSpan=3><IMG height=8 src="" width=1></TD>
                            </TR>
                            <TR valign="top"> 
                              <TD height=2 colSpan=3 align=left> <%
			   mSql  = "Select * From V_ArticlePath ORDER BY F_BigCateID asc,F_SmallCateID asc"
			   Set rs = conn.Execute(mSql)
			   Response.Write "<table width='100%' border=0 align='center' cellpadding=0 cellspacing=2>"
			   Do While Not rs.Eof 
                 Response.write "<tr>" 
                 Response.write "<td width=130><input type='checkbox' name='chkTake' value='"&Trim(rs("F_SmallCateID"))&"'><a target='_blank' href='../Article/SmallCategory.asp?BigCategoryID="&rs("F_BigCateID")&"&SmallCategoryID="&rs("F_SmallCateID")&"'>"&rs("F_SmallCateName")&"</a></td>"
                 Response.Write "<td width=100>"&rs("F_BigCateName")&"</td>"
                 Response.Write "<td width=460>"&rs("F_Memo")&"</td>"
                 Response.Write "<td width=62><a target='_blank' href='../Article/TakeSmallCategory.asp?BigCategoryID="&rs("F_BigCateID")&"&SmallCategoryID="&rs("F_SmallCateID")&"'>[样刊]</a></td>"
                 Response.write "</tr>"
				 rs.MoveNext
			   Loop
			   rs.Close
               Response.write "</table>"
			   %> </TD>
                            </TR>
                            <TR align=middle> 
                              <TD vAlign=top colSpan=3>&nbsp;</TD>
                            </TR>
                          </TBODY>
                        </TABLE>
                        <B><FONT color=#006699><SPAN 
                  class=p9> 邮件订阅</SPAN></FONT></B><BR> <FONT class=p9 
                  color=#000000>请输入您的 E-Mail：</FONT> <input type="text" name="txtEmail" size="20" style="ime-mode:disabled">
                        <input type="Submit" value="订阅" name="btnTake" class="bk"> 
                        <input type="Submit" value="退订" name="btnExit" class="bk"> 
                      </TD>
                    </TR>
                  </TBODY>
                </TABLE>
              </FORM></TD>
          </TR>
        </TBODY>
      </TABLE></td>
  </tr>
</table>
<!--#include file="../Include/Bottom.asp" -->
</body>
</html>
