📄 index.asp

📁 asp+sql软件系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
        </tr>
        <tr>
          <td scope="row"><%
Set Rs=Conn.Execute("EXECUTE NetCom_Index_wangluoNew")%><table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#EEEEEE"><%While Not Rs.EOF%><tr><td bgcolor="#FFFFFF" width="5%" align="center"><%If Rs(5)<>0 Then%><img src="Images/Dot_2.gif" width="6" height="7"><%Else%><img src="Images/Dot.gif" width="6" height="7"><%End If%></td><td bgcolor="#FFFFFF" onMouseOver="javascript:this.bgColor='#F7F7F7';this.style.cursor='default';" onMouseOut="javascript:this.bgColor='#FFFFFF';" width="70%"><a href="ViewClass.asp?ACid=<%=Rs(2)%>&NCid=<%=Rs(3)%>" class="SoftMeun" target="_blank">[<%=Rs(6)%>]</a> <a href="ViewDownload.asp?Id=<%=Rs(0)%>" class="SoftMeun" target="_blank"><%=Rs(1)%></a></td><td bgcolor="#FFFFFF" width="35%" align="center"><%If Rs(4)>=Date() Then%><font color="red"><%=FormatDateTime(Rs(4),2)%></font><%Else%><%=FormatDateTime(Rs(4),2)%><%End If%></td></tr><%Rs.MoveNext
Wend%></table></td>
          <td><%
Set Rs=Conn.Execute("EXECUTE NetCom_Index_tuwenNew")%><table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#EEEEEE"><%While Not Rs.EOF%><tr><td bgcolor="#FFFFFF" width="5%" align="center"><%If Rs(5)<>0 Then%><img src="Images/Dot_2.gif" width="6" height="7"><%Else%><img src="Images/Dot.gif" width="6" height="7"><%End If%></td><td bgcolor="#FFFFFF" onMouseOver="javascript:this.bgColor='#F7F7F7';this.style.cursor='default';" onMouseOut="javascript:this.bgColor='#FFFFFF';" width="70%"><a href="ViewClass.asp?ACid=<%=Rs(2)%>&NCid=<%=Rs(3)%>" class="SoftMeun" target="_blank">[<%=Rs(6)%>]</a> <a href="ViewDownload.asp?Id=<%=Rs(0)%>" class="SoftMeun" target="_blank"><%=Rs(1)%></a></td><td bgcolor="#FFFFFF" width="35%" align="center"><%If Rs(4)>=Date() Then%><font color="red"><%=FormatDateTime(Rs(4),2)%></font><%Else%><%=FormatDateTime(Rs(4),2)%><%End If%></td></tr><%Rs.MoveNext
Wend%></table></td>
        </tr>
      </table></td>
      </tr></table><table width="100%" border="0" cellpadding="0" cellspacing="0" align="center"><TR><TD height="5"></TD></TR></table><table width="100%" border="0" cellpadding="0" cellspacing="0" align="center"><tr><td><table width="100%" border="1" cellpadding="0" cellspacing="1" bordercolor="#416194">
        <tr>
          <td width="50%" height="25" bgcolor="#416194" scope="row"><span class="STYLE1">教育教学</span></td>
          <td bgcolor="#416194"><span class="STYLE1">媒体工具</span></td>
        </tr>
        <tr>
          <td scope="row"><%
Set Rs=Conn.Execute("EXECUTE NetCom_Index_jiaoyuNew")%><table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#EEEEEE"><%While Not Rs.EOF%><tr><td bgcolor="#FFFFFF" width="5%" align="center"><%If Rs(5)<>0 Then%><img src="Images/Dot_2.gif" width="6" height="7"><%Else%><img src="Images/Dot.gif" width="6" height="7"><%End If%></td><td bgcolor="#FFFFFF" onMouseOver="javascript:this.bgColor='#F7F7F7';this.style.cursor='default';" onMouseOut="javascript:this.bgColor='#FFFFFF';" width="70%"><a href="ViewClass.asp?ACid=<%=Rs(2)%>&NCid=<%=Rs(3)%>" class="SoftMeun" target="_blank">[<%=Rs(6)%>]</a> <a href="ViewDownload.asp?Id=<%=Rs(0)%>" class="SoftMeun" target="_blank"><%=Rs(1)%></a></td><td bgcolor="#FFFFFF" width="35%" align="center"><%If Rs(4)>=Date() Then%><font color="red"><%=FormatDateTime(Rs(4),2)%></font><%Else%><%=FormatDateTime(Rs(4),2)%><%End If%></td></tr><%Rs.MoveNext
Wend%></table></td>
          <td><%
