newsshow.asp
来自「1．理解Winsock编程模型； 2．掌握Winsock编程的基本方法」· ASP 代码 · 共 1,134 行 · 第 1/4 页
ASP
1,134 行
<td width="70"> </td>
<%
end if %>
<% if aa(3)<>"" then %>
<td width="70" onMouseOver="MM_showHideLayers('Layer1','','hide','Layer2','','hide','Layer3','','hide','Layer4','','show','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="Layer4" style="position:absolute; width:68px; height:115px; z-index:4; left: 441px; 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(3)&"'"
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(3)%>&id=<%=rs1("id")%>" target="_blank"> <%=rs1("lm2")%></a>
<% end if %>
</td>
</tr>
<%
rs1.movenext
loop
rs1.close
set rs1=nothing
%>
</table>
</div>
<%
if ee(3)<>"" then
%>
<a href="<%=ee(3)%>"><%=aa(3)%></a>
<% elseif ff(3)="1" then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from news where lm='"&bb(3)&"'"
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(3)%></a>
<%else%>
<a href="shownews.asp?id=<%=rs("newsid")%>" target="_blank"><%=aa(3)%></a>
<%
end if
else%>
<%=aa(3)%>
<%
end if
rs.close
set rs=nothing
else %>
<%=aa(3)%>
<%
end if
%>
</td>
<%
else
%>
<td width="70"> </td>
<%
end if %>
<% if aa(4)<>"" then %>
<td width="70" onMouseOver="MM_showHideLayers('Layer1','','hide','Layer2','','hide','Layer3','','hide','Layer4','','hide','Layer5','','show','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="Layer5" style="position:absolute; width:70px; height:115px; z-index:5; left: 509px; 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(4)&"'"
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(4)%>&id=<%=rs1("id")%>" target="_blank"> <%=rs1("lm2")%></a>
<% end if %>
</td>
</tr>
<%
rs1.movenext
loop
rs1.close
set rs1=nothing
%>
</table>
</div>
<%
if ee(4)<>"" then
%>
<a href="<%=ee(4)%>"><%=aa(4)%></a>
<% elseif ff(4)="1" then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from news where lm='"&bb(4)&"'"
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(4)%></a>
<%else%>
<a href="shownews.asp?id=<%=rs("newsid")%>" target="_blank"><%=aa(4)%></a>
<%
end if
else%>
<%=aa(4)%>
<%
end if
rs.close
set rs=nothing
else %>
<%=aa(4)%>
<%
end if
%>
</td>
<%
else
%>
<td width="70"> </td>
<%
end if %>
<% if aa(5)<>"" then %>
<td width="70" onMouseOver="MM_showHideLayers('Layer1','','hide','Layer2','','hide','Layer3','','hide','Layer4','','hide','Layer5','','hide','Layer6','','show','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="Layer6" style="position:absolute; width:72px; height:115px; z-index:6; left: 579px; 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(5)&"'"
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(5)%>&id=<%=rs1("id")%>" target="_blank"> <%=rs1("lm2")%></a>
<% end if %>
</td>
</tr>
<%
rs1.movenext
loop
rs1.close
set rs1=nothing
%>
</table>
</div>
<%
if ee(5)<>"" then
%>
<a href="<%=ee(5)%>"><%=aa(5)%></a>
<% elseif ff(5)="1" then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from news where lm='"&bb(5)&"'"
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(5)%></a>
<%else%>
<a href="shownews.asp?id=<%=rs("newsid")%>" target="_blank"><%=aa(5)%></a>
<%
end if
else%>
<%=aa(5)%>
<%
end if
rs.close
set rs=nothing
else %>
<%=aa(5)%>
<%
end if
%>
</td>
<%
else
%>
<td width="70"> </td>
<%
end if %>
<% if aa(6)<>"" then %>
<td width="70" onMouseOver="MM_showHideLayers('Layer1','','hide','Layer2','','hide','Layer3','','hide','Layer4','','hide','Layer5','','hide','Layer6','','hide','Layer7','','show','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="Layer7" style="position:absolute; width:65px; height:115px; z-index:7; left: 649px; 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(6)&"'"
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(6)%>&id=<%=rs1("id")%>" target="_blank">
<%=rs1("lm2")%> </a>
<% end if %>
</td>
</tr>
<%
rs1.movenext
loop
rs1.close
set rs1=nothing
%>
</table>
</div>
<%
if ee(6)<>"" then
%>
<a href="<%=ee(6)%>" target="_blank"><%=aa(6)%></a>
<% elseif ff(6)="1" then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from news where lm='"&bb(6)&"'"
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(6)%></a>
<%else%>
<a href="shownews.asp?id=<%=rs("newsid")%>" target="_blank"><%=aa(6)%></a>
<%
end if
else%>
<%=aa(6)%>
<%
end if
rs.close
set rs=nothing
else %>
<%=aa(6)%>
<%
end if
%>
</td>
<%
else
%>
<td width="70"> </td>
<%
end if %>
<% if aa(7)<>"" then %>
<td width="70" onMouseOver="MM_showHideLayers('Layer1','','hide','Layer2','','hide','Layer3','','hide','Layer4','','hide','Layer5','','hide','Layer6','','hide','Layer7','','hide','Layer8','','show','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="Layer8" style="position:absolute; width:68px; height:115px; z-index:8; left: 716px; 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(7)&"'"
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(7)%>&id=<%=rs1("id")%>" target="_blank"> <%=rs1("lm2")%></a>
<% end if %>
</td>
</tr>
<%
rs1.movenext
loop
rs1.close
set rs1=nothing
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?