📄 index.asp

📁 ASP源文件
💻 ASP
字号:
<!--#include file="config.asp"-->
<%
on error resume next

set rs = server.createobject("adodb.recordset")
sql = "select * from config"
rs.open sql,conn,1,1

if date <> idate then
rs("today") = 0
end if
rs("date") = date
rs.update

rs.close

iaction = request.form("action")
if iaction = "search" then
ikey = request.form("key")
sql = "select * from content where content like '%" & ikey & "%' order by id desc"
else
sql = "select * from content order by id desc"
end if

rs.open sql,conn,1,1

ipage = 0

if rs.pagecount > 0 then
rs.pagesize = ipagesize
ipage = request("page")
if ( ipage - rs.pagecount ) > 0 then
ipage = rs.pagecount
elseif ipage = "" or ipage < 1 then
ipage = 1
end if
rs.absolutepage = ipage
end if

sql = "select * from news order by id desc"
set srs = server.createobject("adodb.recordset")
srs.open sql,conn,1,1
do while not srs.eof
inews = inews & """" & srs("news") & " [" & srs("date") & "]"","""","
srs.movenext
loop
srs.close
set srs = nothing
%>
<html>

<head>
<!--- The site is designed by Wind Song Studio --->
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="author" content="webmaster@i986.com">
<meta name="description" content="风雅颂工作室,Wind Song Studio.">
<meta name="keywords" content="风雅颂,工作室,设计,Studio,Wind,Song,Design">
<link href="style.css" rel="stylesheet" type="text/css">
<title><%=ititle%></title>
<script language="JavaScript1.2" type="text/javascript">
NS4 = (document.layers);
IE4 = (document.all);
   FDRboxWid = 250;
   FDRboxHgt = 20;
   FDRborWid = 2;
   FDRborCol = "#FFFFFF";
   FDRborSty = "solid";
   FDRbackCol = "#FFFFFF";
   FDRboxPad = 2;

   FDRtxtAln = "left";
   FDRlinHgt = "9pt";
   FDRfntFam = "宋体";
   FDRfntCol = "#800000";
   FDRfntSiz = "9pt";
   FDRfntWgh = "";
   FDRfntSty = "normal";
   FDRlnkCol = "#800000";
   FDRlnkDec = "none";
   FDRhovCol = "#800000";

   FDRgifSrc = "";
   FDRgifInt = 60;

   FDRblendInt = 5;
   FDRblendDur = 1;
   FDRmaxLoops = 100;

   FDRendWithFirst = true;
   FDRreplayOnClick = true;
   
   FDRjustFlip = false;
   FDRhdlineCount = 0;
</script>
<script language='JavaScript1.2' type='text/javascript'>
prefix="";
arNews = [
<%=inews%>
"<%=ititle%> [公告栏]",""
]
</script>
<script language='JavaScript1.2' src='fader.js' type='text/javascript'></script>
</head>

<body bgcolor="#EEEEEE" topmargin="0" leftmargin="0">

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="800">
    <tr>
      <td width="100" background="images/main/left.gif">　</td>
      <td width="600" bgcolor="#FFFFFF">
      <img border="0" src="images/main/top.jpg"></td>
      <td width="100" background="images/main/right.gif">　</td>
    </tr>
  </table>
  </center>
</div>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="800" height="100%">
    <tr>
      <td width="100" background="images/main/left.gif">　</td>
      <td width="600" bgcolor="#FFFFFF" valign="top">
      <div align="center">
      <center>
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="580">
        <tr>
          <td width="5%" align="center">
          <img border="0" src="images/main/now.gif"></td>
          <td width="35%">
          <p style="margin-top: 2"><a href="<%=iurl%>"><%=ihomepage%></a><span style="font-size: 6pt">&gt;&gt;</span><%=ititle%></td>
          <td width="20%" align="center">
          <a href="new.asp">
          <img border="0" src="images/main/new.jpg"></a></td>
          <td width="20%" align="center">
          <a href="index.asp">
          <img border="0" src="images/main/list.jpg"></a></td>
          <td width="20%" align="center">
          <a href="manage.asp">
          <img border="0" src="images/main/manage.jpg"></a></td>
        </tr>
      </table>
      </center>
      </div>
      <div align="center">
        <center>
      <table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="590">
        <tr>
          <td width="25%">
          <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#C1C1C1" width="100%" height="20">
            <tr>
              <td width="33%" bgcolor="#E4E4E4" align="center"><%=rs.pagecount%>页</td>
              <td width="67%" bgcolor="#E4E4E4" align="center"><%=itoday%>新/<%=rs.recordcount%>条</td>
            </tr>
          </table>
          </td>
          <td width="40%">
<%
ifirst = ipage - 4
if rs.pagecount > 9 and ( rs.pagecount - ipage ) < 5 then ifirst = rs.pagecount - 9
if rs.pagecount < 10 and ( rs.pagecount - ipage ) < 5 then ifirst = 1
if ( ipage - 5 ) < 0 then ifirst = 1
%>
          <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#C1C1C1" width="240" height="20">
            <tr>
              <td bgcolor="#E4E4E4" align="center" width="15">
<%
if ipage <= 1 then
%>
              <img border="0" src="images/main/dislatest.gif">
<%
else
%>
              <a href="index.asp?page=<%=ipage - 1%>"><img border="0" src="images/main/latest.gif"></a>
<%
end if
%>
              </td>
<%
for i = 1 to 10
if ifirst = rs.pagecount + 1 then exit for
if ifirst - ipage = 0 then
%>
              <td width="20" bgcolor="#FECD00" align="center"><b><%=ifirst%></b>　</td>
<%
else
%>
              <td width="20" bgcolor="#E7E7E7" align="center"><b><a href="index.asp?page=<%=ifirst%>"><%=ifirst%></a></b>　</td>
<%
end if
ifirst = ifirst + 1
next
if i < 11 then
for j = i to 10
%>
              <td width="20" bgcolor="#E4E4E4" align="center"></td>
<%
next
end if
%>
              <td bgcolor="#E4E4E4" align="center" width="15">
<%
if ipage - rs.pagecount = 0 then
%>
              <img border="0" src="images/main/disearliest.gif">
<%
else
%>
              <a href="index.asp?page=<%=ipage + 1%>"><img border="0" src="images/main/earliest.gif"></a>
<%
end if
%>
              </td>
            </tr>
          </table>
          </td>
          <form method="post" action="index.asp" name="go">
          <td width="35%">跳转第 
          <input type="text" name="page" size="5" style="color: #C1C1C1; height: 20; width: 20"> 
          页 
          <input type="submit" value="GO" style="width: 20; height: 20; color: #C1C1C1; font-size: 7pt; background-color: #E4E4E4"></td></form>
        </tr>
        <tr>
          <form method="post" action="index.asp" name="search"><input type="hidden" name="action" value="search">
          <td width="33%">
          <input type="text" name="key" size="10" style="color: #C1C1C1; height: 20; width: 125" value="搜索留言">
          <input type="submit" value="SEARCH" style="width: 50; height: 20; color: #C1C1C1; font-size: 7pt; background-color: #E4E4E4"></td>
          <td width="67%" colspan="2">
          <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3" height="20">
            <tr>
              <td width="20" valign="bottom"><img border="0" src="images/main/news.jpg"></td>
              <td valign="top"><div id="elFader" style="position:relative;visibility:hidden;width:100%"></div></td>
            </tr>
          </table>
          </td>
          </form>
        </tr>
      </table>
        </center>
      </div>
<%
i = 0
if not rs.eof then
do while not rs.eof
i = i + 1
if i > rs.pagesize then
exit do
end if
%>
      <div align="center">
        <center>
        <table border="0" cellpadding="2" cellspacing="1" style="border-collapse: collapse; border-style: solid; border-width: 1" bordercolor="#C1C1C1" width="580">
          <tr>
            <td width="27%" bgcolor="<%=icolor1%>" align="center"><%=rs("author")%></td>
            <td width="73%" bgcolor="<%=icolor1%>">
          <img border="0" src="images/main/now.gif"> <b>主题: <%=rs("title")%></b></td>
          </tr>
          <tr>
            <td width="27%" bgcolor="<%=icolor2%>" align="center" valign="top">
            <table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
              <tr>
                <td width="100%" align="center"><img border="0" src="images/face/<%=rs("face")%>.gif"></td>
              </tr>
              <tr>
                <td width="100%" align="center">
<%
if rs("oicq") <> "" and rs("oicq") <> 0 then
%>
                <a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=rs("oicq")%>"><img border="0" src="images/main/oicq.gif"></a>
<%
else
%>
                <img border="0" src="images/main/oicq.gif">
<%
end if
%>
                </td>
              </tr>
              <tr>
                <td width="100%" align="center">
<%
if rs("homepage") <> "" then
%>
                <a href="<%=rs("homepage")%>"><img border="0" src="images/main/homepage.gif"></a>
<%
else
%>
                <img border="0" src="images/main/homepage.gif">
<%
end if
%>
                </td>
              </tr>
              <tr>
                <td width="100%" align="center">
<%
if rs("email") <> "" then
%>
                <a href="mailto:<%=rs("email")%>"><img border="0" src="images/main/email.gif"></a>
<%
else
%>
                <img border="0" src="images/main/email.gif">
<%
end if
%>
                </td>
              </tr>
<%
if request.cookies("iadmin") = "admin" then
%>
              <tr>
                <td width="100%" align="center">
                <a href="reply.asp?id=<%=rs("id")%>"><img border="0" src="images/main/reply.gif"></a>
                </td>
              </tr>
              <tr>
                <td width="100%" align="center">
                <a href="delete.asp?id=<%=rs("id")%>"><img border="0" src="images/main/delete.gif"></a>
                </td>
              </tr>
<%
end if
%>
              <tr>
                <td width="100%" align="center">
<%
if iqqshow = 1 then
if rs("oicq") <> "" and rs("oicq") <> 0 then
inumber = 9 - len(rs("oicq"))
for j = 1 to inumber
ishow = ishow & 0
next
ishow = ishow & rs("oicq")
%>
<table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#C1C1C1" width="140" id="AutoNumber2" height="227">
  <tr>
    <td width="100%" bgcolor="#FFFFFF"><img border="0" src="http://qqshow-user.tencent.com/<%=ishow%>/10/00/"></td>
  </tr>
</table>
<%
end if
ishow = ""
end if
itest = rs("content")
if len(rs("title")) > 4 and left(rs("title"),5) = "【悄悄话】" and request.cookies("iadmin") <> "admin" then
itest = "<b><font color='#800000'>这条留言是悄悄话,如果你是管理员,请登陆后再看.</font></b>"
end if

%>
                </td>
              </tr>
              </table>
            </td>
            <td width="73%" bgcolor="<%=icolor3%>" valign="top">
            <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; table-layout: fixed" bordercolor="#111111" width="100%">
              <tr>
                <td width="5%" align="center" valign="top" rowspan="2">
                <img border="0" src="images/icon/<%=rs("icon")%>.gif"></td>
                <td width="95%" valign="top"><%=itest%><br>
                <font color="#C0C0C0"><%=rs("time")%></font></td>
              </tr>
              <tr>
                <td width="95%" valign="top">
<%
set rrs = server.createobject("adodb.recordset")
rsql = "select * from reply where topic = " & rs("id") & " order by id desc"
rrs.open rsql,conn,1,1
if not rrs.eof or rrs.bof then
do while not rrs.eof
%>
                <hr noshade color="#C1C1C1" size="1" style="border-style: dotted; border-width: 1">
                <font color="#800000"><b>站长回复:</b></font><br>
                <font color="#800000"><%=rrs("content")%></font><br>
                <font color="#C0C0C0"><%=rrs("time")%></font>
<%
rrs.movenext
loop
end if
rrs.close
set rrs = nothing
%>
                </td>
              </tr>
            </table>
            </td>
          </tr>
        </table>
        </center>
      </div>
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="10">
        <tr>
          <td width="100%"></td>
        </tr>
      </table>
<%
rs.movenext
loop
end if
response.write ibottom
%>
      </td>
      <td width="100" background="images/main/right.gif">　</td>
    </tr>
  </table>
  </center>
</div>
</body>

</html>
<%
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
💿 文件大小 160 K
👤 上传用户 Lxb500
📂 所属分类其他
🏷️ 相关标签

#ASP
⌨️ 快捷键说明

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