📄 show_report_touchman01.asp
字号:
<!--#include file="../conn.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">
</form>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="5" >
<tr>
<td colspan="7" height="25" valign="top"><div align="left"><strong><font color="#3399FF" size="3">联系人报表</font></strong></div></td>
</tr>
<tr>
<td width="90"><div align="left"><strong><em>姓名</em></strong></div></td>
<td width="200"><div align="left"><strong><em>客户名称</em></strong></div></td>
<td width="80"><div align="left"><strong><em>部门</em></strong></div></td>
<td width="80"><div align="left"><strong><em>职务</em></strong></div></td>
<td width="90"><div align="left"><strong><em> 办公电话</em></strong></div></td>
<td width="90"><div align="left"><strong><em>移动电话</em></strong></div></td>
<td width="80"><div align="left"><strong><em>电子邮箱</em></strong></div></td>
</tr>
<tr>
<td colspan="7" align="center" height="3"><hr align="center" size="3" color="#000000" width="680" ></td>
</tr>
<%
'获取到达的页面
if request("movepage")<>"" then
page=cint(request("movepage")) '翻页
else
page=1
end if
'获取查询语句
if request("textsql")<> "" then
sql=decrypt(trim(request("textsql")))
else
sql = "select * from touchman"
end if
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,3
if not rs.eof then
total=rs.recordcount
rs.pagesize=25
rs.AbsolutePage=page
pcount = rs.pagecount
for i=1 to rs.pagesize
if rs.eof then exit for
%>
<tr>
<td class="text90"><%=rs("touchmanname")%></td>
<td class="text200" ><%=showclientname(rs("touchmanclientid"))%></td>
<td class="text80" ><%=(rs("touchmansection"))%></td>
<td class="text80" > <%=rs("touchmanduty")%></td>
<td class="text100" ><%=rs("touchmanophone")%></td>
<td class="text100" ><%=rs("touchmanmphone")%></td>
<td class="text90"><%=rs("touchmanemail")%></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=25></td></tr>")
next
end if
%>
<tr>
<td colspan="7" height="5">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<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 + -