📄 d_infosourcecountmainfrm.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubConnCode.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title><link href="../cread.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF">
<table border="0" width="100%">
<tr>
<td width="100%" valign="middle"><img border="0" src="it_22.gif" width="34" height="15"> <b><font size="2">信息来源分析</font></b><hr width="40%" align="left" color="#C0C0C0" size="1"></td>
</tr>
</table>
<%set rs=server.CreateObject("adodb.recordset")
if rs.state=1 then rs.close
rs.open "select distinct InformationSource from D_clientinfo where tag='kh' and InformationSource<>'' and delflag='0'",pubconn,1,3%>
<%if rs.recordcount<=0 then%>
<br><br><center><% response.write "没记录!"%></center><br><br>
<center><a href="D_FenXiMainFrm.asp"><font size="2">返回</font></a></center>
<%response.end()
end if%>
<%set rs2=server.CreateObject("adodb.recordset")
if rs2.state=1 then rs2.close
rs2.open "select count(*) as InformationSource from D_clientinfo where tag='kh' and InformationSource <>'' and delflag='0'",pubconn,1,3%>
<%Total=rs2.fields("InformationSource") '信息来源总数%>
<form name="form1" method="post" action="#">
<center><table border=1 cellspacing=0 width="380">
<tr>
<td align="center" bgcolor="#DDD2C4" width="152" height="30">信息来源</td>
<td align="center" bgcolor="#DDD2C4" height="30" width="96">数量</td>
<td align="center" bgcolor="#DDD2C4" width="100" height="30">占百分比(%)</td>
</tr>
<%rs.movefirst%>
<%line=0%>
<%while not rs.eof%>
<%line=cint(line)+1%>
<%if line mod 2 =0 then%>
<%backcolor="#f7f7f7"%>
<%else%>
<%backcolor="#EDEBEC"%>
<%end if%>
<%set rs3=server.CreateObject("adodb.recordset")
if rs3.state=1 then rs3.close
rs3.open "select count(*) as InformationSource from D_clientinfo where tag='kh' and InformationSource='"& rs.fields("InformationSource") &"' and delflag='0'",pubconn,1,3%>
<tr bgcolor=<%=backcolor%>>
<td align="center" width="152"><%=rs.fields("InformationSource")%></td>
<td align="center" width="96"><%=rs3.fields("InformationSource")%></td>
<%if Total<>0 then%>
<td align="center" width="100"><%=round(rs3.fields("InformationSource")/Total,2)*100%></td>
<%else%>
<td width="14"> </td>
<%end if%>
</tr>
<%rs.movenext%>
<%wend%>
<%if line mod 2 =0 then%>
<%backcolor="#EDEBEC"%>
<%else%>
<%backcolor="#f7f7f7"%>
<%end if%>
<tr bgcolor=<%=backcolor%>>
<td align="center" width="152">合计</td>
<td align="center" width="96"><%=Total%></td>
<td align="center" width="100">100</td>
</tr>
</table></center>
</form>
<center>
</center>
<p>
<center>
<a href="D_GraphicHanYe.asp?area=-1"><font size="2">图形</font></a><font size="2">    <a href="D_FenXiMainFrm.asp">返回</a></font></center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -