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

📄 templates.asp

📁 实现一定上传功能
💻 ASP
字号:
<!--#include file="articleconn.asp"-->
<%
IF Session("KEY")<>"super"THEN
	response.redirect "mymanage.asp"
	response.end
END IF
%> <%
dim rs,tsql
dim rst
	set rst=server.CreateObject("ADODB.RecordSet")
	  
%> 
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>天荣现代农业</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<link rel="stylesheet" type="text/css" href="style.css">
<style type="text/css">
<!--
-->
</style>
</head>


<body bgcolor="#FFFFFF">
<div align="center" class="unnamed1">
  <center>
    <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr bgcolor="#304D7C"> 
        <td width="771" bgcolor="#304D7C" class="unnamed1" height="17"> <div align="center"><a href="myaddarticle.asp"><font color="#FFFFFF">增加新闻文章</font></a> 
            <font color="#FFFFFF"><b>|</b></font> <a href="makeindex.asp"><font color="#FFFFFF">生成首页图片新闻</font></a> 
            <font color="#FFFFFF"><b>|</b></font> <a href="newschk.asp"><font color="#FFFFFF">审核新闻</font></a> 
            <font color="#FFFFFF"><b></b></font><font color="#FFFFFF"><b>|</b></font> 
            <a href="usermanage.asp"><font color="#FFFFFF">用户管理</font></a><font color="#FFFFFF"> 
            <b>|</b> </font><a href="change.ASP"><font color="#FFFFFF">栏目管理</font></a> 
            <font color="#FFFFFF"><b>|</b></font> <a href="templates.asp"><font color="#FFFFFF">新闻模版管理</font></a> 
            <font color="#FFFFFF"><b>|</b></font> <a href="mymanage.asp"><font color="#FFFFFF">浏览</font></a><font color="#FFFFFF"> 
            <b>|</b> </font><a href="myaddarticle.asp"><font color="#FFFFFF"></font></a><a href=""><font color="#FFFFFF">退出系统</font></a></div></td>
        <td width="10" valign="bottom" align="right" height="17"><img src="images/x1.gif" width="11" height="11"></td>
      </tr>
    </table>
    <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" height="1">
      <tr> 
        <td bgcolor="#3A5C9F" width="168" height="143" valign="top"> 
          <table width="100%" border="0" cellpadding="0" cellspacing="0">
            <tr bgcolor="#000000"> 
              <td><img src="images/dot.gif" width="1" height="1"></td>
            </tr>
          </table>
          
          
        </td>
        <td bgcolor="#C4C4C4" width="3" height="143"><img src="images/dot1.gif" width="1" height="1"></td>
        <td colspan="2" height="143" valign="top" align="right">
          <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td><%
SET DATABASE=Server.CreateObject("ADODB.connection")
%> 
                <p>新闻模版列表<br>
                  <%
	rst.open "select * from Example ",conn,1
 if rst.EOF then
	response.write "没有栏目:("
	else
%>
                
                <table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
                  <tr> 
                    <td width="11%" bgcolor="#304D7C"> 
                      <div align="center"><font color="#FFFFFF">ID号</font></div>
                    </td>
                    <td width="45%" bgcolor="#304D7C"> 
                      <div align="center"><font color="#FFFFFF">模 版 名 称</font></div>
                    </td>
                    <td width="22%" bgcolor="#304D7C"> 
                      <div align="center"><font color="#FFFFFF">修改</font></div>
                    </td>
                    <td width="22%" bgcolor="#304D7C"> 
                      <div align="center"><font color="#FFFFFF">删除</font></div>
                    </td>
                  </tr>
                  <%do while NOT rst.EOF%> 
                  <tr bgcolor="#FFFFFF"> 
                    <td width="11%" align="center"><%=rst("id")%></td>
                    <td width="45%" align="center"><%=rst("name")%></td>
                    <td width="22%" align="center"><a href="templatesedit.asp?id=<%=rst("id")%>">修改</a></td>
                    <td width="22%" align="center"><font color="#FFFFFF"><a href="templatesdel.asp?id=<%=rst("id")%>&amp;name=del">删除</a></font></td>
                  </tr>
                  <%
	rst.MoveNext
	loop
	end if
rst.close
%> 
                </table>
                <p align="center"><a href="addtemplatesedit.asp"><font color="#FF0000">新 
                  增 模 版</font></a></p>
</td>
            </tr>
          </table>
          <br>
        </td>
      </tr>
    </table>
    <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr bgcolor="#304D7C"> 
        <td width="777" bgcolor="#304D7C" class="unnamed1" height="2"> 
          <div align="center"></div>
        </td>
        <td width="10" valign="top" align="right" height="2"><img src="images/x4.gif" width="14" height="12"></td>
      </tr>
    </table>
  </center></div>
</body>
</html>

⌨️ 快捷键说明

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