📄 default.asp

📁 这是一个文章管理的网页源程序
💻 ASP
字号:
<!--#include file="ie586top.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<%      
	dim rs,sql
	dim classid
	dim classname
   	if request("classid")<>"" then
		classid=request("classid")
   	else
		classid=1
   	end if
  	set rs = server.createobject("adodb.recordset")
 	set rs1=server.createobject("adodb.recordset")
  	sql="select * from Aclass where classID="&cstr(classid)
 	rs.open sql,conn,1,1
 	if not rs.eof then
		classname=rs("class")
 	end if
	rs.close
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="晨怡网景,http://www.ie586.net">
<title><%=classname%>---<%=hosturl%></title>
<script language="JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<link rel="stylesheet" href="images/new.css">
</head>
</table>
  <TABLE cellSpacing=0 cellPadding=0 width="750" border=0>
    <TBODY> 
    <TR>
    <TD bgColor="<%=Tablebackcolor%>">
      <TABLE cellSpacing=1 cellPadding=4 width="100%" border=0>
        <TR> 
          <TD bgColor="<%=Tabletitlecolor%>" colspan="2"> <%
	sql="select class,classid from Aclass"
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		response.write "还没有任何栏目"
	else
	do while not rs.eof
%> |&nbsp;<a href="default.asp?classid=<%=rs("classid")%>"> <%if cint(rs("classid"))=cint(classid) then%> 
            <font color=red><%=rs("class")%></font> <%else%> <%=rs("class")%> 
            <%end if%> </a>&nbsp;|&nbsp; <%  
	rs.movenext  
	loop  
	end if  
	rs.close  
%> </TD>
        </TR>
        <TR> 
          <TD bgColor="<%=Tablebodycolor%>" colspan="2"> <%
	sql="select Nclass,Nclassid from ANclass where classID="&cstr(classid)
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		response.write "还没有任何栏目"
	else
	do while not rs.eof
%> <a href="index.asp?classid=<%=classid%>&Nclassid=<%=rs("Nclassid")%>"><%=rs("Nclass")%></a>&nbsp;&nbsp; 
            <%  
	rs.movenext  
	loop  
	end if  
	rs.close  
%> </TD>
        </TR>
      </table>
    </td>
  </tr>
  </tbody>
</table>
<br>
  <table border="0" width=750 cellspacing="0" cellpadding="1" bgcolor="#FFFFFF">
    <tr> 
    <td valign="top" width="25%"> 
      <table cellspacing=0 cellpadding=0 width="100%" border=0 align=center>
        <tbody> 
        <tr valign="top"> 
          <td bgcolor="<%=Tablebackcolor%>" height="103"><!--#include file="top.asp"-->
          </td>
        </tr>
        
         
      </table>
   
      <br><!--#include file="REVIRW.ASP"-->
      <br>
    </td>
    <td valign="top" width="3%">&nbsp; </td>
    <td width="72%" valign="top"> 
      <table cellspacing=0 cellpadding=0 width="100%" border=0 align=center>
        <tbody> 
        <tr> 
          <td bgcolor="<%=Tablebackcolor%>"> 
            <table cellspacing=1 cellpadding=4 width="100%" border=0>
              <tr> 
                <td bgcolor="<%=Tabletitlecolor%>"><b><%=classname%>最新文章</b> </td>
              </tr>
              <tr> 
                <td bgcolor="<%=Tablebodycolor%>"> <font style=line-height:150%> 
                  <% 
	sql="select top 20 " 
	sql=sql&"article.articleid,article.title,article.dateandtime,article.hits,article.daifa,article.classid,article.Nclassid,ANclass.Nclass " 
	sql=sql&" from article,ANclass where article.Nclassid=ANclass.Nclassid and article.classid="&classid&" and daifa=1 " 
	sql=sql&" order by article.articleid desc" 
	rs.open sql,conn,1,1 
	if rs.eof and rs.bof then 
%> 没有更新任何文章 <%else%> <%do while not rs.eof%> [<a href='index.asp?classid=<%=rs("classid")%>&Nclassid=<%=rs("Nclassid")%>'><%=rs("Nclass")%></a>] 
                  <a href="list.asp?id=<%=rs("articleid")%>"><%=rs("title")%></a> 
                  ( <%if rs("dateandtime")=date() then%> <font color=red><%=month(rs("dateandtime"))%>月<%=day(rs("dateandtime"))%>日</font> 
                  <%else%> <font color='#999999'><%=month(rs("dateandtime"))%>月<%=day(rs("dateandtime"))%>日</font> 
                  <%end if%> 阅读<font color=green><%=rs("hits")%></font>次) <br>
               
<% 
	rs.movenext 
	loop 
	end if 
	rs.close 
%>
                  </font><br><div align="center"><!--#include file="query.asp"-->
      </div> </td>
              </tr>
            </table>
          </td>
        </tr>
        </tbody> 
      </table>
      
      <table cellspacing=0 cellpadding=0 width="100%" border=0 align=center>
        <tbody> 
        <tr align="right"> 
          <td><!--#include file="go.asp"-->
  </td>
        </tr>
        </tbody> 
      </table>
    </td>
  </tr>
</table><%
conn.close
set conn=nothing%>
<img src="images/downdown.gif" width="748" height="10"></div>                         
<!--#include file="ie586top-2.asp"--></body>                              
</html>
⌨️ 快捷键说明

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