html_add.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") 
if xoYuStudioAdminDj=2 and request("id")<>"" then
rs.open "select * from infotype where id="&request("id"),conn,1,1
TM=rs("typemaster")
if instr("|"&TM&"|","|"&xoYuStudioAdminName&"|")<1 then errmsg=errmsg & "＂您没有对本栏目添加文章的权限!＂ \n"
rs.close
end if

if errmsg<>"" then
   response.write("<script>alert('" & errmsg & "');history.go(-1)</script>") 
else
savetime=Now()+webtime/24
sql="select * from Mb where mbtype='2' order by ID"
rs.Open sql,conn,1,1
if rs.EOF then
choose1=choose1&"<option value=""无"">暂无模版可捆绑</option>"
else
MbName=rs("mbname")
while not rs.EOF
choose1=choose1&"<option value="""&rs("id")&""">"&rs("MbName")&"</option>"                       
rs.MoveNext
wend
end if	
rs.close

TT=TT & "<a class=xoYuStudioSort href=html_listLB.asp><font color=""#FFFFFF"">文章首页</font></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)&"><font color=""#FFFFFF"">"&TN(i)&"</font></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 Dofromsite(addfromsite)
{ 
var fromsite = document.frmAnnounce.addfromsite.value; 
document.frmAnnounce.fromsite.value=fromsite; 
document.frmAnnounce.fromsite.focus(); 
return; }
//-->
</script>

<SCRIPT LANGUAGE="JavaScript">

function AddText(NewCode) {
document.frmAnnounce.body.value+=NewCode
}

function openscriphtml()
{
if (navigator.appName!="Microsoft Internet Explorer")
   alert("此功能 Netscape 用户不能使用！")
else
   {newwin=window.open('html_editor.htm','','width=544,height=294');
    newwin.focus();
   }
}
function runEx(){
//alert('请注意，按下确定将生成页面，按下后请稍后....');
var winEx = window.open("", "winEx", "width=300,height=200,status=yes,menubar=yes,scrollbars=yes,resizable=yes"); winEx.document.open("text/html", "replace"); 
winEx.document.write(unescape(event.srcElement.parentElement.children[2].value)); 
winEx.document.close(); 
}
</SCRIPT>
<script  language="JavaScript">
<!-- Hide from older browsers...

//Function to format text in the text box
function FormatText(command, option){
	
  	frames.message.document.execCommand(command, true, option);
  	frames.message.focus();
}

//Function to add image
function AddImage(){	
	imagePath = prompt('请输入图片地址', 'http://');				
	
	if ((imagePath != null) && (imagePath != "")){					
		frames.message.document.execCommand('InsertImage', false, imagePath);
  		frames.message.focus();
	}
	frames.message.focus();			
}

//Function to clear form
function ResetForm(){

	if (window.confirm('确认要清空对话框内容?')){
	 	frames.message.document.body.innerHTML = ''; 
	 	return true;
	 } 
	 return false;		
}

//Function to open pop up window
function openWin(theURL,winName,features) {
  	window.open(theURL,winName,features);
}

function setMode(newMode)
{
  bTextMode = newMode;
  var cont;
  if (bTextMode) {
    cleanHtml();
    cleanHtml();

    cont=message.document.body.innerHTML;
    message.document.body.innerText=cont;
  } else {
    cont=message.document.body.innerText;
    message.document.body.innerHTML=cont;
  }
  message.focus();
}