📄 html_adds.asp
字号:
<%Admin="InfoAdd"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<!--#include file="config.asp"-->
<%
'#################################################################
'# 晓宇听幽网站内容管理系统(xoYu CMS)
'#
'# 版权所有: 晓宇听幽工作室
'#
'# 制作人 : xoyu(晓宇)
'#
'# 主页地址: http://www.xoYu.com 晓宇听幽工作室
'#
'#【版权声明】
'#################################################################
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓！
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！
'#################################################################
'# 程序名称：晓宇听幽网站内容管理系统·网站内容管理系统
'# 英文名称：xoYu News 2004 Professional For xoYu CMS
'# 程序创建时间：2003-7-10
'# 程序完成时间：2003-9-11
'# 最后修改时间：2003-11-15
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作
'# 如有任何问题请到我们的论坛(http://www.xoyu.com/bbs/)告诉我们。
'#################################################################
set rs=server.CreateObject("ADODB.RecordSet")
TT=TT & "<a class=xoYuNewsSort href=html_listLB.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_listLB.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="程序制作：xoyu（QQ：5964887）www.xoyu.com">
<title>晓宇听幽 网站内容管理系统—添加文章</title>
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<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" onchange="window.open(('html_add.asp?id='+this.options[this.selectedIndex].value),'_self')">
<%
response.write("<option selected value=''>- - = = = 请选择文章分类 = = = - -</option>")
%><%=typelist%>
</select>
</td></tr>
<tr><td class="forumrow">
</form>
</td></tr>
</table>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -