📄 add.asp

📁 一个简单的小程序
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="Session.asp"-->
<!--#include file="Conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>添加新闻</title>
<link  href="css.css" rel="stylesheet" type="text/css">
<script src="Editor/edit.js"></script>
<%
'=======================================
'88red科技独立开发完成本程序，并提供免费技术支持与升级服务
'官方网站 http://www.88red.com    QQ:8375158  TEL:13964489818
'对于商业客户，本站提供细致周到的各项售后服务；对于盗版客户恕不提供，对于散播本程序者本站将追究其法律责任
'88red科技将陆续开发其他各种先进程序，例如企业网站建站系统等等，对老客户购买其他程序给予最大程度的优惠，欢迎洽谈
'=======================================
Dim count
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql = "Select * From  smallclass  Order By scid Desc"
Rs.Open Sql,Conn,1,1
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
        <%
        count = 0
        do while not rs.eof 
        %>
subcat[<%=count%>] = new Array("<%= trim(rs("scname"))%>","<%= trim(rs("bcid"))%>","<%= trim(rs("scid"))%>");
        <%
        count = count + 1
        rs.movenext
        loop
        rs.close
        %>
onecount=<%=count%>;

function changelocation(locationid)
    {
    document.myform.scid.length = 0; 

    var locationid=locationid;
    var i;
    for (i=0;i < onecount; i++)
        {
            if (subcat[i][1] == locationid)
            { 
                document.myform.scid.options[document.myform.scid.length] = new Option(subcat[i][0], subcat[i][2]);
            }        
        }
        
    }    
</script>
</head>
<body leftmargin="0" topmargin="0">
<div align="center">
      <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" class="mainmiddle">
        <tr> 
          <td width="29" height="32"> <div align="left"> 
              <p class="maindaohang">　</p>
            </div></td>
          <td width="709"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="5"></td>
              </tr>
            </table>
            
        <b><font color="#000000"><b> <span class="bigNavi">添加新闻</span>　　　　　　　　　　　　　　</b></font></b></td>
          <td width="8" class="mainrights"></td>
        </tr>
      </table>
	  <form method="POST" name="myform" id="myform" action="addsave.asp">      
    <table width="95%" height="106" border="0" align="center" cellpadding="3" cellspacing="1" class="tabbgcolor">
      <tr class="tabbgcolorli"> 
        <td height="20"><div align="center">选择分类:</div></td>
        <td width="83%" height="20"><table width="98%" border="0" align="center" cellspacing="1">
            <td width="85%"> 
              <%
Sql = "Select * From bigclass"
Rs.Open Sql,Conn,1,1
If Rs.eof and Rs.bof then
Response.Write "请先增加新闻分类再添加新闻！"
Response.End
Else%>
              　大类 
              <select name="bcid" onChange="changelocation(document.myform.bcid.options[document.myform.bcid.selectedIndex].value)" size="1">
                <option selected value="<%=trim(rs("bcid"))%>"><%=trim(rs("bcname"))%></option>
                <%      dim conclass
         conclass=rs("bcid")
        rs.movenext
        do while not rs.eof
%>
                <option value="<%=trim(rs("bcid"))%>"><%=trim(rs("bcname"))%></option>
                <%
				rs.movenext
        loop
	end if
        rs.close
%>
              </select>
              　相关小类 
              <select name="scid">
                <%sql="select * from smallclass where bcid="&conclass
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
%>
                <option selected value="<%=rs("scid")%>"><%=rs("scname")%></option>
                <% rs.movenext
do while not rs.eof%>
                <option value="<%=rs("scid")%>"><%=rs("scname")%></option>
                <% rs.movenext
loop
end if
        rs.close
        %>
              </select> </td>
            </tr>
          </table>
          <div align="center"></div></td>
      </tr>
      <tr class="tabbgcolorli"> 
        <td width="17%" height="20"> <div align="center">标 题</div></td>
        <td height="20">　 
          <input name="title" type="text" class="border" id="title" size="40">
          滚动: 
          <input type="radio" name="gd" value="true">
          是 
          <input name="gd" type="radio" value="false"  checked>
          否 </td>
      </tr>
      <tr class="tabbgcolorli"> 
        <td width="17%" height="20"> <div align="center">来源</div></td>
        <td height="20">　 
          <input name="source" type="text" class="border" id="title" value="本站" size="20">
          　　　头条: 
          <input type="radio" name="tt" value="true">
          是 
          <input name="tt" type="radio" value="false"  checked>
          否 　推荐: 
          <input type="radio" name="tj" value="true">
          是 
          <input name="tj" type="radio" value="false"  checked>
          否 </td>
      </tr>
	  <tr class="tabbgcolorli"> 
        <td width="17%" height="20"> <div align="center">文件名</div></td>
        <td height="20" colspan="3">
12 下一页
⌨️ 快捷键说明

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