📄 show.asp
字号:
<!--#include file="conn.asp"-->
<%
if request("id")="" then
response.Write("<script>")
response.Write("alert('操作错误！');")
response.Write("window.history.back(-1);")
response.Write("</script>")
response.End()
else
id=request("id")
infotype=1
set rsshow=server.CreateObject("adodb.recordset")
showsql="select * from net_info where id="&id&""
rsshow.open showsql,conn,3,2
rsshow("times")=rsshow("times")+1
rsshow.update
%>
<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/scroll.js"
type=text/javascript></SCRIPT>
<SCRIPT language=javaScript src="images/imgResize.js"
type=text/javascript></SCRIPT>
</HEAD>
<BODY><SPAN id=printScript>
<SCRIPT language=javascript type=text/javascript>
<!--
function ContentSize(size)
{
var obj=document.all.BodyLabel;
obj.style.fontSize=size+"px";
}
-->
</SCRIPT>
</SPAN>
<SCRIPT language=javascript src="images/print.js"
type=text/javascript></SCRIPT>
<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="&rsshow("bigclass")&""
rsbig.open bigsql,conn,1,1
%>
<A href="<%=rsbig("urlfile")%>"><%=rsbig("title")%></A><%rsbig.close%>
<%if rsshow("smlclass")<>"" then%> →
<%
set rssml=server.CreateObject("adodb.recordset")
smlsql="select * from net_big_class where id="&rsshow("smlclass")&""
rssml.open smlsql,conn,1,1
%>
<A href="<%=rssml("urlfile")%>"><%=rssml("title")%></A>
<%
infotype=rssml("type")
rssml.close
end if
%> </TD>
<TD class=r></TD></TR></TABLE>
<DIV class=mframe>
<TABLE cellSpacing=0 cellPadding=0 width="100%">
<TR>
<TD class=tl></TD>
<TD class=tm><SPAN class=tt>阅读新闻</SPAN> </TD>
<TD class=tr></TD></TR></TABLE>
<DIV id=printBody>
<TABLE id=middle
style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all; TEXT-ALIGN: left"
cellSpacing=0 cellPadding=0 align=center>
<TR>
<TD class=ml></TD>
<TD class=mm vAlign=top><BR>
<DIV align=center>
<H1 class=aTitle><%=rsshow("title")%></H1></DIV>
<TABLE width="97%" align=center>
<TR>
<TD width=120>[日期：<SPAN id=TimeLabel><%=rsshow("datetime")%></SPAN>]</TD>
<TD align=middle>来源：<SPAN id=SourceLabel><%=rsshow("address")%></SPAN>
</TD>
<TD align=right width=100>[字体：<A
href="javascript:ContentSize(16)">大</A> <A
href="javascript:ContentSize(14)">中</A> <A
href="javascript:ContentSize(12)">小</A>] </TD></TR></TABLE>
<%if rsshow("cover")<>"" then%><div align="center"><img src="<%=rsshow("cover")%>"></div><%end if%>
<DIV class=content id=BodyLabel
style="PADDING-RIGHT: 10px; DISPLAY: block; PADDING-LEFT: 10px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px">
<%=rsshow("content")%></DIV><BR><BR>
<%if infotype=1 then%>
<TABLE cellSpacing=0 cellPadding=0 width="97%">
<TR>
<TD align=right>
<TABLE>
<TR>
<TD>阅读：<SPAN id=HitsLabel><%=rsshow("times")%></SPAN> 次</TD>
</TR></TABLE></TD></TR>
<TR>
<TD align=right>【 <A href="javascript:doPrint()">打印</A> 】
</TD></TR></TABLE>
<%
else
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
set rsfile=server.CreateObject("adodb.recordset")
filesql="select * from net_file where toinfo="&rsshow("id")&""
rsfile.open filesql,conn,1,1
if rsfile.eof then
response.Write("<tr>")
response.Write("<td>")
response.Write("暂时没有下载文件")
response.Write("</td>")
response.Write("</tr>")
else
p=0
do while not rsfile.eof
if i mod 4 = 0 then
response.Write("<tr>")
end if
response.Write("<td>文件名称："&rsfile("title")&"</td>")
response.Write("<td>文件类型："&rsfile("filetype")&"</td>")
response.Write("<td>下载文件：<a href="&rsfile("path")&">下 载</a></td>")
if i mod 4 = 3 then
response.Write("</tr>")
end if
rsfile.movenext
p=p+1
loop
rsfile.close
end if
%>
</table>
<%end if%>
<TD class=mr></TD></TR></TABLE></DIV></DIV>
<TABLE id=footer cellSpacing=0 cellPadding=0 border=0>
<TR style="LINE-HEIGHT: 130%" align=middle>
<TD height=60>
<CENTER>
<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>
<%
rsshow.close
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -