index.asp

来自「1．理解Winsock编程模型； 2．掌握Winsock编程的基本方法」· ASP 代码 · 共 1,347 行 · 第 1/4 页

ASP
1,347 行
字号
1234
			%>
			 <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">&nbsp;</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: 121px; 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">&nbsp;&nbsp;<%=rs1("lm2")%></a>
				  
				  <% else %> 
				  <a href="show.asp?action=<%=rs1("lm2")%>&action1=<%=aa(4)%>&id=<%=rs1("id")%>" target="_blank">&nbsp;&nbsp;<%=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">&nbsp;</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: 121px; 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">&nbsp;&nbsp;<%=rs1("lm2")%></a>
				  
				  <% else %> 
				  <a href="show.asp?action=<%=rs1("lm2")%>&action1=<%=aa(5)%>&id=<%=rs1("id")%>" target="_blank">&nbsp;&nbsp;<%=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">&nbsp;</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: 120px; 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">
                    &nbsp;&nbsp;<%=rs1("lm2")%>
                    </a> 
                    <% else %>
                    <a href="show.asp?action=<%=rs1("lm2")%>&action1=<%=aa(6)%>&id=<%=rs1("id")%>" target="_blank">
                    &nbsp;&nbsp;<%=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">&nbsp;</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: 120px; 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">&nbsp;&nbsp;&nbsp;<%=rs1("lm2")%></a>
				  
				  <% else %> 
				  <a href="show.asp?action=<%=rs1("lm2")%>&action1=<%=aa(7)%>&id=<%=rs1("id")%>" target="_blank">&nbsp;&nbsp;&nbsp;<%=rs1("lm2")%></a>
				  <% end if %></td>
                </tr>
               <%			  
			   rs1.movenext
			   loop
			   rs1.close
			   set rs1=nothing
			   %>
              </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">&nbsp;</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: 121px; 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">&nbsp;&nbsp;&nbsp;<%=rs1("lm2")%></a>
				  
				  <% else %> 
				  <a href="show.asp?action=<%=rs1("lm2")%>&action1=<%=aa(8)%>&id=<%=rs1("id")%>" target="_blank">&nbsp;&nbsp;&nbsp;<%=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%>
1234

index.asp - 源码说明

本页面展示了「1．理解Winsock编程模型； 2．掌握Winsock编程的基本方法」中的 index.asp 源码文件，采用 ASP 编程语言编写，共 1,347 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Winsock相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?