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

📄 add_news.asp

📁 很好的网上书店源码 适合企业个人使用 很好的网络书城
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆!');window.location.reload('login.asp')</script>"
response.End
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/css.css" type="text/css">
</head>

<body><!--#include file="menu.asp"-->
<div align="center">
<table width="90%" border="0" cellspacing="1" bgcolor="#BCD7E0" id="table2">
  <tr> 
    <td background="file:///C:/wwwroot/images/manage/line_all.gif">
	<p align="center"><font color="#000000">添加书店新闻</font></td>
  </tr>
  <tr>
	<form method="post" action="save_news.asp">
    <td height="237" valign="top" bgcolor="#F8FCFD"><br>
	
        <div align="center">
	
        <table width="90%" border="0" cellspacing="1" bgcolor="#BCD7E0" id="table3">
          <tr> 
            <td bgcolor="#F8FCFD" align="center" width="176">新闻标题:</td>
            <td bgcolor="#F8FCFD" align="left" width="773"> 
        &nbsp;<input type="text" name="title" size="50" class="form" maxlength="100"></td>
          </tr>
          <tr>
            <td bgcolor="#F8FCFD" align="center">新闻类别:</td>
            <td bgcolor="#F8FCFD" align="left" width="773"> 
        &nbsp;<select name="class" class="form">
          <option selected value="">请选择新闻类别</option>
          <%
dim rs,sql,sel,classname
set rs=server.createobject("adodb.recordset")
sql="select * from shop_newsclass"
rs.open sql,conn,1,1
do while not rs.eof
classname=rs("class")
response.write "<option value='"+CStr(rs("ClassID"))+"' name=class>"&classname&"新闻</option>"+chr(13)+chr(10)
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
  </select></td>
            </tr>
			<tr>
            <td bgcolor="#F8FCFD" align="center">新闻内容:</td>
            <td bgcolor="#F8FCFD" align="left" width="773">&nbsp;<IFRAME ID="content1" SRC="../edit/ewebeditor.asp?id=content&style=s_light" FRAMEBORDER="0" SCROLLING="no" WIDTH="550" HEIGHT="350" name="I1"></IFRAME>
			<br> 
        <textarea name="content" cols="48" rows="10" class="form" style="display:none"></textarea></td>
            </tr>
			<tr>
            <td bgcolor="#F8FCFD" align="center">新闻图片:</td>
            <td bgcolor="#F8FCFD" align="left" width="773"> 
        &nbsp;&nbsp;<input type="hidden" onchange="return(OnUpFile())" name="img"><iframe name="I1" frameBorder="0" width="100%" scrolling="no" height="30" src="upload_news_pic.asp"></iframe></td>
            </tr>
          <tr>
            <td bgcolor="#F8FCFD" align="center">新闻出处:</td>
            <td bgcolor="#F8FCFD" align="left" width="773"> 
        &nbsp;<input type="text" name="from" size="50" class="form"></td>
            </tr>
			<tr>
            <td bgcolor="#F8FCFD" align="center">附图推荐:</td>
            <td bgcolor="#F8FCFD" align="left" width="773"> 
        <input type="checkbox" value="1" name="pic"><font color="#666666"><img border="0" src="../images/bit2.gif" width="20" height="12">如果选择,
		前台会显示图片字样,并在右侧进行显示</font></td>
            </tr>
          <tr>
            <td bgcolor="#F8FCFD" align="center">热点新闻:</td>
            <td bgcolor="#F8FCFD" align="left" width="773"> 
        <input type="checkbox" value="1" name="hot" checked><font color="#666666"><img border="0" src="../images/bit2.gif" width="20" height="12">如果选择,那么该新闻为热点新闻</font></td>
            </tr>
          <tr> 
            <td bgcolor="#F8FCFD" align="center"> </td>
            <td bgcolor="#F8FCFD" align="center" width="773"> 
        <input type="submit" name="Submit0" value="提交新闻" class="form">
           
        <input type="reset" name="reset0" value="重新填写" class="form">
      		</td>
          </tr>

        </table> </div>
	<br>
	<div align="center">
          <br>

          
        </div>
        </td>
    </form>
  </tr>
</table></div>
<!--#include file="copyright.asp"-->
</body>
</html>

⌨️ 快捷键说明

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