📄 复件 manage_info.asp

📁 全球商务网站系统介绍 GLOBALEC.COM.CN[生成HTML版] 系统概述：软件名称：全球商务网站系统当前版本：V1.0 最新版本：V1.1 运行环境：WINNT+（IIS）

💻 ASP

字号:

<!--#include file="../../conn/conn.asp"-->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../css/style.css">
</head>

<body bgcolor=#FFFFFF text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td height="22" bgcolor="ff7300"><b><font color="#FFFFFF">&gt;&gt;管理资讯</font></b></td>
  </tr>
</table>
<br>
<%
set rs1=conn.execute("select count(*) as countsum from P_info")
response.write rs1("countsum")
rs1.close
%>
<table width="100%" border="0">
  <% set rs=conn.execute("select steer,name from bbs_info_lei where mysteer=0 and switch=1 order by sx desc")
   if not rs.eof then
   i=0
   do while not rs.eof
   if i mod 2=0 then response.write "<tr>"
%>
  <td valign="TOP" width="50%" bgcolor="#FFFFFF"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="2">
        <tr> 
          <td width="9">&nbsp;</td>
          <td width="267"> 
            <%
 response.write "<b class=table>"&rs("name")&"</B>"
%>
          </td>
        </tr>
        <tr> 
          <td width="9">&nbsp;</td>
          <td width="95%" height="38" valign="TOP" class=td> 
            <% call getsmleikey(rs("steer")) %>
          </td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td colspan="2" height="1"></td>
        </tr>
      </table>
  </td>
  <% rs.movenext
   i=i+1
   if i mod 2=0 then response.write "</tr>"
   loop
   end if
   rs.close

  sub getsmleikey(leikey)
    dim mrs,mylen
    mylen=0
    set mrs=conn.execute("select steer,name from bbs_info_lei where mysteer="&leikey&" order by sx desc")
    do while not mrs.eof
    mylen=mylen+len(mrs("name"))
	  set countrs=conn.execute("select count(*) as count1 from P_info where infoleiid="&mrs("steer"))
	  count1=countrs("count1")
	    if count1=0 then
	    count1="<font color=red>0</font>"
		else
		count1="<font color=blue>"&count1&"</font>"
		end if 
	  countrs.close
    response.write "<nobr><a href=gl_info1.asp?id="&mrs("steer")&"&name="&mrs("name")&">"&mrs("name")&"</a>("&count1&") <font color=cccccc>|</font></npbr> "
    mrs.movenext
    loop
    mrs.close
  end sub
%>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -