khbook.asp

来自「OA最新破解2008版全新破解希望大家用着舒服」· ASP 代码 · 共 78 行

ASP

78 行

<%@ codepage ="936" %>
<%
if instr(session("flag"),"06")=0 then
response.redirect "../login.asp"
response.end
end if
%>
<!--#include file="../../conn/dbconn2.asp" -->
<!--#include file="../../inc/safe.asp"-->
<HTML><HEAD><TITLE>意见与建议</TITLE>
<META content=zh-cn http-equiv=Content-Language>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<LINK href="../style.css" rel=stylesheet type=text/css>
</HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="1" cellpadding="3" bgcolor="#CCCCCC" align="center">
  <tr> 
                <td bgcolor="#666666"><font color="#FFFFFF">问题及建议解答列表</font></td>
              </tr>
              <tr> 
                <td bgcolor="#FFFFFF"> 
<% 
sql="select * from guestbook order by ID desc"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
msg_per_page=10 '定义每页显示记录条数
%>
                  <!--#include file="../../inc/headpage.asp"--> 
                  <%
if rs.eof then
response.write"暂无信息"
else
do while not rs.eof and rowcount > 0
%>
                  <table width="100%" border="0" cellspacing="2" cellpadding="2" align="center" style="word-wrap: break-word; word-break: break-all;">
        <tr> 
                      <td width="6%" valign="top"><img src="../../feedback/images/why.gif" width="23" height="17" hspace="4"></td>
                      <td width="82%" valign="top"> <font color="#FF6600"> 
                        <% =rs("content") %> (Email:<a href="mailto:<% =rs("useremail")%>"><% =rs("useremail")%></a>)
                        </font></td>
					
          <td width="6%" valign="top" bgcolor="#f0f0f0"><a href="javascript:win=window.open('hfbook.asp?id=<%=rs("id")%>','contact','width=500,height=300,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no');win.focus();">回复</a></td>
					
          <td width="6%" valign="top" bgcolor="#f0f0f0"><a href="del.asp?id=<%=rs("id")%>">删除</a></td>
                    </tr>
                    <tr> 
                      <td width="6%" valign="top"><img src="../../feedback/images/answer.gif" width="25" height="20" hspace="4"></td>
                      <td width="82%" valign="top"> <font color="#333333"> 
                        <% =rs("recontent") %>
                        </font></td>
						<td width="6%" valign="top">&nbsp;</td>
						<td width="6%" valign="top">&nbsp;</td>
                    </tr>
                  </table>
				  <hr>
                  <% 
  rowcount=rowcount-1
  rs.movenext
  loop
  end if
%>
                  
                  

<table width="100%" border="0" cellspacing="2" cellpadding="2" align="center">
                    <tr> 
                      <td width="6%" valign="top">
                        <%=listPages("khbook.asp")%>
                      </td>
                    </tr>
                    
                  </table>

                </td>
              </tr>
            </table>
</BODY>
</HTML>

khbook.asp - 源码说明

本页面展示了「OA最新破解2008版全新破解希望大家用着舒服」中的 khbook.asp 源码文件，采用 ASP 编程语言编写，共 78 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与2008相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?