📄 index.asp
字号:
<html>
<head>
<title>∷公文传输系统|电子公文交换系统|文件传输系统|办公自动化系统|公文管理系统|文档管理软件|公文上报系统|政务信息上报系统 ——智元软件</title>
<META name="keywords" content="公文传输系统 电子公文交换系统 企业文档传输系统 文件传输系统 办公自动化系统 公文管理系统 企业文档管理软件 公文上报系统 政务信息上报系统 智元软件">
<META content="智元软件公文传输系统实现党政机关企事业单位部门与部门之间，单位与单位之间公文上报和下发。我们致力于为您提供操作简便、直观实用、价格便宜的公文交换软件，可直接在线或下载试用，每套系统仅售1200元。上百家成功应用客户案例和我们诚信专业完善的售后服务，是您信任我们的基础。" name="description">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<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>
<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="config.asp" -->
<%
response.buffer=true
Response.Expires=0
%><script language="JavaScript">
function cdel(id){
var id;
if (confirm("注意:删除不可恢复!你真的要删除 这条反馈意见吗？")){
document.location.href="index.asp?action=del&id="+id;
}
}
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")="del" then
sql="delete from reply where id="&request("id")
conn.execute sql
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
%>
<table width="90%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#000000">
<tr>
<td>
<table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="#FFFFFF" align="center">
<tr><td>
<table width="100%" border="0" align="center">
<tr>
<td> </td>
<td>
<div align="center"><img src="images/1.gif" width="300" height="60" border="1" alt="请您留言"></div>
</td>
<td> </td>
</tr>
</table>
<table width="300" border="0" align="center">
<tr>
<td>
<div align="center"><a href="add.asp">我要留言</a></div>
</td>
</tr>
</table>
<%
dim i
i=1
do while not rs.eof and mypagesize>0
id=rs("gbookid")
name=rs("name")
email=rs("email")
homepage=rs("homepage")
oicq=rs("oicq")
head=rs("head")
content=rs("content")
content=Autolink(content)
dateandtime=rs("dateandtime")
reply=rs("reply")
sex=rs("sex")
hip=cint(rs("hip"))
ip=rs("ip")
%>
<CENTER>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="80%">
<TBODY>
<TR>
<TD rowSpan=3 vAlign=top> </TD>
<TD vAlign=top height="11">
<div align="right"><% if oabusyname="管理员" then%><a href="javascript:cdel1('<%=id%>')">删除</a><%end if%></div>
</TD>
<TD rowSpan=3 vAlign=top> </TD>
</TR>
<TR>
<TD background=images/hr.gif><IMG height=2
src="images/hr.gif" width=1></TD>
</TR>
<TR>
<TD height=92>
<TABLE border=1 borderColorDark=#dedfdf borderColorLight=#666666
cellPadding=2 cellSpacing=0 height=1 width="100%">
<TBODY>
<TR>
<TD bgColor=#eaeaea width=58>
<div align="center">姓 名:</div>
</TD>
<TD width="210"><%=name%></TD>
<TD width="41">
<div align="center"><a href="reply.asp?id=<%=id%>">回复</a></div>
</TD>
<TD bgColor=#eaeaea width=62>
<DIV align=center>本条位置:</DIV>
</TD>
<TD width="113">No.<%=i+(page-1)*rs.pagesize%>, 共<font color=""><%=total%></font> 条</TD>
</TR>
<TR>
<TD bgColor=#eaeaea width=58>
<div align="center">来 自:</div>
</TD>
<TD colspan="2"><%=rs("come")%></TD>
<TD bgColor=#eaeaea width=62>
<div align="center">联系电话: </div>
<div align=center></div>
</TD>
<TD width="113"><%=oicq%></TD>
</TR>
<TR>
<TD bgColor=#eaeaea width=58>
<div align="center">邮 件:</div>
</TD>
<TD colspan="2"><A href="mailto:<%=email%>"
title=给<%=name%>发信><%=email%></A></TD>
<TD bgColor=#eaeaea width=62><div align="center">留言时间:</div></TD>
<TD width="113"><%=dateandtime%></TD>
</TR>
<TR>
<TD bgColor=#eaeaea width=58>
<div align="center">主 页:</div>
</TD>
<TD colspan="2"><A href="<%=homepage%>" target=_blank
title=访问<%=name%>的主页><%=homepage%></A></TD>
<TD bgColor=#eaeaea width=62><div align="center">IP 地 址:</div></TD>
<TD width="113">
<%if hip=0 then%>
<%=ip%>
<%else%>
保密
<%end if%>
</TD>
</TR>
<TR>
<TD bgColor=#eaeaea width=58 rowspan="2">
<div align="center">留言内容:</div>
</TD>
<TD colSpan=4><B><%=content%></b> </TD>
</TR> <TR><TD colSpan=4>
<%if reply=-1 then
set rs1=server.CreateObject("adodb.recordset")
sql="select * from reply where reid="&id
rs1.Open sql,conn,1
if not rs1.EOF and not rs1.BOF then
do while not rs1.EOF %>
<font color="#666666">回复作者:<%=rs1("name")%>,<%if rs1("tel")<>"" then%>电话:<%=rs1("tel")%><%end if%><%if rs1("hip")=-1 then
else Response.Write "IP:"&rs1("ip")
end if%>(<%=rs1("datetime")%>)<%if oabusyname="管理员" then%><a href="javascript:cdel('<%=rs1("id")%>')">(删除)</a><%end if%></font><br>
<%=rs1("content")%><br><hr width="95%" noshade size="1" color="#666666" align="center">
<%rs1.MoveNext
loop
end if
rs1.Close
set rs1=nothing
end if
%> </TD></TR>
</TBODY>
</TABLE>
</TD>
</TR>
<TR>
<TD> </TD>
<TD> </TD>
<TD> </TD>
</TR>
</TBODY>
</TABLE>
<BR>
<%
mypagesize=mypagesize-1
i=i+1
rs.movenext
loop
%>
<table>
<TR>
<TD class=newfont6 height=1 width="100%"><font color="#336699"> 共 <%=rs.pagecount%>
页 当 前 第 <%=page%> 页 留 言 分 页：
<%
if page>1 then%>
<a href='index.asp?page=<%=page-1%>'>上一页</a>
<%
end if
%>
<%
if rs.pagecount <= 8 then
for j=1 to rs.pagecount
response.write "<a href='index.asp?page="&j&"'>["&j&"]</a>"
next
else
for j=1 to 8
response.write "[<a href='index.asp?page="&j&"'>"&j&"</a>] "
next
response.write "[<a href='index.asp?page="&rs.pagecount&"' title='最后一页'>>></a>]"
end if
%>
<%
if page<rs.pagecount then%>
<a href='index.asp?page=<%=page+1%>'>下一页</a>
<%
end if
%>
</font></TD>
</TR>
</TABLE>
</CENTER>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%"></td>
</tr>
</table>
</BODY>
<%rs.Close
set rs=nothing
conn.close
set conn=nothing%>
</html>
<!--#include file="../footer.htm"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -