tshownews.asp
来自「1．理解Winsock编程模型； 2．掌握Winsock编程的基本方法」· ASP 代码 · 共 947 行 · 第 1/3 页
ASP
947 行
<% 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 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width="100%"></TD>
</TR>
</TBODY>
</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" 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"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<% sql= "select top 9 * from News where online=true and newsid="&request("id")
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,3,3 %>
<tr>
<td width="20%"><div align="center"></div></td>
<td width="21%"> </td>
<td width="29%"><div align="center">加入日期:</div></td>
<td width="30%"><%=rs("pubdate")%></td>
</tr>
</table>
<table width="100%" border="0">
<tr>
<td><TABLE width="605" border=0>
<TBODY>
<TR align=middle>
<TD colSpan=2> <DIV class=title>
<div align="center"><span class="title style2"><font color="<%=rs("titlecolor")%>"><%=rs("title")%></font></span></div>
</DIV></TD>
</TR>
<TR align=middle>
<TD> <DIV class=bt_time></DIV></TD>
</TR>
<TR align=middle>
<TD colSpan=2><BR></TD>
</TR>
<TR vAlign=top>
<TD colSpan=2><span class="bt_content"><%=rs("content")%></span></TD>
</TR>
<% rs.close%>
<TR vAlign=top>
<TD colSpan=2> <DIV class=bt_content>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
sql1="select * from sptp where spid="&request("id")
set rs1=Server.CreateObject("ADODB.RecordSet")
rs1.open sql1,conn,3,3
do while not rs1.eof
%>
<tr>
<td valign="top"><div align="left"><img src="<%=rs1("FilePath")%>" width="301" height="313">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="left"> <%=rs1("content")%></div></td>
</tr>
</table>
</div></td>
<td> </td>
<% rs1.movenext
if not rs1.eof then
%>
<td valign="top"><div align="left"><img src="<%=rs1("FilePath")%>" width="301" height="313">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="left"> <%=rs1("content")%></div></td>
</tr>
</table>
</div></td>
<%
rs1.movenext
end if %>
</tr>
<tr>
<td height="50"></td>
</tr>
<%
loop
end if
rs1.close %>
</table>
<p></P>
<P> </P>
<P></P>
<BR>
</DIV>
<BR></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table> </td>
</tr>
</table>
<table width="777" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="170" height="45" bordercolor="#eeeeee" bgcolor="#eeeeee"> </td>
<td height="34" background="images/12.gif"><table width="100%" border="1" cellpadding="1" cellspacing="0" bordercolor="#000000">
<tr>
<td><table width="100%" height="43" border="0" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
<FORM onsubmit="return verify_input(this);" name=f action=http://www.baidu.com/s target="_blank">
<tr>
<td width="29%"> </td>
<td width="60%" valign="bottom"> <INPUT type=hidden value=3 name=cl>
<INPUT class=ff maxLength=100
size=20 name=wd value="请输入关键字"> <input name=imageField type=image
src="images/13.gif" width="28" height=14 border=0></td>
<td width="11%" valign="center"> </td>
</tr>
</FORM>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="777" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/6.gif" width="777" height="84"></td>
</tr>
</table>
<table width="777" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#f2f2f2"><div align="center"><FONT
color=#666666 size="2">石家庄经济学院信息工程学院<br>
Copyright@2007<br>
建议使用IE4.0以上，1024*768分辨率进行浏览。</font> </div></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?