show.asp
来自「1．理解Winsock编程模型； 2．掌握Winsock编程的基本方法」· ASP 代码 · 共 927 行 · 第 1/3 页
ASP
927 行
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 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width="100%">
<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>
</TBODY>
</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" bordercolor="ECF4FF" valign="top"> <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
id=rs("id")
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>
<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> </td>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>首页>><%=request("action1")%>>><%=request("action")%> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="left">标题</div></td>
<td><div align="right"></div>
<div align="right"></div></td>
<td><div align="right">加入日期</div></td>
<td> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
nihao=request("nihao")
if nihao="a" then
sql= "select top 9 * from News where online=true and lm='"&request("id")&"' order by Pubdate desc"
else
sql= "select top 9 * from News where online=true and lm2='"&request("id")&"' order by Pubdate desc"
end if
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,3,3
sql1= "select * from lm where id="&request("id")
set rs1=Server.CreateObject("ADODB.RecordSet")
rs1.open sql1,conn,3,3
do while not rs.eof
%>
<tr>
<td colspan="3"><img src="04.gif" width="360" height="1"></td>
</tr>
<tr>
<% if rs("tupian")=true then %>
<td width="216"> <div align="center">
<div align="left"></div>
<%if nihao="a" then%>
<div align="left"> <img src="images/a4.gif" width="12" height="12"><a href="tshownews.asp?id=<%=rs("newsid")%>&action=<%=rs1("lm")%>&action1=<%=request("action1")%>" target="_blank"><%=rs("title")%>。。。</a></div>
<%else%>
<div align="left"> <img src="images/a4.gif" width="12" height="12"><a href="tshownews.asp?id=<%=rs("newsid")%>&action=<%=request("action")%>&action1=<%=request("action1")%>" target="_blank"><%=rs("title")%>。。。</a></div>
<%end if%>
</div></td>
<td colspan="2"><div align="center"></div>
<div align="center"><%=rs("pubdate")%></div></td>
</tr>
<tr>
<td><img src="images/008.gif" width="500" height="1"></td>
</tr>
<% else %>
<td width="216"> <div align="center">
<%if nihao="a" then%>
<div align="left"> <img src="images/a4.gif" width="12" height="12"><a href="tshownews.asp?id=<%=rs("newsid")%>&action=<%=rs1("lm")%>&action1=<%request("action1")%>" target="_blank"><%=rs("title")%>。。。</a></div>
<%else%>
<div align="left"> <img src="images/a4.gif" width="12" height="12"><a href="tshownews.asp?id=<%=rs("newsid")%>&action=<%=request("action")%>&action1=<%=request("action1")%>" target="_blank"><%=rs("title")%>。。。</a></div>
<%end if%>
</div></td>
<td colspan="2"><div align="center"></div>
<div align="center"><%=rs("pubdate")%></div></td>
</tr>
<tr>
<td><img src="images/008.gif" width="500" height="1"></td>
</tr>
<% end if %>
<%
rs.movenext
loop
rs.close
%>
</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="44%" 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="27%" 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 + -
显示快捷键?