📄 shownews.asp
字号:
<!--#include file="database/conn.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>勤工助学管理</title>
</head>
<body> <table width="100%" border="0" cellspacing="0" cellpadding="0" onclick="m1.strat();">
<tr>
<td align="center" valign="top"><table width="850" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="30" valign="top" background="img/cont_left_bg01.gif"><img src="img/cont_left_img01.gif" width="30" height="431"></td>
<td style="padding-top:9px; " width="787" valign="top"><table width="787" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="207" align="left" valign="top" class="top_m_txt01"><table width="200" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"> </td>
</tr>
<tr>
<td><table width="200" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="63" valign="bottom"> </td>
</tr>
<tr>
<td style="padding-top:10px; " height="182" align="center" valign="top" background="img/left_bg02.gif"><table width="94%" border="0" cellpadding="0" cellspacing="0">
<%
t=0
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * from news order by id desc"
rs.Open sql,conn,1,3
if not Rs.eof then
do while not rs.eof
t=t+1
%>
<tr>
<td width="17%" height="22" align="center" class="top_m_txt01"> </td>
<td width="82%"> </td>
</tr>
<%
if t>=10 then exit do
rs.movenext
loop
else
response.write "<tr><td align=center colspan=2 bgcolor=#E8E8F4>尚无收录</td></tr>"
end if
rs.close
%>
</table></td>
</tr>
<tr>
<td><img src="img/left_img02.gif" width="200" height="8"></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top"><table width="188" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="70" align="left" valign="bottom">
<MARQUEE direction=up
align="left" id="this" width=230 scrollAmount=2 scrollDelay=4 class="top_m_txt01" onmouseover="this.stop()" onmouseout="this.start()"> <% dim leixin
leixin="1"
set rso=server.CreateObject("ADODB.Recordset")
sql="select * from news where titletype="&leixin
rso.Open sql,conn,1,1
do while not rso.eof%>
<a href="Shownews.asp?id=<%=rso("id")%>" target="_blank"><%=left(rso("title"),18)%></a><br />
<%
rso.movenext
loop
rso.close
%>
</MARQUEE></td>
</tr>
</table></td>
</tr>
</table></td>
<td valign="top"><table width="580" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="img/cont_img01.gif" width="580" height="17"></td>
</tr>
<tr>
<td valign="top"><table width="580" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="9" background="img/cont_tbl01_bg01.gif"></td>
<td align="center" valign="top"><table width="540" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="45" align="left" valign="top"><img src="img/xwzx.gif" width="298" height="36"></td>
</tr>
<tr>
<td valign="top"><table width="540" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="3"><img src="img/gsjs_img01.gif" width="540" height="19"></td>
</tr>
<tr>
<td width="22" valign="top" background="img/gsjs_left_bg01.gif"><img src="img/gsjs_img03.gif" width="22" height="149"></td>
<td width="498" rowspan="2" align="center" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="top_m_txt01">
<tr>
<td><%owen=request("id")%>
<script language=JavaScript>
var currentpos,timer;
function initialize()
{
timer=setInterval("scrollwindow()",50);
}
function sc(){
clearInterval(timer);
}
function scrollwindow()
{
currentpos=document.body.scrollTop;
window.scroll(0,++currentpos);
if (currentpos != document.body.scrollTop)
sc();
}
document.onmousedown=sc
document.ondblclick=initialize
</script>
<%
Set rsnews=Server.CreateObject("ADODB.RecordSet")
sql="select * from news where id="&owen
rsnews.Open sql,conn,1,1
title=rsnews("title")
if rsnews.eof and rsnews.bof then
response.Write("数据库出错")
else
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" colspan="2" align="center" class="tit" style="font-weight: bold; font-size: 12px"><%= rsnews("title") %></td>
</tr>
<tr>
<td width="25%" height="30" class="top_m_txt01" style="border-top: 1 solid #666666;border-bottom: 1 solid #666666">双击自动滚屏</td>
<td width="75%" align="center" class="top_m_txt01" style="border-top: 1 solid #666666;border-bottom: 1 solid #666666">发布者：
<%= rsnews("zuozhe") %> 发布时间：<%= rsnews("riqi") %> </td>
</tr>
<tr>
<td colspan="2"><br>
<div class="top_m_txt01" style='font-size:10.5pt'><%=rsnews("content") %></div></td>
</tr>
<%
end if
rsnews.close
set rsnews=nothing
%>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="20" background="img/gsjs_right_bg01.gif"></td>
</tr>
<tr>
<td background="img/gsjs_bg01.gif"></td>
<td valign="bottom" background="img/gsjs_right_bg01.gif"><img src="img/gsjs_img04.gif" width="20" height="148"></td>
</tr>
<tr>
<td colspan="3"><img src="img/gsjs_img02.gif" width="540" height="18"></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="9" background="img/cont_tbl01_bg01.gif"></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="img/cont_img02.gif" width="580" height="17"></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="33" valign="top" background="img/cont_right_bg01.gif"><img src="img/cont_right_img01.gif" width="33" height="431"></td>
</tr>
<tr>
<td valign="top"><img src="img/cont_di_img01.gif" width="30" height="29"></td>
<td align="center" valign="middle" background="img/cont_di_bg01.gif" style="padding-top:9px; "><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="39%"><table width="304" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="57"><img src="img/yqlj_img01.gif" width="57" height="15"></td>
<td width="247">
</td>
</tr>
</table></td>
<td width="61%" align="right" class="top_m_txt01"><script language="JavaScript" type="text/javascript" src="inc/site.asp?online=1&show=all"></script></td>
</tr>
</table></td>
<td valign="top"><img src="img/cont_di_img02.gif" width="33" height="29"></td>
</tr>
</table></td>
</tr>
</table>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -