📄 list.asp

📁 搭建智元软件公文传输系统运行环境(搭建智元软件公文传输系统运行环境转载)
💻 ASP
字号:
<!--#INCLUDE FILE="../asp/checkuser.asp" -->
<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="config.asp" -->

<HTML><HEAD>
<title><%=Request.Cookies("homename")%></title>
<META name="keywords" content="<%=Request.Cookies("homename")%> ">
<META content="<%=Request.Cookies("homename")%>" name="description">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../css/global.css" rel=stylesheet type=text/css>
<script language="JavaScript">
function cdel(id,id1){
var id;
if (confirm("注意:删除不可恢复!你真的要删除 这条反馈意见吗？")){
	document.location.href="list.asp?action=del&delid="+id+"&id="+id1;
	}
}
function cdel1(id){
var id;
if (confirm("注意:删除不可恢复!你真的要删除 这条反馈意见吗？")){
	document.location.href="list.asp?action=dell&id="+id;
	}
}
</script>
<script language=JavaScript src="../css/init.js"></script>
<STYLE type=text/css>A {
	COLOR: #000000; FONT-FAMILY: "宋体"; FONT-SIZE: 9pt; TEXT-DECORATION: none
}
A:visited {
	TEXT-DECORATION: none
}
A:active {
	TEXT-DECORATION: none
}
A:hover {
	TEXT-DECORATION: underline overline
}
A:link {
	TEXT-DECORATION: none
}
A:visited {
	TEXT-DECORATION: none
}
A:active {
	TEXT-DECORATION: none
}
A:hover {
	TEXT-DECORATION: underline overline
}
.3d {
	FILTER: glow(color=ffffff,strength=0) shadow(color=cccccc,direction:135); POSITION: relative; WIDTH: 100%
}
BODY {
	FONT-FAMILY: "宋体", "serif"; FONT-SIZE: 9pt
}
TD {
	FONT-FAMILY: "宋体", "serif"; FONT-SIZE: 9pt
}
INPUT {
	BACKGROUND-COLOR: #f3f3f3; BORDER-BOTTOM: #333333 1px solid; BORDER-LEFT: #333333 1px solid; BORDER-RIGHT: #333333 1px solid; BORDER-TOP: #333333 1px solid; FONT-FAMILY: "宋体"; FONT-SIZE: 9pt
}
P {
	FONT-SIZE: 9pt
}
BR {
	FONT-SIZE: 9pt
}
TR {
	FONT-SIZE: 9pt
}
TABLE {
	FONT-SIZE: 9pt
}
INPUT.text {
	BACKGROUND-COLOR: #f0f0f0; BORDER-BOTTOM: #101010 1px solid; BORDER-LEFT: #101010 1px solid; BORDER-RIGHT: #101010 1px solid; BORDER-TOP: #101010 1px solid; COLOR: #000000
}
INPUT.file {
	BACKGROUND-COLOR: #f0f0f0; BORDER-BOTTOM: #101010 1px solid; BORDER-LEFT: #101010 1px solid; BORDER-RIGHT: #101010 1px solid; BORDER-TOP: #101010 1px solid; COLOR: #000000
}
SELECT {
	BACKGROUND-COLOR: #f0f0f0; BORDER-BOTTOM: #101010 1px solid; BORDER-LEFT: #101010 1px solid; BORDER-RIGHT: #101010 1px solid; BORDER-TOP: #101010 1px solid; COLOR: #000000
}
TEXTAREA {
	BACKGROUND-COLOR: #f0f0f0; BORDER-BOTTOM: #101010 1px solid; BORDER-LEFT: #101010 1px solid; BORDER-RIGHT: #101010 1px solid; BORDER-TOP: #101010 1px solid; COLOR: #000000
}
.stedit {
	BORDER-BOTTOM: #000066 1px solid; BORDER-LEFT: #4a3163 1px solid; BORDER-RIGHT: #4a3163 1px solid; BORDER-TOP: #4a3163 1px solid; FONT-SIZE: 9pt
}
.stbtm {
	BACKGROUND-COLOR: #f3f3f3; BORDER-BOTTOM: #333333 1px solid; BORDER-LEFT: #333333 1px solid; BORDER-RIGHT: #333333 1px solid; BORDER-TOP: #333333 1px solid; FONT-FAMILY: "宋体"; FONT-SIZE: 9pt
}
</STYLE>

<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<body topmargin="0" leftmargin="0"><br>
<%
if request("action")="del" then
sql="delete from reply where id="&request("delid")
conn.execute sql
end if
%>

<% 
response.buffer=true
Response.Expires=0
dim rs
dim sql
dim page
id = request("id")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * FROM enet where gbookid="&request("id")
rs.open sql,conn,1,1
%>

<%
id=rs("gbookid")
name=rs("name")
come=rs("come")
subject=rs("subject")
content=rs("content")
content=Autolink(content)
dateandtime=rs("dateandtime")

%>
<TABLE align=center bgColor=#ffffff border=0 cellPadding=0 cellSpacing=0 width='95%'>
  <TBODY>
   <TR>
      <TD><IMG src='../images/lban.gif'></TD>
        <TD background=../images/bg.gif width='100%'>
          <TABLE border=0 cellPadding=0 cellSpacing=0 width='100%'>
              <TR>
                <TD width='100%'></TD>
              <TD>&nbsp;</TD>
                    <TD><a href='reply.asp?id=<%=id%>' onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image10','','../images/button/rb_reply_down.gif',1)"><img src='../images/button/rb_reply_up.gif' name='Image10' border='0'></a>
                  </TD>
              <TD>&nbsp;</TD>	
                    <TD><a href='index.asp' onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image9','','../images/button/rb_back_down.gif',1)"><img src='../images/button/rb_back_up.gif' name='Image9' border='0'></a>
                  </TD>
              <TD>&nbsp;</TD>			  			  
            </tr>
        </TABLE>
      </TD>
      <TD><IMG src='../images/rban.gif'></TD>
    </TR>
    <TR bgColor=#00bfef>
      <TD><IMG height=16 src='../images/ljiao.gif' width=19></TD>
       <TD align=right class=font9pt></TD>
      <TD align=right><IMG height=16 src='../images/rjiao.gif' width=19></TD>
    </TR>
  </TBODY>
</TABLE>
<table width="300" border="0" align="center">
  <tr> 
    <td align="center"> <br> <br><font color="red" size="3"><b>查看留言</b></font>
    </td>
  </tr>
</table>
<TABLE border=1 borderColorDark=#ffffff borderColorLight=#666666 cellPadding=2 cellSpacing=0 height=1 width="86%" align="center">
          <TR height="25"> 
            <TD bgColor=#eaeaea align="center" width='20%'>  用&nbsp;&nbsp;户：</TD>
            <TD width='30%'><%=name%></TD>
            <TD bgColor=#eaeaea align="center" width='20%'>时&nbsp;&nbsp;间：</TD>
            <TD width='30%'><%=rs("dateandtime")%></TD>
          </TR>
          <TR height="30"> 
            <TD bgColor="#eaeaea" align="center">标&nbsp;&nbsp;题：</TD>
            <TD colSpan=3><font color='#ff0000'><B><%=rs("subject")%></b></font> </TD>
          </TR> 
          <TR> 
            <TD bgColor="#eaeaea" align="center">留言内容：</TD>
            <TD colSpan=3><%=content%></TD>
          </TR>            
        </TABLE>
  <%
			 set rs1=server.CreateObject("adodb.recordset")
			 sql="select * from reply where reid="+cstr(id) + " order by datetime desc"
             rs1.Open sql,conn,1
             if not rs1.EOF and not rs1.BOF Then
             i = 0
%>
<table width="300" border="0" align="center">
  <tr> 
    <td align="center"><br><font color="#0000ff" size="3"><b>回复列表</b></font>
    </td>
  </tr>
</table>  
    <table border=0 cellpadding=0 cellspacing=0 width="86%" align="center">
      <tbody> 
      <tr> 
        <td bgcolor="#999999"> 
          <table width="100%" border="0" cellspacing="1" cellpadding="6">
            <tr> 
              <td bgcolor="#FFFFFF" class="by12h">
<%			 
             do while not rs1.EOF 
			  i = i + 1
			 %>
	
		<TABLE border=1 borderColorDark=#ffffff borderColorLight=#666666 cellPadding=2 cellSpacing=0 height=1 width="100%">
		<%if oabusyname="管理员" then%>
          <TR> 
            <TD colSpan=4>		
			<a href="javascript:cdel('<%=rs1("id")%>','<%=id%>')">删除</a>
			</TD>
          </TR>  					
			<%end if%>
          <TR height="25"> 
            <TD bgColor=#eaeaea align="center" width='20%'> 用&nbsp;&nbsp;户：</TD>
            <TD width='30%'><%=rs1("name")%></TD>
            <TD bgColor=#eaeaea align="center" width='20%'>时&nbsp;&nbsp;间：</TD>
            <TD width='30%'><%=rs1("datetime")%></TD>
          </TR>
          <TR height="30"> 
            <TD bgColor="#eaeaea" align="center">标&nbsp;&nbsp;题：</TD>
            <TD colSpan=3><font color='#ff0000'><B><%=rs1("subject")%></b></font> </TD>
          </TR> 
          <TR> 
            <TD bgColor="#eaeaea" align="center">留言内容：</TD>
            <TD colSpan=3><%=rs1("content")%></TD>
          </TR>            
        </TABLE>			
		<br>	
          <%
 		    rs1.MoveNext 
          loop
		  %>
		  			  
			  </td>
            </tr>
          </table>
        </td>
        <td bgcolor=#999999 rowspan=2 valign=top width=4> 
          <table border=0 cellpadding=0 cellspacing=0 width=4>
            <tbody> 
            <tr> 
              <td bgcolor=#ffffff height=5  
width=4></td>
            </tr>
            </tbody> 
          </table>
        </td>
      </tr>
      <tr> 
        <td bgcolor=#999999 height=4> 
          <table border=0 cellpadding=0 cellspacing=0>
            <tbody> 
            <tr> 
              <td bgcolor=#ffffff height=4  
        width=5></td>
            </tr>
            </tbody> 
          </table>
        </td>
      </tr>
      </tbody> 
    </table>
		  
<%
  end if
%>		  
<br>
<TABLE background=../images/indi-08.gif border=0 cellPadding=0 cellSpacing=0 width="100%">
  <TBODY>
  <TR>
    <TD align=left noWrap width="30%"></TD>
    <TD noWrap width="40%" valitn="middle"></TD>
    <TD align=right vAlign=top width="14%"><IMG src="../images/indi-09.gif"></TD>
  </TR>
  </TBODY>
</TABLE>   
</CENTER>     
</BODY>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -