📄 index.asp

📁 搭建智元软件公文传输系统运行环境(搭建智元软件公文传输系统运行环境转载)
💻 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>
<link rel="stylesheet" href="../css/list.css" type="text/css">
<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%
}

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">
<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="config.asp" -->
<% 
response.buffer=true
Response.Expires=0

%>
<script language="JavaScript">
	function cdel1(id){
	var id;
	if (confirm("注意:删除不可恢复!你真的要删除 这条反馈意见吗？")){
		document.location.href="index.asp?action=dell&id="+id;
		}
	}
</script>
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusyusername="" then 
	response.write("<script language=""javascript"">")
	response.write("window.top.location.href='default.asp';")
	response.write("</script>")
	response.end
end if

if request("action")="dell" then
sql="delete from enet where gbookid="&request("id")
conn.execute sql
sql="delete from reply where reid="&request("id")
conn.execute sql
end if

dim rs
dim sql
dim page
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * FROM enet Order By dateandtime Desc"
rs.open sql,conn,1,1

IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
page=1
Else
Page=Int(Abs(Request("page")))
End if
rs.pagesize = 10
total  = rs.RecordCount
mypagesize     = rs.pagesize
rs.absolutepage = page
%><br>
<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='ADD.ASP' onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image10','','../images/button/rb_newly_down.gif',1)"><img src='../images/button/rb_newly_up.gif' name='Image10' border='0'></a>
                  </TD>
              <TD>&nbsp;</TD>					
              <TD>&nbsp;</TD>
	<%
       rs.AbsolutePage = page
       If page > 1 Then
            Response.Write "                     <TD>" & vbCrLf
            Response.Write "                  <A href='index.asp?page=1' onMouseOut=""MM_swapImgRestore()"" onMouseOver=""MM_swapImage('Image1','','../images/button/rb_first_down.gif',1)""><img src='../images/button/rb_first_up.gif' name='Image1' border='0'></a>"
            Response.Write "              </TD>" & vbCrLf
            Response.Write "              <TD>&nbsp;</TD>" & vbCrLf
            Response.Write "              <TD>" & vbCrLf
            Response.Write "                <A href='index.asp?page="+CStr(page - 1)+"' onMouseOut=""MM_swapImgRestore()"" onMouseOver=""MM_swapImage('Image2','','../images/button/rb_previous_down.gif',1)""><img src='../images/button/rb_previous_up.gif' name='Image2' border='0'></a>"
            Response.Write "              </TD>" & vbCrLf
            Response.Write "              <TD>&nbsp;</TD>" & vbCrLf
       End If
       If page < rs.PageCount Then
	   'If page > 0 Then	
            Response.Write "              <TD>" & vbCrLf
            Response.Write "                  <A href='index.asp?page="+CStr(page + 1)+"' onMouseOut=""MM_swapImgRestore()"" onMouseOver=""MM_swapImage('Image3','','../images/button/rb_next_down.gif',1)""><img src='../images/button/rb_next_up.gif' name='Image3' border='0'></a>"
            Response.Write "             </TD>" & vbCrLf
            Response.Write "              <TD>&nbsp;</TD>" & vbCrLf
            Response.Write "              <TD>" & vbCrLf
            Response.Write "                  <A href='index.asp?page=" + CStr(rs.PageCount) + "' onMouseOut=""MM_swapImgRestore()"" onMouseOver=""MM_swapImage('Image4','','../images/button/rb_last_down.gif',1)""><img src='../images/button/rb_last_up.gif' name='Image4' border='0'></a>"
            Response.Write "              </TD>" & vbCrLf
            Response.Write "              <TD>&nbsp;</TD>" & vbCrLf
        End If
%>
            </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>

