?? show_report_service01.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>
<%
'獲取到達的頁面
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 Feedback"
end if
%>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="5" >
<tr>
<td colspan="6" height="25" valign="top"><div align="left"><strong><font color="#3399FF" size="3">服務反聵報表</font></strong></div></td>
</tr>
<tr>
<td width="30%"><div align="left"><strong><em>反饋客戶</em></strong></div></td>
<td width="20%"><div align="left"><strong><em>反饋主題</em></strong></div></td>
<td width="10%"><div align="left"><strong><em>反饋日期</em></strong></div></td>
<td width="10%"><div align="left"><strong><em>是否解決</em></strong></div></td>
<td width="15%"><div align="left"><strong><em> 相關產品</em></strong></div></td>
<td ><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>
<%
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 ><%=showclientname(rs("Feedbackclientid"))%></td>
<td ><%=rs("FeedbackTopic")%></td>
<td><%=rs("FeedbackDate")%></td>
<td >
<% if rs("FeedbackOver")="0" then
response.Write("未解決")
else
response.Write("已解決")
end if
%>
</td>
<td ><%=rs("FeedbackProduct")%></td>
<td ><%=rs("FeedbackSort")%></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="6" 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 + -