newsshow.asp
来自「1．理解Winsock编程模型； 2．掌握Winsock编程的基本方法」· ASP 代码 · 共 1,134 行 · 第 1/4 页
ASP
1,134 行
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<title>无标题文档</title>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_showHideLayers() { //v6.0
var i,p,v,obj,args=MM_showHideLayers.arguments;
for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
obj.visibility=v; }
}
//-->
</script>
</head>
<%
function weiguang(ab)
if left(ab,17)=left(ab,18) then
response.write(""&ab&"...")
else
response.Write(""&left(ab,17)&"...")
end if
end function
function weiguang1(ab)
if left(ab,8)=left(ab,9) then
response.write(""&ab&"...")
else
response.Write(""&left(ab,8)&"...")
end if
end function
%>
<body topmargin="0">
<table width="777" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="91" background="images/banner.gif" valign="bottom">
<table width="100" border="0" align="right" cellpadding="3" cellspacing="0">
<tr>
<td><SPAN style="CURSOR: hand" onclick="var strHref=window.location.href;this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.sjzue.edu.cn/xingong/index.htm');">设为主页</SPAN></td>
</tr>
<tr>
<td><a href="javascript:window.external.AddFavorite('http://www.sjzue.edu.cn/xingong/index.htm',%20'石家庄经济学院信息工程学院')">加入收藏</A></td>
</tr>
<tr>
<td>给我留言</td>
</tr>
</table></td>
</tr>
</table>
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from lm"
rs.open sql,conn,3,2
%>
<table width="777" border="0" align="center" cellpadding="0" cellspacing="0" background="images/1.gif">
<tr>
<td width="116"> 网站导航 >>> <a href="index.asp"> 首页</a></td>
<td><table width="630" border="0" cellspacing="0" cellpadding="0">
<tr>
<%
if request("action")="sushe" then
session("uname")="gly"
end if
dim aa(10),bb(10),cc(10),dd(10),ee(10),ff(10)
i=0
do while not rs.eof
if rs("lm")<>"" then
aa(i)=rs("lm")
bb(i)=rs("id")
ee(i)=rs("url1")
ff(i)=rs("moban")
i=i+1
end if
rs.movenext
loop
rs.movefirst
i=0
do while not rs.eof
if rs("lm2")<>"" then
cc(i)=rs("lm2")
dd(i)=rs("id")
i=i+1
end if
rs.movenext
loop
rs.movefirst
%>
<% if aa(0)<>"" then %>
<td width="70" onMouseOver="MM_showHideLayers('Layer1','','show','Layer2','','hide','Layer3','','hide','Layer4','','hide','Layer5','','hide','Layer6','','hide','Layer7','','hide','Layer8','','hide','Layer9','','hide')" onMouseOut="MM_showHideLayers('Layer1','','hide','Layer2','','hide','Layer3','','hide','Layer4','','hide','Layer5','','hide','Layer6','','hide','Layer7','','hide','Layer8','','hide','Layer9','','hide')">
|
<div id="Layer1" style="position:absolute; width:71px; height:115px; z-index:1; left: 231px; 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(0)&"'"
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(0)%>&id=<%=rs1("id")%>" target="_blank"> <%=rs1("lm2")%></a>
<% end if %>
</td>
</tr>
<%
rs1.movenext
loop
rs1.close
set rs1=nothing
%>
</table>
</div>
<%
if ee(0)<>"" then
%>
<a href="<%=ee(0)%>" target="_blank"><%=aa(0)%></a>
<% elseif ff(0)="1" then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from news where lm='"&bb(0)&"'"
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(0)%></a>
<%else%>
<a href="shownews.asp?id=<%=rs("newsid")%>" target="_blank"><%=aa(0)%></a>
<%
end if
else%>
<%=aa(0)%>
<%
end if
rs.close
set rs=nothing
else %>
<%=aa(0)%>
<%
end if
%>
</td>
<%
else
%>
<td width="70"> </td>
<%
end if %>
<% if aa(1)<>"" then %>
<td width="70" onMouseOver="MM_showHideLayers('Layer1','','hide','Layer2','','show','Layer3','','hide','Layer4','','hide','Layer5','','hide','Layer6','','hide','Layer7','','hide','Layer8','','hide','Layer9','','hide')" onMouseOut="MM_showHideLayers('Layer1','','hide','Layer2','','hide','Layer3','','hide','Layer4','','hide','Layer5','','hide','Layer6','','hide','Layer7','','hide','Layer8','','hide','Layer9','','hide')">
|
<div id="Layer2" style="position:absolute; width:71px; height:115px; z-index:2; left: 302px; 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(1)&"'"
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(1)%>&id=<%=rs1("id")%>" target="_blank"> <%=rs1("lm2")%></a>
<% end if %>
</td>
</tr>
<%
rs1.movenext
loop
rs1.close
set rs1=nothing
%>
</table>
</div>
<%
if ee(1)<>"" then
%>
<a href="<%=ee(1)%>"><%=aa(1)%></a>
<% elseif ff(1)="1" then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from news where lm='"&bb(1)&"'"
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(1)%></a>
<%else%>
<a href="shownews.asp?id=<%=rs("newsid")%>" target="_blank"><%=aa(1)%></a>
<%
end if
else%>
<%=aa(1)%>
<%
end if
rs.close
set rs=nothing
else %>
<%=aa(1)%>
<%
end if
%>
</td>
<%
else
%>
<td width="70"> </td>
<%
end if %>
<% if aa(2)<>"" then %>
<td width="70" onMouseOver="MM_showHideLayers('Layer1','','hide','Layer2','','hide','Layer3','','show','Layer4','','hide','Layer5','','hide','Layer6','','hide','Layer7','','hide','Layer8','','hide','Layer9','','hide')" onMouseOut="MM_showHideLayers('Layer1','','hide','Layer2','','hide','Layer3','','hide','Layer4','','hide','Layer5','','hide','Layer6','','hide','Layer7','','hide','Layer8','','hide','Layer9','','hide')">
|
<div id="Layer3" style="position:absolute; width:70px; height:115px; z-index:3; left: 373px; 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(2)&"'"
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(2)%>&id=<%=rs1("id")%>" target="_blank"> <%=rs1("lm2")%></a>
<% end if %>
</td>
</tr>
<%
rs1.movenext
loop
rs1.close
set rs1=nothing
%>
</table>
</div>
<%
if ee(2)<>"" then
%>
<a href="<%=ee(2)%>"><%=aa(2)%></a>
<% elseif ff(2)="1" then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from news where lm='"&bb(2)&"'"
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(2)%></a>
<%else%>
<a href="shownews.asp?id=<%=rs("newsid")%>" target="_blank"><%=aa(2)%></a>
<%
end if
else%>
<%=aa(2)%>
<%
end if
rs.close
set rs=nothing
else %>
<%=aa(2)%>
<%
end if
%>
</td>
<%
else
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?