<%
        Response.Write "<TABLE align=center width='95%'>" & vbCrLf
        Response.Write "  <TBODY>" & vbCrLf
        Response.Write "  <TR align=right>" & vbCrLf
        Response.Write "    <TD rowspan=2 class=vwStatCell>" & vbCrLf
        Response.Write "    </TD>" & vbCrLf
        Response.Write "    <TD class=vwStatCell>" & vbCrLf
        Response.Write "<div align=right>" & vbCrLf
        Response.Write "· 当前显示：&nbsp;&nbsp;第 " + CStr((page - 1) * mypagesize + 1) + " 至第 " + CStr(page * mypagesize) + " 条（共 " + CStr(rs.RecordCount) + " 条）"
        Response.Write " · 第" + CStr(page) + "页/总" + CStr(rs.PageCount) + "页   "
        Response.Write "        </TD>" & vbCrLf
        Response.Write "</TR>" & vbCrLf
        Response.Write "  <TR>" & vbCrLf
        Response.Write "    <TD class=vwStatCell>· 显示记录：&nbsp;<FONT class=CurrentPage></FONT>"
        
        For i = 1 To rs.PageCount
            If i <> page Then
                Response.Write "<a href=index.asp?page=" + CStr(i) + ">" + CStr((i - 1) * mypagesize + 1) + "-" + CStr(i * mypagesize) + "</a> "
            Else
                Response.Write "<font color='red'>" + CStr((i - 1) * mypagesize + 1) + "-" + CStr(i * mypagesize) + " </font>"
            End If
        Next
        
        Response.Write "     </TD>" & vbCrLf
        Response.Write "  </TR></TBODY></TABLE>" & vbCrLf
%>
    <table width='95%' border=0 align='center' cellpadding='0' cellspacing='1'  bordercolor=red>
	  <tr height='30' bgcolor='#cccccc' bordercolor='#6699cc'>  
		<td width='3%' nowrap class='td1'>NO. </td>  
		<td width='8%' nowrap class='td1'> 回复</td> 
		<td width='15%' nowrap class='td1'> 时间</td>
		<td width='50%' nowrap class='td1'> 主题 </td>
		<td width='15%' nowrap class='td1'> 发布用户 </td>
		<td width='10%' nowrap class='td1'> 操作 </td>
	 </tr>
<%
dim i 
i=1
Count = 0
do while not rs.eof  and mypagesize>0
Count = count + 1
id=rs("gbookid")
name=rs("name")
content=rs("content")
content=Autolink(content)
dateandtime=rs("dateandtime")
reply=rs("reply")

%>

      <tr height="30" id=tr1 bgcolor=#f7f7f7 bordercolor="#ffffff" LANGUAGE=javascript onmouseover="return tr1_onmouseover(<%=CStr((page - 1) * mypagesize + Count)-1 %>)" onmouseout="return tr1_onmouseout(<%=CStr((page - 1) * mypagesize + Count) -1%>)"> 
        <TD><%=CStr((page - 1) * mypagesize + Count) %>. </TD>
		<%
          set rs1=server.CreateObject("adodb.recordset")
          sql="select * from reply where reid="&id
          rs1.Open sql,conn,1
		  if not rs1.eof then
		     recount = "<font color=red><b>"+cstr(rs1.RecordCount) + "</b></font>"
		  else
		     recount = "无"
		  end if
	    %>
  	   <TD align="center"><%=recount%></TD>
	   <TD> <%=rs("dateandtime")%> </TD>		
	   <TD><a href="list.asp?id=<%=id%>"><b><%=rs("subject")%></b></a></TD>
	   <TD align="center"><%=name+"/"+rs("come")%></TD>
	   <TD align="center">
				<a href="reply.asp?id=<%=id%>"><b>回复</b></a>&nbsp;
				<% if oabusyuserlevel="最高管理员" then%><a href="javascript:cdel1('<%=id%>')">删除</a><%end if%>
	   </TD>
          </TR> 
  <%
mypagesize=mypagesize-1
i=i+1
rs.movenext
loop
%>
</table>
<br>
<table border="0" width="100%" cellspacing="0" cellpadding="0">    
  <tr>    
    <td width="100%"></td>    
  </tr>    
</table> 
<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> 
</BODY>
<%rs.Close
set rs=nothing
conn.close
set conn=nothing%>
</html>
⌨️ 快捷键说明

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