newsshow.asp
来自「1．理解Winsock编程模型； 2．掌握Winsock编程的基本方法」· ASP 代码 · 共 1,134 行 · 第 1/4 页
ASP
1,134 行
</table>
</div>
<%
if ee(7)<>"" then
%>
<a href="<%=ee(7)%>"><%=aa(7)%></a>
<% elseif ff(7)="1" then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from news where lm='"&bb(7)&"'"
rs.open sql,conn,3,2
if not rs.eof then
%>
<% if rs("tupian")=true then %>
<a href="tshownews.asp?id=<%=rs("newsid")%>" target="_blank"><%=aa(7)%></a>
<%else%>
<a href="shownews.asp?id=<%=rs("newsid")%>" target="_blank"><%=aa(7)%></a>
<%
end if
else%>
<%=aa(7)%>
<%
end if
rs.close
set rs=nothing
else %>
<%=aa(7)%>
<%
end if
%>
</td>
<%
else
%>
<td width="70"> </td>
<%
end if %>
<% if aa(8)<>"" then %>
<td width="70" onMouseOver="MM_showHideLayers('Layer1','','hide','Layer2','','hide','Layer3','','hide','Layer4','','hide','Layer5','','hide','Layer6','','hide','Layer7','','hide','Layer8','','hide','Layer9','','show')" onMouseOut="MM_showHideLayers('Layer1','','hide','Layer2','','hide','Layer3','','hide','Layer4','','hide','Layer5','','hide','Layer6','','hide','Layer7','','hide','Layer8','','hide','Layer9','','hide')">
|
<div id="Layer9" style="position:absolute; width:68px; height:115px; z-index:9; left: 795px; top: 106px; visibility: hidden;">
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#eeedf3">
<%
Set rs1=Server.CreateObject("ADODB.Recordset")
sql1="select * from lm where lmid='"&bb(8)&"'"
rs1.open sql1,conn,3,2
do while not rs1.eof
%>
<tr>
<td>
<% if rs1("url")<>"" then %>
<a href="<%=rs1("url")%>" target="_blank"> <%=rs1("lm2")%></a>
<% else %>
<a href="show.asp?action=<%=rs1("lm2")%>&action1=<%=aa(8)%>&id=<%=rs1("id")%>" target="_blank"> <%=rs1("lm2")%></a>
<% end if %>
</td>
</tr>
<%
rs1.movenext
loop
rs1.close
set rs1=nothing
%>
</table>
</div>
<%
if ee(8)<>"" then
%>
<a href="<%=ee(8)%>"><%=aa(8)%></a>
<% elseif ff(8)="1" then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from news where lm='"&bb(8)&"'"
rs.open sql,conn,3,2
if not rs.eof then
%>
<% if rs("tupian")=true then %>
<a href="tshownews.asp?id=<%=rs("newsid")%>" target="_blank"><%=aa(8)%></a>
<%else%>
<a href="shownews.asp?id=<%=rs("newsid")%>" target="_blank"><%=aa(8)%></a>
<%
end if
else%>
<%=aa(8)%>
<%
end if
rs.close
set rs=nothing
else %>
<%=aa(8)%>
<%
end if
%>
</td>
<%
else
%>
<td width="70"> </td>
<%
end if %>
</tr>
</table></td>
</tr>
</table>
<table width="777" height="20" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="289" bgcolor="#FFFFFF"> </td>
<td width="488" bgcolor="#FFFFFF"><div align="right"><font color="#0066FF">您好今天是</font>
<script language="JavaScript">
today=new Date();
year=today.getYear();
month=today.getMonth()+1;
day=today.getDate();
if (year < 2000) year += 1900;
document.write("<font color='ff0000'>");
document.write(year+"年"+month+"月"+day+"日");
document.write("</font>");
</script>
<font color="#0066FF">星期</font>
<script language="JavaScript">
today=new Date();
dayofweek=today.getDay();
Day=new Array(7);
Day[0]="日"; Day[1]="一";
Day[2]="二"; Day[3]="三";
Day[4]="四"; Day[5]="五";
Day[6]="六";
document.write("<font color='ff0000'>");
document.write(Day[dayofweek]);
document.write("</font>");
</script> </div></td>
</tr>
</table>
<table width="777" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/111.gif" width="777" height="100"></td>
</tr>
</table>
<table width="777" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="170" rowspan="2" valign="top" bgcolor="#eeeeee"> <table width="170" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td height="23" background="images/a03.gif"> <table width="80" height="23" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center">学院简介</div></td>
</tr>
</table></td>
</tr>
<tr>
<%
set rs=server.createobject("adodb.recordset")
sql = "select * from lm where lm='学院简介'"
rs.open sql,conn,3,2
IF NOT rs.eof then
id=rs("id")
end if
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql = "select * from news where lm='"&id&"'"
rs.open sql,conn,3,2
%>
<td height="143" valign="top" background="images/a91.gif" bgcolor="#FFFFFF">
<table width="50%" border="0">
<tr>
<td> </td>
</tr>
</table>
<table width="95%" border="0" align="center">
<tr>
<td> <MARQUEE direction=up height=100 onmouseout=this.scrollDelay=10 onmouseover=this.scrollDelay=500 scrollAmount=1 scrollDelay=10 border="0" width="100%">
<% if not rs.eof then %>
<a href="shownews.asp?id=<%=rs("newsid")%>" target="_blank"><%=rs("content")%></a>
<% else %>
暂无信息
<% end if %>
</MARQUEE> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="30" bgcolor="#FFFFFF"> <div align="left"><img src="images/007.gif" width="165" height="1">
</div></td>
</tr>
</table>
<div align="left">
<table width="170" height="287" border="0" cellpadding="0" cellspacing="0" bordercolor="#eeeeee">
<tr>
<td height="38" valign="top"><img src="images/a8.gif" width="170" height="38"></td>
</tr>
<tr>
<td width="170" height="245" valign="top" background="images/a9.gif" bgcolor="#eeeeee">
<MARQUEE direction=up height=200 onmouseout=this.scrollDelay=10 onmouseover=this.scrollDelay=500 scrollAmount=1 scrollDelay=10 border="0" width="100%">
<% set rs = server.createobject("adodb.recordset")
sql = "select top 5 * from News where newsclass='院内公告' order by pubdate desc"
rs.open sql,conn,3,2
if rs.eof then
response.Write" 暂时没有信息"
else
do while not rs.eof
if rs("tupian")=true then %>
<table width="170" border="0">
<tr>
<td width="170"> <img src="images/011.gif" width="16" height="16"><a href="tshownews.asp?id=<%=rs("newsid")%>" title=<%=rs("title")%> target="_blank"> <% weiguang1(rs("title")) %></a><br>
<img src="images/007.gif" width="165" height="1"></td>
</tr>
</table>
<%else%>
<table width="170" border="0">
<tr>
<td width="170"> <img src="images/011.gif" width="16" height="16"><a href="shownews.asp?id=<%=rs("newsid")%>" title=<%=rs("title")%> target="_blank"> <% weiguang1(rs("title")) %></a><br>
<img src="images/007.gif" width="165" height="1"></td>
</tr>
</table>
<%
end if
rs.movenext
loop
rs.close
end if
%>
</marquee> </td>
</tr>
</table>
</div></td>
<td width="607" valign="top">
<% action=request("action")
id=request("id")
if id="2" then %>
</td>
</tr>
<tr>
<td valign="top"><table width="605" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>首页>><%=request("action")%> <table width="605" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="left">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="3%" height="29"> </td>
<td width="94%" background="images/15.gif">
<table width="473" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="90"><div align="center"><strong><font size="2">院内新闻</font></strong></div></td>
<td width="383"><div align="right"><a href="newsshow.asp?action=学院动态&id=1&type1=1" target="_blank"><img src="images/11.gif" width="41" height="16" border="0"></a></div></td>
</tr>
</table></td>
<td height="29"> </td>
</tr>
<tr>
<td colspan="3"> </td>
</tr>
<tr>
<td colspan="3" valign="top"><TABLE width="94%" height="95"
border=0 align=center cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD valign="top"><table width="100%" border="0">
<tr>
<td colspan="3"><img src="images/04.gif" width="360" height="1"></td>
</tr>
<%
sql= "select top 6 * from News where online=true and newsclass='学院动态' and class='院内'"
set rs=Server.CreateObject("ADODB.RecordSet")
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?