?? 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 + -