📄 show_report_client01.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="../isuser.asp"-->
<!--#include file="../pub_fun.asp"-->
<META NAME="Keywords" CONTENT="FastReport"/>
<META NAME="Description" CONTENT="The FastReport report"/>
<LINK href="../css.css" rel="stylesheet" type="text/css" media="all">
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<body>
<form name="form1" method="post" >
</form>
<%
'获取到达的页面
if request("movepage")<>"" then
page=cint(request("movepage"))
else
page=1
end if
'获取查询语句
if request("textsql")<> "" then
sql=""
sql="select distinct client.*,touchman.touchmanname,touchman.touchmansection,touchman.touchmanduty,touchman.touchmanophone,touchman.touchmanmphone,touchman.touchmanemail"
sql=sql&" from client,touchman where client.clientid=touchman.touchmanclientid and touchman.touchmanmain=1 and (client.clientCreatorID="&session("Session_User")&" or client.clientOpenFlag=1) " &decrypt(trim(request("textsql")))
sql=sql&" order by client.clientid "
else
sql = "select * from client"
end if
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td height="25" valign="top"><div align="left"><strong><font color="#3399FF" size="3">客户报表</font></strong></div></td>
</tr>
<tr>
<td align="center" height="3"><hr align="center" size="3" color="#000000" width="680" ></td>
</tr>
<%
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,3
if not rs.eof then
''得到总的记录数
total=rs.recordcount
''设置页面大小
rs.pagesize=5
''将记录集定位到要显示得页面
rs.AbsolutePage=page
''获取总得页面数
pcount = rs.pagecount
''利用for循环显示 详细的信息
for i=1 to rs.pagesize
if rs.eof then exit for
%>
<tr>
<td >
<table width="100%" border="0" cellspacing="5" cellpadding="0">
<tr>
<td colspan="4">
<table width="100%">
<tr>
<td background="../images/bg.gif"width="45%" height="20" valign="bottom"><strong><%=rs("clientname")%></strong></td><td></td>
</tr>
<tr>
<td colspan="2" height="1"><img src="../images/hr.gif" height="1" width="100%"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="10%"><strong>客户编码</strong></td>
<td width="40%"><%=rs("clientid")%></td>
<td width="10%"><strong>省份</strong></td>
<td ><%=rs("clientprovince")%></td>
</tr>
<tr>
<td width="10%"><strong>邮编</strong></td>
<td width="40%"><%=rs("clientmailcode")%></td>
<td width="10%"><strong>城市</strong></td>
<td><%=rs("clientcity")%></td>
</tr>
<tr>
<td width="10%"><strong>详细地址</strong></td>
<td width="40%"><%=rs("clientaddress")%></td>
<td width="10%"><strong>主页</strong></td>
<td><%=rs("clienthomepage")%></td>
</tr>
<tr>
<td width="10%"><strong>电话</strong></td>
<td width="40%"><%=rs("clientphonenum")%></td>
<td width="10%"><strong>传真</strong></td>
<td><%=rs("clientfaxnum")%></td>
</tr>
<tr>
<td width="10%"><strong>主联系人</strong></td>
<td width="40%"><%=rs("touchmanname")%></td>
<td width="10%"><strong>部门</strong></td>
<td><%=rs("touchmansection")%></td>
</tr>
<td width="10%"><strong>职务</strong></td>
<td width="40%"><%=rs("touchmanduty")%></td>
<td width="10%"><strong>办公电话</strong></td>
<td><%=rs("touchmanophone")%></td>
</tr>
<td width="10%"><strong>移动电话</strong></td>
<td width="40%"><%=rs("touchmanmphone")%></td>
<td width="10%"><strong>电子邮件</strong></td>
<td><%=rs("touchmanemail")%></td>
</tr>
</table>
</td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
end if
%>
<%
if i<rs.pagesize then
for j=i to rs.pagesize-1
response.Write("<tr><td height=175></td></tr>")
next
end if
%>
<tr>
<td >
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="10" colspan="2"></td>
</tr>
<tr>
<td colspan="2"><hr align="center" size="3" color="#000000" width="680" ></td>
</tr>
<tr>
<td><div align="left"><%=date()%></div></td><td><div align="right"><%=page%>/<%=pcount%></div></td>
</tr>
</table>
</td>
</tr>
</table>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -