backbrup.asp

来自「asp的新闻网站」· ASP 代码 · 共 179 行

ASP
179 行
字号 
<%
'*********************************************************************************
'模块名称：国际新闻新闻背景
'开发人：潘树文
'时间：2001年2月7日
'*********************************************************************************

%>
<!--#include file="../include/odbc.asp"-->
<!--#include file="../include/showbody.asp"-->
<!--#include file="../include/killstr.asp"-->
<%
dim s_menuid
s_menuid="002"
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../style.css">
<title>千夜网-&gt;国际新闻</title>
<script language=javascript src="../script/checkdate.js"></script>

</head>

<body topmargin="3" leftmargin="3">
<div align="center"><center>

<%flag="002000"%>
<!--#include file="../include/secondhead.asp"-->
</center></div><div align="center"><center>

<table border="0" width="770" cellspacing="0" cellpadding="0">
  <tr>
    <td width="78%"
    style="border-left: 3px none rgb(219,219,219); border-bottom: 3px none rgb(219,219,219)"
    valign="top">
    <table border="0" width="100%">
      <tr>
        <td width="30%" valign="top">　<div align="center"><center>
        <!--#include file="include/zhuanti.asp"-->
        </center></div><p><br>
        </p>
        <div align="center"><center>
        <!--#include file="include/huanqiu.asp"-->
        </center></div><p><br>
        </p>
        <div align="center"><center>
         <!--#include file="include/yanwen.asp"-->
        </center></div><p><br>
        </p>
        <div align="center"><center>
        <!--#include file="include/jiemi.asp"-->
        </center></div><p><br>
        </p>
        <div align="center"><center>
         <!--#include file="include/link.asp"-->
        </center></div></td>
        <td width="70%" valign="top">　<div align="center"><center>
 <table border="0" width="98%"    cellspacing="0" cellpadding="0">
          <tr>
            <td width="100%" colspan="2"></td>
          </tr>
          <tr>
            <td width="30%" bgcolor="#558AD9" height="19"><p align="center">
            <span style="font-size: 14px">
            <font color="#FFFFFF"><%=request("menuname")%></font></span></td>
            <td width="70%" style="border-right: 1px none
             rgb(255,128,64); border-top: 1px solid rgb(85,138,217)"
            height="19">&nbsp; </td>
          </tr>
           <tr>
           <td width="100%" colspan="2" align="left" ><br><ul>
          <%
          set rs=server.CreateObject ("adodb.recordset")
            if request("mysql") ="" then
				sql="select * from news2_info where menuid ='"&killstr(trim(request("menuid")))&"' and idkey like '%"&killstr(request("idkey"))&"%' order by infoid desc"
			else
				sql=request("mysql")
			end if
          ' Response.Write sql
          ' Response.End 
            rs.Open sql,conn,3,1
         
         %><!--#include file="../include/rollpage.asp"-->
         
         <%if request("idkey")="人物" then%>
         <table border="0" width="84%"    cellspacing="3" cellpadding="0">
          <%
			 if not rs.EOF then
				 rs.PageSize = 40
				 rs.AbsolutePage = getPageNo(rs)
				Response.Write "<tr>"
				for i=1 to rs.PageSize
					 If rs.EOF Then Exit For
					  %>
					 
					 <td width=20% align=center bgcolor="#f5f5f5"><a class="l7"
						 href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
						 target="_blank"><%=rs("newstitle")%></a></td>
					
					<%rs.movenext
					  if int(i/4)=i/4 then Response.Write "</tr><tr>"
				next
			 end if		%>
			 	 </tr>        
         </table>
         <%
         else
         
			 if not rs.EOF then
				 rs.PageSize = 40
				 rs.AbsolutePage = getPageNo(rs)
		
				for i=1 to rs.PageSize
					 If rs.EOF Then Exit For 
				 %>
					 <li><a class="l7"
						 href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
						 target="_blank"><%=rs("newstitle")%></a>
						 <%=" ["&rs("derivation")&"]"%><% showtime(rs("regtime"))%> <br>
					 </li>
				<%rs.MoveNext
					if right(trim(cstr(i)),1)="0"  then 
					 '隔十行空一行*******************************************
					Response.Write "<br>"
					end if  
					If rs.EOF Then Exit For 
				next
			end if
         
       end if  
        %>  
       
        </td>
      </tr>
      
      <tr>
        <td width="100%" height="19" colspan="2"><%call listPage(rs)%></td>
      </tr>
      <%
      
       rs.Close%>
        
</table>
 </center></div></td>
      </tr>
    </table>
    </td>
    <td width="22%" style="border-left: 3px solid rgb(219,219,219)" valign="top"><table
    border="1" width="100%" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF">
      <tr>
        <td width="100%" bgcolor="#DBDBDB"> 
        <!--#include file="include/redian.asp"--> </td>
      </tr>
    </table>
    <p><br>
    </p>
    <!--#include file="include/beijing.asp"-->   
      
    <p>　</p>
      <!--#include file="include/huigu.asp"-->  
    <p align="center">　</p>
    <div align="center"><center>  
    <!--#include file="include/mail.asp"-->   
    </center></div></td>
  </tr>
</table>
</center></div>

<hr width="90%" size="1" color="#0080FF">

<div align="center"><center>

<!--#include file="../include/bottom.txt"-->
</center></div>
</body>
</html>

backbrup.asp - 源码说明

本页面展示了「asp的新闻网站」中的 backbrup.asp 源码文件，采用 ASP 编程语言编写，共 179 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与asp相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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