Set Rs=Conn.Execute("EXECUTE NetCom_Index_meitiNew")%><table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#EEEEEE"><%While Not Rs.EOF%><tr><td bgcolor="#FFFFFF" width="5%" align="center"><%If Rs(5)<>0 Then%><img src="Images/Dot_2.gif" width="6" height="7"><%Else%><img src="Images/Dot.gif" width="6" height="7"><%End If%></td><td bgcolor="#FFFFFF" onMouseOver="javascript:this.bgColor='#F7F7F7';this.style.cursor='default';" onMouseOut="javascript:this.bgColor='#FFFFFF';" width="70%"><a href="ViewClass.asp?ACid=<%=Rs(2)%>&NCid=<%=Rs(3)%>" class="SoftMeun" target="_blank">[<%=Rs(6)%>]</a> <a href="ViewDownload.asp?Id=<%=Rs(0)%>" class="SoftMeun" target="_blank"><%=Rs(1)%></a></td><td bgcolor="#FFFFFF" width="35%" align="center"><%If Rs(4)>=Date() Then%><font color="red"><%=FormatDateTime(Rs(4),2)%></font><%Else%><%=FormatDateTime(Rs(4),2)%><%End If%></td></tr><%Rs.MoveNext
Wend%></table></td>
        </tr>
      </table></td>
</tr></table><table width="100%" border="0" cellpadding="0" cellspacing="0" align="center"><TR><TD height="5"></TD></TR></table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center"><tr><td><table width="100%" border="1" cellspacing="1" cellpadding="0" bordercolor="#416194">
  <tr>
    <td width="50%" height="25" bgcolor="#416194" scope="row"><span class="STYLE1">编程开发</span></td>
    <td bgcolor="#416194"><span class="STYLE1">管理工具</span></td>
  </tr>
  <tr>
    <td scope="row"><%
Set Rs=Conn.Execute("EXECUTE NetCom_Index_bianchengNew")%><table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#EEEEEE"><%While Not Rs.EOF%><tr><td bgcolor="#FFFFFF" width="5%" align="center"><%If Rs(5)<>0 Then%><img src="Images/Dot_2.gif" width="6" height="7"><%Else%><img src="Images/Dot.gif" width="6" height="7"><%End If%></td><td bgcolor="#FFFFFF" onMouseOver="javascript:this.bgColor='#F7F7F7';this.style.cursor='default';" onMouseOut="javascript:this.bgColor='#FFFFFF';" width="70%"><a href="ViewClass.asp?ACid=<%=Rs(2)%>&NCid=<%=Rs(3)%>" class="SoftMeun" target="_blank">[<%=Rs(6)%>]</a> <a href="ViewDownload.asp?Id=<%=Rs(0)%>" class="SoftMeun" target="_blank"><%=Rs(1)%></a></td><td bgcolor="#FFFFFF" width="35%" align="center"><%If Rs(4)>=Date() Then%><font color="red"><%=FormatDateTime(Rs(4),2)%></font><%Else%><%=FormatDateTime(Rs(4),2)%><%End If%></td></tr><%Rs.MoveNext
Wend%></table></td>
    <td><%
