📄 smllist.asp
字号:
<%
bigclass=request("big")
smlclass=request("sml")
Function Html2Text(Str1)
If isNULL(Str1) Then
Html2Text=""
Exit Function
End If
Str1=Replace(Str1,"<","<")
Str1=Replace(Str1,">",">")
Str1=Replace(Str1,"<br>",VBcrlf)
Str1=Replace(Str1,""",chr(34))
Str1=Replace(Str1," "," ")
Str1=Replace(Str1,"&","&")
Html2Text=Str1
End Function
%>
<!--#include file="conn.asp"-->
<HTML>
<HEAD><TITLE>华北水利水电机关党委</TITLE>
<META http-equiv=content-type content=text/html;charset=gb2312>
<LINK href="favicon.ico" type=image/x-icon rel=icon>
<LINK href="favicon.ico" type=image/x-icon rel="shortcut icon">
<META content=华北水利水电党委组织部 name=description>
<META content=华北水利水电 name=keywords>
<LINK href="images/style.css" type=text/css rel=stylesheet>
<SCRIPT src="images/flash.js" type=text/javascript></SCRIPT>
<SCRIPT type=text/javascript>
var thumbWidth=120;var thumbHeight=0;
var thumbHWidth=thumbWidth;var thumbHHeight=thumbHeight;
</SCRIPT>
<SCRIPT src="images/thumbnail.js" type=text/javascript></SCRIPT>
<SCRIPT language=JavaScript src="images/left_menu.js"></SCRIPT>
<SCRIPT language=JavaScript src="images/navigate.js"></SCRIPT>
</HEAD>
<BODY>
<DIV class=twidth>
<TABLE id=sitehead cellSpacing=0 cellPadding=0 align=center border=0>
<TR>
<TD class=l></TD>
<TD class=m>
<TABLE width="100%" align=center>
<OBJECT
codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,0,0
height=120 width=760 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000><PARAM NAME="movie" VALUE="images/zzbtop.swf"><PARAM NAME="quality" VALUE="high">
<embed src="images/zzbtop.swf" width="760"
height="120" quality="high"
pluginspage="http://www.macromedia.com/go/getflashplayer"
type="application/x-shockwave-flash"></embed> </OBJECT>
</TABLE></TD>
<TD class=r></TD></TR></TABLE>
<TABLE id=navbar cellSpacing=0 cellPadding=0 align=center>
<TR>
<TD class=l></TD>
<TD class=m>
<SCRIPT language=javascript1.2 src="images/popmenu.js"
type=text/javascript></SCRIPT>
<SPAN id=dlSortNav><SPAN>
<A href="index.asp">首页</A>
</SPAN><SPAN><IMG alt="" src="images/navbar_separator.gif"
align=absMiddle> </SPAN>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from net_big_class order by id asc"
rs.open sql,conn,1,1
if rs.eof then
rs.close
response.write"<SPAN>"
response.write"暂时没有分类"
response.write"</SPAN>"
response.write"<SPAN>"
response.write"<IMG src=images/navbar_separator.gif align=absMiddle>"
response.write"</SPAN>"
else
do while not rs.eof
response.write"<SPAN>"
response.write" <A onmouseover=showmenu(event,"&rs("id")&",1,false) onmouseout=delayhidemenu() href="&rs("urlfile")&"?big="&rs("id")&">"
response.write""&rs("title")&"</A> "
response.write"</SPAN><SPAN>"
response.write"<IMG src=images/navbar_separator.gif align=absMiddle>"
response.write"</SPAN>"
rs.movenext
if rs.eof then exit do
loop
rs.close
end if
%>
<SPAN><A href="#"
target=_blank>华北水利水电学院</A> </SPAN></SPAN></TD>
<TD class=r></TD></TR></TABLE>
<TABLE id=navsub cellSpacing=0 cellPadding=0>
<TR>
<TD class=l></TD>
<TD class=m> <A
href="index.asp">华北水利水电学院</A>
→<%
set rsbig=server.CreateObject("adodb.recordset")
bigsql="select * from net_big_class where id="&bigclass&""
rsbig.open bigsql,conn,1,1
%>
<A href="<%=rsbig("urlfile")%>?big=<%=rsbig("id")%>"><%=rsbig("title")%></A><%rsbig.close%>
<%if smlclass<>"" then%> →
<%
set rssml=server.CreateObject("adodb.recordset")
smlsql="select * from net_big_class where id="&smlclass&""
rssml.open smlsql,conn,1,1
%>
<A href="<%=rssml("urlfile")%>?sml=<%=rssml("id")%>"><%=rssml("title")%></A>
<%
infotype=rssml("type")
rssml.close
end if
%> </TD>
<TD class=r></TD></TR></TABLE>
<TABLE id=middle cellSpacing=0 cellPadding=0 align=center border=0>
<TR vAlign=top align=left>
<TD width=200>
<DIV class=lframe>
<TABLE cellSpacing=0 cellPadding=0 width="95%">
<TR>
<TD class=tl></TD>
<TD class=tm><IMG src="images/c_member.gif" alt=新闻分类 width="196" height="28" border=0>
</TD>
<TD class=tr></TD></TR></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="95%">
<TR>
<TD class=ml></TD>
<TD class=mm>
<script src="menus.asp"></script></TD>
<TD class=mr></TD></TR></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="95%">
<TR>
<TD class=bl></TD>
<TD class=bm> </TD>
<TD class=br></TD></TR></TABLE></DIV></TD>
<TD>
<DIV class=mframe>
<TABLE cellSpacing=0 cellPadding=0 width="100%">
<TR>
<TD class=tl></TD>
<TD class=tm> </TD>
</TR></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%">
<TR>
<TD class=ml></TD>
<TD class=mm>
<table style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all"
cellSpacing=0 cellPadding=0 width="100%" border=0>
<tr>
<td><TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0>
<TR>
<TD height="108" colSpan=2 vAlign=top>
<div align="center">
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td height="30" bgcolor="#DBDBDB">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
Const MaxPerPage=6
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from net_info where bigclass="&request("big")&" and smlclass="&request("sml")&" order by id desc"
rs.open sql,conn,1,1
if rs.eof And rs.bof then
response.Write("<tr>")
response.Write("<td>")
response.Write("<div align=center>暂时没有内容！</div>")
response.Write("</td>")
response.Write("</tr>")
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"smllist.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"smllist.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"smllist.asp"
end if
end if
end if
sub showContent
dim i
i=0%>
<%do while not rs.eof%>
<tr>
<td height="30" bgcolor="#FFFFFF" class=summary-title><IMG alt=fixed
src="images/top.gif" align=middle>
<a href=edit_info.asp?id=<%=rs("id")%>><%=rs("title")%></a> </td>
</tr>
<tr>
<td height="25" bgcolor="#FFFFFF" class="tdbg" style="padding:5px 10px"><%=left(Html2Text(rs("content")),250)%>... </td>
</tr>
<tr align="right">
<td height="25" bgcolor="#FFFFFF"><DIV style="WIDTH: 100%; TEXT-ALIGN: right"><SPAN
class=gray><%=rs("datetime")%></SPAN> <A
href="show.asp?id=<%=rs("id")%>" target="_blank">[查看全文]</A> </DIV> </td>
</tr>
<%
i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close
set rs=nothing%>
</table></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><hr align="center" width="100%" size="1" noshade></td>
</tr>
<tr>
<td><div align="center">
<%
End Sub
Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If
Response.Write "<form method=Post action="&filename&"?big="&bigclass&"&sml="&smlclass&">"
Response.Write "<p align='center' class='contents'> "
If CurrentPage<2 Then
Response.Write "<font class='contents'>首页 上一页</font> "
Else
Response.Write "<a href="&filename&"?page=1&sml="&smlclass&"&big="&bigclass&" class='contents'>首页</a> "
Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&sml="&smlclass&"&big="&bigclass&" class='contents'>上一页</a> "
End If
If n-currentpage<1 Then
Response.Write "<font class='contents'>下一页 尾页</font>"
Else
Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&sml="&smlclass&"&big="&bigclass&" class='contents'>"
Response.Write "下一页</a> <a href="&filename&"?page="&n&"&sml="&smlclass&"&big="&bigclass&" class='contents'>尾页</a>"
End If
Response.Write "<font class='contents'> 页次：</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> "
Response.Write "<font class='contents'> 共有"&totalnumber&"个问题 "
Response.Write "<font class='contents'>转到：</font><input type='text' name='page' size=2 maxlength=10 class=input_main value="¤tpage&">"
Response.Write " <input type='submit' class='sub' value='GO' name='cndok' ></form>"
End Function
%>
</div></td>
</tr>
</table>
</div></TD>
</TR>
<TR>
<TD height="45" colSpan=2 vAlign=bottom><table width="80%" border="0" align="center" cellpadding="0" cellspacing="0" style="WORD-BREAK: keep-all">
<form style="DISPLAY: inline" action=search.asp method=post name="post">
<tr>
<td width="40%">信息标题搜索（关键字）：
<input name="big" type="hidden" id="big" value="<%=bigclass%>">
<input name="sml" type="hidden" id="sml" value="<%=smlclass%>"></td>
<td width="40%">
<INPUT class=inputbg name=keyword></td>
<td width="20%">
<SCRIPT language=javascript type=text/javascript>function proLoadimg(){var i=new Image;i.src='images/search_over.gif';}proLoadimg();</SCRIPT>
<INPUT onmouseover="this.src='images/search_over.gif'"
onmouseout="this.src='images/search.gif'" type=image alt=搜索
src="images/search.gif"
align=top onClick="return subclick();"></td>
</tr>
</form>
</table></TD>
</TR>
</TABLE></td>
</tr>
</table>
</TD>
<TD class=mr></TD></TR></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%">
<TR>
<TD class=bl></TD>
<TD class=bm> </TD>
<TD class=br></TD></TR></TABLE></DIV></TD></TR></TABLE>
<TABLE id=footer cellSpacing=0 cellPadding=0 border=0>
<TR style="LINE-HEIGHT: 130%" align=middle>
<TD height=60>
<A style="BEHAVIOR: url(#default#homepage)"
onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www');return(false);"
href="#">设为首页</A>
<A href="javascript:window.external.AddFavorite('http://www','华北水利水电学院机关党委')">加入收藏</A>-
<A href="#">网站地图</A> - <A
href="mailto:">联系方式<A><BR>
自2004年12月23日
<SCRIPT src="images/count.htm"></SCRIPT>
版权所有 华北水利水电党委组织部 Designed by
<A href="#">The Small Train</A>
<DIV class=menuskin id=popmenu
onmouseover="clearhidemenu();highlightmenu(event,'on')"
style="Z-INDEX: 100"
onmouseout="highlightmenu(event,'off');dynamichide(event)"></DIV>
<SCRIPT language=javascript1.2 type=text/javascript>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from net_big_class order by id asc"
rs.open sql,conn,1,1
do while not rs.eof
response.write"linkset["&rs("id")&"]=new Array();"
set rst=server.CreateObject("adodb.recordset")
sqlt="select * from net_sml_class where tobig="&rs("id")&" order by id asc"
rst.open sqlt,conn,1,1
if rst.eof then
response.write"linkset["&rs("id")&"][0]=""<div class=menuitems><a href="&rs("urlfile")&"?big="&rs("id")&">"&rs("title")&"</a></div>"";"
rst.close
else
m=0
do while not rst.eof
response.write"linkset["&rs("id")&"]["&m&"]=""<div class=menuitems><a href="&rst("urlfile")&"?big="&rs("id")&"&sml="&rst("id")&">"&rst("title")&"</a></div>"";"
rst.movenext
m=m+1
loop
rst.close
end if
rs.movenext
if rs.eof then exit do
loop
rs.close
%>
jsdone=true;
</SCRIPT>
</CENTER></TD></TR></TABLE></DIV></BODY></HTML>
<SCRIPT LANGUAGE="JavaScript">
<!--
function subclick()
{
if (post.keyword.value =="")
{
alert("关键字不能为空！");
post.keyword.focus();
return (false);
}
}
//-->
</SCRIPT>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -