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

📄 addnew.asp

📁 管理登录system 管理员:admin 密码:admin888 数据库链接文件: conn.asp 内容数据库前台链接文件 systemconn.asp 内容数据库后台链接文件 sy
💻 ASP
字号:
<!--#include file="check_login.asp"-->
<!--#include file="conn.asp"-->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="text.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-color: #F2F2F2;
}
.style3 {color: #0000FF}
-->
</style>
</head>
<body  topmargin="0" leftmargin="0" rightmargin="0" <%=kkk%>>
<!--#include file="top/Ltop02.asp"-->
<table width="99%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="5"></td>
  </tr>
</table>
<table width="99%"  border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#EFEBEF">
<form name="LPform" method="post" action="News_save.asp">
  <tr>
    <td width="24%" align="right" bgcolor="#DEDFDE">新闻标题:</td>
    <td width="76%" bgcolor="#EBEBEB">
      <input name="Lname" type="text" class="myput" id="Lname" size="35">
      (<span class="style3">*</span>)    </td>
  </tr>
  <tr>
    <td width="24%" align="right" bgcolor="#DEDFDE">新闻目录:</td>
    <td bgcolor="#EBEBEB"><select name="Lsort" class="myput" id="Lsort">
<% 

    ModifyID=CInt(trim(Request.QueryString("ModifyID")))
    set rs = server.createobject("adodb.recordset")
	rs.source = "select id,content,Pid from newtree where Pid=0 order by id desc"
    rs.open rs.source,conn,1,1
    if rs.recordcount=0 then
    response.write("没有栏目")
    end if
    while not rs.eof
    Bid=CInt(rs("id"))
	dim MYID3
	MYID3=0
	MYID3=ModifyID
%>
<option <% if MYID3=Bid then response.Write"selected" %>  value="<%=Bid%>" style=background-color:#a4cee4  >╋<%=rs("content")%></option>
          <%
           set rss = server.createobject("adodb.recordset")
           rss.source = "select id,content,Pid from newtree where Pid="&Bid
           rss.open rss.source,conn,1,1
           while not rss.eof
           Cid=CInt(rss("id"))
		   dim MYID2
			MYID2=0
			MYID2=ModifyID
           %>
           <option  <% if MYID2=Cid then response.Write "selected" %> value="<%=Bid%>-<%=Cid%>" style=background-color:#99CC00 >&nbsp;&nbsp;+<%=rss("content")%></option>
           <%
           rss.movenext
           wend
           rss.Close
	       set rss=nothing
  rs.movenext
  wend
  rs.close
  set rs=nothing
  conn.close
  set conn=nothing
%>
</select>
    (<span class="style3">*</span>)(注意目录级别)</td>
  </tr>
    <tr>
    <td width="24%" align="right" bgcolor="#DEDFDE">发 布 者:</td>
    <td bgcolor="#EBEBEB"><input name="LPutman" type="text" class="myput" id="LPutman" size="20">    </td>
  </tr>
    <tr>
    <td align="right" bgcolor="#DEDFDE">新闻详细介绍:</td>
    <td bgcolor="#EBEBEB"><span class="style3">利用本编辑工具,可以编辑图文并茂的新闻内容图文。<br>
      可以上传多幅图片,利用表格等排列。(*)</span></td>
    </tr>
    <tr valign="top" bgcolor="#EBEBEB">
      <td colspan="2"><table width="90%"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="43" valign="top"><INPUT type="hidden" name="content1" value="">
        <IFRAME ID="eWebEditor1" src="../WebEditor/ewebeditor.asp?id=content1" frameborder="0" scrolling="no" width="550" height="350"></IFRAME></td>
        </tr>
      </table></td>
    </tr>
	    <tr>
    <td width="24%" align="right" bgcolor="#DEDFDE">是否发布:</td>
    <td bgcolor="#EBEBEB"><input name="LPutout" type="radio" value="1" checked>
      <input type="radio" name="LPutout" value="0">
      否 (选 <strong>是</strong> 时同时发布到网站上去)</td>
  </tr>
    <tr>
    <td width="24%" align="right" bgcolor="#DEDFDE">是否为热点新闻:</td>
    <td bgcolor="#EBEBEB"><input type="radio" name="NewsHot" value="1">
  <input name="NewsHot" type="radio" value="0" checked>
否 (选 <strong>是</strong> 时自动归类到 <strong>热点新闻</strong> 中去)</td>
  </tr>
    <tr valign="top" bgcolor="#DEDFDE">
      <td colspan="2" style='BORDER-BOTTOM: #333333 1px solid'><input type="submit" name="Submit" value="添 加"> 
      <input type="reset" name="Submit2" value="重 置"></td>
    </tr>
  </form>
</table>
<br>
</body>
</html>

⌨️ 快捷键说明

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