www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/html_adds.asp
<%Admin="InfoAdd"%> <!--#include file="check.asp"--> <!--#include file="mdb_path_info.asp"--> <!--#include file="config.asp"--> <% '========================================== ' ' 晓宇听幽新闻文章管理系统 2004 ' ' 主页地址:http://www.xoYu.com ' '========================================== '程序名称:晓宇听幽新闻文章管理系统 '英文名称:xoYu News 2004 Professional '程序创建时间:2003-7-10 '程序完成时间:2003-9-11 '最后修改时间:2003-10-10 '========================================== set rs=server.CreateObject("ADODB.RecordSet") TT=TT & "<a class=xoYuNewsSort href=Html_List.asp>文章首页</a>" if request("id")<>"" then rs.open "select * from infotype where id="&request("id"),conn,1,1 if not rs.EOF then TN=split(rs("tname"),"|") TI=split(rs("ts"), ",") for i = 0 to ubound(TN)-1 TT=TT & ">> <a class=xoYuStudioSort href=Html_List.asp?id="&TI(i)&">"&TN(i)&"</a>" next tj=rs("tj") end if rs.close end if thistype=TT rs.open ("select * from infotype where tj>1 order by ts"),conn,1,1 tn="" do while not rs.eof tname=replace(rs("tname"),"|","->") if rs("tj")=2 and rs("tn")<>tn then i=i+1 if i=2 then i=0 color="#808000" else color="#000000" end if end if tn=rs("tn") typelist=typelist&"<option style='COLOR:"&color&"' value='"&rs("id")&"'>"&tname&"</option>" rs.MoveNext loop rs.close SS=SS & "<a class=xoYuStudioSort href=SpecialLB.asp>专题首页</a>" if request("SPid")<>"" then rs.open "select * from specialx where id="&request("spid"),conn,1,1 if not rs.EOF then TNs=split(rs("sname"),"|") TIs=split(rs("ts"), ",") for i = 0 to ubound(TNs)-1 SS=SS & ">> <a class=xoYuStudioSort href=SpecialLB.asp?id="&TIs(i)&">"&TNs(i)&"</a>" next tjs=rs("tj") end if rs.close end if thisSPtype=SS SPtypelist=SPtypelist&"<option style='COLOR:"&color&"' value='0'>不属于任何专题</option>" rs.open ("select * from specialx where tj>1 order by ts"),conn,1,1 tns="" do while not rs.eof sname=replace(rs("sname"),"|","->") if rs("tj")=2 and rs("tn")<>tns then i=i+1 if i=2 then i=0 color="#808000" else color="#000000" end if end if tns=rs("tn") SPtypelist=SPtypelist&"<option style='COLOR:"&color&"' value='"&rs("id")&"'>"&sname&"</option>" rs.MoveNext loop rs.close set rs=nothing conn.close set conn=nothing %> <SCRIPT LANGUAGE=javascript> <!-- function Juge(frmAnnounce) { if (frmAnnounce.id.value == "") { alert("栏目类别不能为空!"); frmAnnounce.id.focus(); return (false); } } function checktext(text) { allValid = false; var checkOK = "0123456789"; for (i = 0; i < text.length; i++) { ch = text.charAt(i); for (j = 0; j < checkOK.length; j++) if (ch == checkOK.charAt(j)) break; if (j == checkOK.length) { allValid = true; break; } } return allValid; } //--> </script> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <meta copy="WWW.2KY.CN 共享世纪"> <title>共享世纪新闻文章管理系统—添加文章</title> <link rel="stylesheet" href="admin.css" type="text/css"> </head> <!--#include file="top.asp"--> <table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder"> <form action="html_add.asp" method=post name="frmAnnounce"> <tr> <th width="100%" class="tableHeaderText" height=25>文章添加 (1/2)</th> </tr> <tr> <td class="forumrow"> <p>第一步:先选择想要添加的栏目,清在选择完成之后点击“进入下一步”进行下面的操作。</td> </tr> <td width="100%" height="10" class="forumrow"> <p align="center"><b>文章类别</b>: <select size="1" name="id"> <% response.write("<option selected value=''>- - = = = 请选择文章分类 = = = - -</option>") %><%=typelist%> </select> </td></tr> <tr> <td width="100%" height="9" class="forumrow"> <p align="center"><b>专题类别</b>: <select size="1" name="spid"> <% response.write("<option selected value=''>- - = = = 请选择专题分类 = = = - -</option>") %><%=SPtypelist%> </select> </td></tr> <tr><td class="forumrow"> <p align="center"> <input type="submit" value="进入下一步" name="B1"> </p> </form> </td></tr> </table>