contact_edit.asp

全球商务网站系统介绍 GLOBALEC.COM.CN[生成HTML版] 系统概述： 软件名称：全球商务网站系统 当前版本：V1.0 最新版本：V1.1 运行环境：WINNT+（IIS）

              <TBODY>
              <TR>
                <TD class=leftmenu1 
                onclick="javascript:window.open('../../help/index.html')"><IMG 
                  id=img5 src="../images/leftmenu_help.gif" 
                  align=absMiddle> 帮助</TD></TR></TBODY></TABLE>
            <IMG height=6 
            src="../images/leftmanu_bottom.gif" width=150><BR><BR>
            
            <!--#include file="../guestsubmit.asp"-->
            <BR><BR></TD></TR>
        </TABLE><BR><BR><BR></TD>
    <TD 
    style="BACKGROUND-POSITION: right 50%; BACKGROUND-IMAGE: url(i../mages/bg1.gif); BACKGROUND-REPEAT: repeat-y; BACKGROUND-COLOR: #ffffff" 
    vAlign=top align=middle width=628>
      <TABLE cellSpacing=0 cellPadding=0 width=628 border=0>
        <TBODY>
        <TR>
          <TD width=459><IMG height=30 
            src="../images/leftmanu_top1.gif" width=459></TD>
          <TD vAlign=top width=141 
          background=../images/top_nav_bg2.gif></TD>
          <TD width=28><IMG height=30 src="../images/top_nav_5.gif" 
            width=28></TD></TR></TBODY></TABLE><BR>
      <TABLE cellSpacing=0 cellPadding=0 width=578 border=0>
        <TBODY>
        <TR>
              <TD><IMG height=32 src="../images/feedback.gif" width=578 
            border=0></TD>
            </TR></TBODY></TABLE>
      <TABLE class=content_border cellSpacing=0 cellPadding=0 width=578 
border=0>
        <TBODY>
        <TR>
          <TD align=middle>
		  
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 style="border-collapse: collapse" bordercolor="#111111">

<tr>
<TD vAlign=top width="95%" height=5 bgcolor="#FFFFFF">
<div align="right">
<table border="0" cellpadding="2" style="border-collapse: collapse" bordercolor="#111111" width="100" id="AutoNumber14">
<tr>
                        <td width="100%" height="10"></td>
</tr>
</table>
</div>
</TD>
</tr>
<TR>
<TD vAlign=top width="95%" height=100>
<TABLE height=109 cellSpacing=0 cellPadding=0 width="100%" 
border=0>
                
<TR vAlign=top>
<TD height=1 bgcolor="#FFFFFF">

<table align="center" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="99%" id="AutoNumber13">
<tr>
<td width="100%">
<% 
sql="select * from book where bookid="&id&" order by INFO_ID desc"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 
if rs.eof and rs.bof then 
response.write"<br><br><br><br><div align=center><font color=red><b>目前暂无反馈信息</b></font></div>"
else 
totalPut=rs.recordcount 
if currentpage<1 then 
currentpage=1 
end if 
if (currentpage-1)*MaxPerPage>totalput then 
if (totalPut mod MaxPerPage)=0 then 
currentpage= totalPut \ MaxPerPage 
else 
currentpage= totalPut \ MaxPerPage + 1 
end if 
end if 
if currentPage=1 then 
showContent
else 
if (currentPage-1)*MaxPerPage<totalPut then 
rs.move (currentPage-1)*MaxPerPage 
dim bookmark 
bookmark=rs.bookmark 
showContent
else 
currentPage=1 
showContent
end if 
end if
end if 
sub showContent 
%> 
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111" height="122"> 
 
<TR> 
<TD valign=top height="122" width="100%">
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD align=right>
<p align="left"><B><%showpage totalput,MaxPerPage,"contact_edit.asp"%></B></TD>
</TR>
</TBODY>
</TABLE>

<TABLE align="center" border=0 cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111">
<TR>
<TD height="10" colspan="2" background="../../company/images/line_gr.gif"></TD></TR>
</TABLE> 

<%do while not rs.eof%>

<TABLE align="center" border=0 cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111" height="75">
<TBODY>
<TR height="30">
<TD align=left width="95%" height="18">
<img border="0" src="../../company/images/fpost2.gif">
<b>
<%if rs("Gsid")>=1 then %><a target="_blank" href="../../<%=rs("url")%>"><%=rs("linkman")%></a><font color="#fc9603">【会员】</font><%else%><%=rs("linkman")%><font color="#008000">【游客】</font><%end if%></b>&nbsp;&nbsp;&nbsp;
<%=rs("dateandtime")%>&nbsp; </TD>
<TD align=left width="45%" height="18"> 
<%if session("id")="" then%><%else%><a href="javascript:show_sader(&quot;replyinfo.asp?ID=<%=rs("bookid")%>&infoid=<%=rs("info_id")%>&quot;)"><img border="0" src="../../company/images/reply_a.gif"></a>&nbsp;&nbsp;&nbsp;<a href="bookdel.asp?ID=<%=rs("bookid")%>&infoid=<%=rs("info_id")%>"><img border="0" src="../../company/images/A_delete.gif"></a><font face="Arial"><%end if%></font></TD>
</TR>
<TR height="30"> 
<TD width="100%" colspan="2" height="19"><%=mid(rs("content"),1,200)%> <a href="javascript:show_sader(&quot;bookinfo.asp?info_id=<%=rs("info_id")%>&quot;)">[<font color="#CC3300">详细信息</font>]</a></TD> 
</TR> 
<TR>
                                        <TD height="19" width="100%" colspan="2"> 
                                          <%if rs("recontent")<>"" then%>
                                          <font color="#FF0000">【回复】：</font><%=rs("recontent")%>
                                          <%end if%>
                                        </TD>
                                      </TR>
<TR>
<TD height="19" background="../../company/images/line_gr.gif" width="590" colspan="2"></TD></TR>
</TBODY>
</TABLE>

<% i=i+1 
if i>=MaxPerPage then exit do 
rs.movenext 
loop 
rs.close 
set rs=nothing 
%> 
<TABLE border=0 cellPadding=0 cellSpacing=0 width="92%">
<TR><TD colspan="2"><%showpage totalput,MaxPerPage,"contact_edit.asp"%></TD></TR>
</table></TD></TR></TABLE>
<%
end sub 
function showpage(totalnumber,maxperpage,filename) 
dim n 
if totalnumber mod maxperpage=0 then 
n= totalnumber \ maxperpage 
else 
n= totalnumber \ maxperpage+1 
end if 
response.write "<form method=Post action="&filename&">" 
if CurrentPage<2 then 
response.write "<font color=red><b>共"&n&"页&nbsp;第"&CurrentPage&"页 " 
response.write "共有"&totalnumber&"条反馈信息</b></font>" 
response.write "</td>"
response.write "<td VALIGN=middle align=right >"
response.write "【最前页】【上一页】" 
else 
response.write "<font color=red><b>共"&n&"页&nbsp;第"&CurrentPage&"页 " 
response.write "共有"&totalnumber&"条反馈信息</b></font>" 
response.write "【<a href="&filename&"?page=1&id="&id&">最前页</a>】" 
response.write "【<a href="&filename&"?page="&CurrentPage-1&"&id="&id&">上一页</a>】" 
end if 
if n-currentpage<1 then 
response.write "【下一页】【最后页】" 
else 
response.write "【<a href="&filename&"?page="&(CurrentPage+1)&"&id="&id&">" 
response.write "下一页</a>】【 <a href="&filename&"?page="&n&"&id="&id&">最后页</a>】" 
end if 
response.write "</form>" 
end function
%> </td>
</tr>
</table>

</TD></TR>
</TABLE></TD></TR>
          </TABLE><BR>
   
            <BR><BR></TD></TR></TBODY></TABLE><BR><BR></TD></TR>
  </TABLE><IMG 
height=10 src="../images/bottom.gif" width=778><BR>
<!--#include file="../end.asp"-->
<%myrs.close 
set myrs=nothing
conn.close
set conn=nothing
%>