Set Rs=Conn.Execute("EXECUTE NetCom_Index_guanliNew")%><table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#EEEEEE"><%While Not Rs.EOF%><tr><td bgcolor="#FFFFFF" width="5%" align="center"><%If Rs(5)<>0 Then%><img src="Images/Dot_2.gif" width="6" height="7"><%Else%><img src="Images/Dot.gif" width="6" height="7"><%End If%></td><td bgcolor="#FFFFFF" onMouseOver="javascript:this.bgColor='#F7F7F7';this.style.cursor='default';" onMouseOut="javascript:this.bgColor='#FFFFFF';" width="70%"><a href="ViewClass.asp?ACid=<%=Rs(2)%>&NCid=<%=Rs(3)%>" class="SoftMeun" target="_blank">[<%=Rs(6)%>]</a> <a href="ViewDownload.asp?Id=<%=Rs(0)%>" class="SoftMeun" target="_blank"><%=Rs(1)%></a></td><td bgcolor="#FFFFFF" width="35%" align="center"><%If Rs(4)>=Date() Then%><font color="red"><%=FormatDateTime(Rs(4),2)%></font><%Else%><%=FormatDateTime(Rs(4),2)%><%End If%></td></tr><%Rs.MoveNext
Wend%></table></td>
  </tr>
</table></td></tr></table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center"><TR><TD height="5"></TD></TR></table><table width="100%" border="0" cellpadding="0" cellspacing="0" align="center"><tr><td bgcolor="#FFFFFF"><table width="100%" border="1" cellpadding="0" cellspacing="1" bordercolor="#416194">
  <tr>
    <td width="50%" height="25" bgcolor="#416194" scope="row"><span class="STYLE1">游戏娱乐</span></td>
    <td bgcolor="#416194"><span class="STYLE1">其他</span></td>
  </tr>
  <tr>
    <td scope="row"><%
Set Rs=Conn.Execute("EXECUTE NetCom_Index_youxiNew")%><table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#EEEEEE"><%While Not Rs.EOF%><tr><td bgcolor="#FFFFFF" width="5%" align="center"><%If Rs(5)<>0 Then%><img src="Images/Dot_2.gif" width="6" height="7"><%Else%><img src="Images/Dot.gif" width="6" height="7"><%End If%></td><td bgcolor="#FFFFFF" onMouseOver="javascript:this.bgColor='#F7F7F7';this.style.cursor='default';" onMouseOut="javascript:this.bgColor='#FFFFFF';" width="70%"><a href="ViewClass.asp?ACid=<%=Rs(2)%>&NCid=<%=Rs(3)%>" class="SoftMeun" target="_blank">[<%=Rs(6)%>]</a> <a href="ViewDownload.asp?Id=<%=Rs(0)%>" class="SoftMeun" target="_blank"><%=Rs(1)%></a></td><td bgcolor="#FFFFFF" width="35%" align="center"><%If Rs(4)>=Date() Then%><font color="red"><%=FormatDateTime(Rs(4),2)%></font><%Else%><%=FormatDateTime(Rs(4),2)%><%End If%></td></tr><%Rs.MoveNext
Wend%></table></td>
    <td><%
Set Rs=Conn.Execute("EXECUTE NetCom_Index_OtherNew")%><table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#EEEEEE"><%While Not Rs.EOF%><tr><td bgcolor="#FFFFFF" width="5%" align="center"><%If Rs(5)<>0 Then%><img src="Images/Dot_2.gif" width="6" height="7"><%Else%><img src="Images/Dot.gif" width="6" height="7"><%End If%></td><td bgcolor="#FFFFFF" onMouseOver="javascript:this.bgColor='#F7F7F7';this.style.cursor='default';" onMouseOut="javascript:this.bgColor='#FFFFFF';" width="70%"><a href="ViewClass.asp?ACid=<%=Rs(2)%>&NCid=<%=Rs(3)%>" class="SoftMeun" target="_blank">[<%=Rs(6)%>]</a> <a href="ViewDownload.asp?Id=<%=Rs(0)%>" class="SoftMeun" target="_blank"><%=Rs(1)%></a></td><td bgcolor="#FFFFFF" width="35%" align="center"><%If Rs(4)>=Date() Then%><font color="red"><%=FormatDateTime(Rs(4),2)%></font><%Else%><%=FormatDateTime(Rs(4),2)%><%End If%></td></tr><%Rs.MoveNext
Wend%></table></td>
  </tr>
</table></td>
</tr></table></td></tr></table><table width="760" border="0" cellpadding="0" cellspacing="0" align="center"><TR><TD height="5"></TD></TR></table><%
Rs.Close
Set Rs=Nothing
Call CloseDatabase()
%>
</body></html><!--#include file="bottom.asp"-->
上一页 12
⌨️ 快捷键说明

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