复件 manage_info.asp

来自「全球商务网站系统介绍 GLOBALEC.COM.CN[生成HTML版] 」· ASP 代码 · 共 79 行

ASP

79 行

<!--#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>

复件 manage_info.asp - 源码说明

本页面展示了「全球商务网站系统介绍 GLOBALEC.COM.CN[生成HTML版] 系统概述：软件名称：全球商务网站系统当前版本：V1.0 最新版本：V1.1 运行环境：WINNT+（IIS）」中的复件 manage_info.asp 源码文件，采用 ASP 编程语言编写，共 79 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?