⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 newsadd1.asp

📁 ASP+SQL2000+
💻 ASP
📖 第 1 页 / 共 4 页
字号:
<!--#include file=conn.asp -->
<!--#include file=../include/config.asp -->
<!--#include file=chkuser.asp -->
<%dim jingyong
smallclassid=request("smallclassid")
bigclassid=request("bigclassid")
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&request.cookies("username")&"'"
rs.open sql,conn,1,3
jingyong=rs("jingyong")
rs.close
set rs=nothing

randomize
rannum=int(90000*rnd)+10000
Response.cookies("newsrelated")=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&rannum

if request.cookies("key")="super" or request.cookies("key")="check" or request.cookies("KEY")="bigmaster" or request.cookies("KEY")="smallmaster" or (request.cookies("key")="selfreg" and jingyong=0) or request.cookies("KEY")="typemaster" then%>

<script language="JavaScript">
<!--
function na_select_form (fname, type_name) 
{
  document.forms[fname].elements[type_name].select()
  document.forms[fname].elements[type_name].focus()
}


// -->
</script>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=copyright%><%=version%>&nbsp;<%=ver%> - 添加文章
</title>

<script language="javascript">
<!--
function checkdata()
{
if (document.form1.title.value=="")
	{
	  alert("对不起,请输入文章标题!")
	  document.form1.title.focus()
	  return false
	 }
if (document.form1.viewhtml.checked == true)
	{
	  alert("对不起,请取消“查看HTML源代码”后再添加!")
	  document.form1.viewhtml.focus()
	  return false
	 }
if (document.form1.content.value=="")
	{
	  alert("对不起,请输入文章内容!")
	  document.form1.content.focus()
	  return false
	 }
}

function MM_goToURL() { //v3.0
  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</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 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();
}

function cleanHtml()
{
  var fonts = message.document.body.all.tags("FONT");
  var curr;
  for (var i = fonts.length - 1; i >= 0; i--) {
    curr = fonts[i];
    if (curr.style.backgroundColor == "#ffffff") curr.outerHTML	= curr.innerHTML;
  }

}

// -->
</script>
<script language="JavaScript">
function about()
{
window.showModalDialog("about.htm","","dialogWidth:420px;dialogHeight:240px;scroll:no;status:no;help:no");
}

function help()
{
    var helpmess;
    helpmess="---------------填写帮助---------------\r\n\r\n"+
         "1.请不要发表有危险性的脚本。\r\n\r\n"+
         "2.如果要书写源代码,请选中\r\n\r\n"+
         " 查看HTML源代码书写.\r\n\r\n"+
         "3.需要你自己运行,才能看效果.\r\n\r\n"+
         "4.如果书写js,尽量不要在这儿书写.\r\n\r\n";
    alert(helpmess);
}
</script>
<script src="edit.js" type="text/javascript"></script>
<link rel="stylesheet" type="text/css" href="site.css">
</head>

<body topmargin="0"><!--#include file=top.asp-->
<%set rs5=server.CreateObject ("ADODB.RecordSet")
rs5.Source="select * from system"
rs5.Open rs5.source,conn,1,1
%><form name="form1" method="post" action="newsadd2.asp" OnSubmit="return checkdata()" onReset="return ResetForm();">
  <div align="center"><center>
      <table border="0" cellspacing="0" width="750" cellpadding="0">
        <tr align="center"> 
          <td width="100%"> 
            <table border="1" cellspacing="0" width="100%" cellpadding="0"  bordercolor="<%=border%>" style="border-collapse: collapse">
              <tr align="center">
<%if smallclassid<>"" then
dim typename,bigclassname,smallclassname
set rs1=server.createobject("adodb.recordset")
sql1="select * from smallclass where smallclassid="&smallclassid
rs1.open sql1,conn,1,3
smallclassname=rs1("smallclassname")
set rs2=server.createobject("adodb.recordset")
sql2="select * from bigclass where bigclassid="&rs1("bigclassid")
rs2.open sql2,conn,1,3
bigclassname=rs2("bigclassname")
set rs3=server.createobject("adodb.recordset")
sql3="select * from type where typeid="&rs2("typeid")
rs3.open sql3,conn,1,3
typename=rs3("typename")
%>
<input name="typeid" type="hidden" value="<%=rs2("typeid")%>">
<input name="bigclassid" type="hidden" value="<%=rs1("bigclassid")%>">
<input name="smallclassid" type="hidden" value="<%=smallclassid%>">
 <td colspan="4" height="30" class="unnamed2" valign="middle" bgcolor="<%=m_top%>" width="760">在<b class="unnamed2"><a href="bigclass.asp?typeid=<%=rs2("typeid")%>"><%=typename%></a>-<a href="smallclass.asp?bigclassid=<%=rs1("bigclassid")%>"><%=bigclassname%></a>-<a href="listnews.asp?smallclassid=<%=smallclassid%>"><%=smallclassname%></a></b>中添 加 文 章</td>
<%rs3.close
set rs3=nothing
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing
else%>
<%if bigclassid="" then
response.write "<script>alert('请至少选择大类!');history.go(-1);</Script>"

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -