index.asp
来自「个人主页全站v2.0 个人主页全站v2.0 个人主页全站v2.0」· ASP 代码 · 共 356 行
ASP
356 行
<!--#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
sql = "select * from content order by id desc"
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
%>
<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>
<base target="_blank">
</head>
<body bgcolor="#EEEEEE" topmargin="0" leftmargin="0" background="../img/dnacebg2.jpg">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="800">
<tr>
<td width="100"> </td>
<td width="600" bgcolor="#cea772">
<img border="0" src="images/main/top.jpg"></td>
<td width="100"> </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"> </td>
<td width="600" bgcolor="#e4c59a" valign="top">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="580">
<tr>
<td width="100%" align="center" colspan="5">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="34">
<tr>
<td width="12%" align="center" height="34"></td>
<td width="12%" align="center" height="34"><a href="../index.htm"><img border="0" src="../img/index.gif" align="left" width="50" height="20"></a></td>
<td width="12%" align="center" height="34"><a href="../pic/"><img border="0" src="../img/xc.gif" align="left" width="50" height="20"></a></td>
<td width="12%" align="center" height="34"><a href="../music/"><img border="0" src="../img/y.gif" align="left" width="50" height="20"></a></td>
<td width="13%" align="center" height="34"><a href="../diary/"><img border="0" src="../img/rj.gif" align="left" width="50" height="20"></a></td>
<td width="13%" align="center" height="34"><a href="./"><img border="0" src="../img/gb.gif" align="left" width="50" height="20"></a></td>
<td width="13%" align="center" height="34"><a href="http://www.landao.com/bbs/" target="_blank"><img border="0" src="../img/bbs.gif" align="left" width="50" height="20"></a></td>
<td width="13%" align="center" height="34"><a href="../link/"><img border="0" src="../img/link.gif" align="left" width="50" height="20"></a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="5%" align="center">
<img border="0" src="images/main/now.gif"></td>
<td width="35%">
</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="#86540c" width="100%" height="20">
<tr>
<td width="33%" bgcolor="#cea772" align="center" bordercolor="#86540c"><%=rs.pagecount%>页</td>
<td width="67%" bgcolor="#cea772" align="center" bordercolor="#86540c"><%=itoday%>新/<%=rs.recordcount%>条</td>
</tr>
</table>
</td>
<td width="40%">
<%
ifirst = ipage - 4
if ( rs.pagecount - ipage ) < 5 then ifirst = rs.pagecount - 9
if ( ipage - 5 ) < 0 then ifirst = 1
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#86540c" width="240" height="20">
<tr>
<td bgcolor="#cea772" align="center" width="15" bordercolor="#86540c">
<%
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="#86540c" align="center" bordercolor="#86540c"><b><%=ifirst%></b> </td>
<%
else
%>
<td width="20" bgcolor="#cea772" align="center" bordercolor="#86540c"><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="#cea772" align="center" bordercolor="#86540c"></td>
<%
next
end if
%>
<td bgcolor="#cea772" align="center" width="15" bordercolor="#86540c">
<%
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: #cea772; height: 20; width: 20; background-color:#86540c">
页
<input type="submit" value="GO" style="width: 20; height: 20; color: #86540c; font-size: 7pt; background-color: #cea772"></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="#86540c" width="580" bgcolor="#cea772">
<tr>
<td width="25%" bgcolor="#86540c" align="center" bordercolor="#e4c59a"><%=rs("author")%></td>
<td width="75%" bgcolor="#86540c" bordercolor="#e4c59a">
<img border="0" src="images/main/now.gif"> <b>主题: <%=rs("title")%></b></td>
</tr>
<tr>
<td width="25%" bgcolor="#cea772" align="center" valign="top">
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" bgcolor="#cea772">
<tr>
<td width="100%" align="center" bgcolor="#e4c59a"><img border="0" src="images/face/<%=rs("face")%>.gif"></td>
</tr>
<tr>
<td width="100%" align="center" bgcolor="#e4c59a">
<%
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" bgcolor="#e4c59a">
<%
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" bgcolor="#e4c59a">
<%
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" bgcolor="#e4c59a">
<a href="reply.asp?id=<%=rs("id")%>"><img border="0" src="images/main/reply.gif"></a>
</td>
</tr>
<tr>
<td width="100%" align="center" bgcolor="#e4c59a">
<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" bgcolor="#e4c59a">
<%
if iqqshow = 1 then
if rs("oicq") <> "" and rs("oicq") <> 0 then
inumber = 9 - len(rs("oicq"))
for i = 1 to inumber
ishow = ishow & 0
next
ishow = ishow & rs("oicq")
%>
<table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#86540c" width="140" id="AutoNumber2" height="227">
<tr>
<td width="100%" bgcolor="#cea772"><img border="0" src="http://qqshow-user.tencent.com/<%=ishow%>/10/00/"></td>
</tr>
</table>
<%
end if
ishow = ""
end if
%>
</td>
</tr>
</table>
</td>
<td width="75%" bgcolor="#cea772" 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" bgcolor="#fcdfb5">
<img border="0" src="images/icon/<%=rs("icon")%>.gif"></td>
<td width="95%" valign="top" bgcolor="#fcdfb5" ><%=rs("content")%><br>
<font color="#86540c"><%=rs("time")%></font></td>
</tr>
<tr>
<td width="95%" valign="top" bgcolor="#e4c59a">
<%
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="#86540c" size="1" style="border-style: dotted; border-width: 1">
<b>站长回复:</b><br>
<%=rrs("content")%><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"> </td>
</tr>
</table>
</center>
</div>
<p align="center"> </p>
</body>
</html>
<%
rs.close
set rs = nothing
conn.close
set conn = nothing
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?