📄 admin.asp
字号:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<%
Dim con,conStr
Set con = server.CreateObject("adodb.connection")
conStr = "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("db.mdb")
con.open conStr
Dim rs2
Set rs2 = server.CreateObject("adodb.recordset")
Dim sql2
sql2 = "select * from config"
rs2.open sql2,con,1,3
%>
<title><%=rs2("title")%></title>
<link rel="stylesheet" type="text/css" href="css/style.css">
<script type="text/javascript" src="js/script.js"></script>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
color: #FF66FF;
}
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-image: url(images/5.gif);
background-repeat: repeat;
}
.words {
font-size: 12px;
font-style: normal;
line-height: normal;
font-weight: normal;
font-variant: normal;
color: #FF0000;
text-decoration: underline;
}
a:link {
color: #FF0000;
text-decoration: none;
}
a:visited {
color: #FF0000;
text-decoration: none;
}
a:hover {
color: #00FF66;
text-decoration: underline;
}
a:active {
color: #FF00FF;
text-decoration: none;
}
.STYLE2 {color: #000000}
-->
</style>
</head>
<body onload="showDate()">
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0" class="borall">
<td><input type="image" name="imageField" src="images/2.gif" /></td>
<tr>
<td><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="right"><marquee>
<%=rs2("board") %>
</marquee></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="260" class="words" id="myDate"> </td>
<td align="right"><a href="guanli.asp">[上一步] </a>
<a href="index.asp">[发表留言] </a></td>
</tr>
</table></td>
</tr>
<tr>
<td align="center"><img src="images/line.gif" width="741" height="10" /></td>
</tr>
<tr>
<td align="center"><br/>
<%
dim rs
set rs = server.CreateObject("adodb.recordset")
dim sql
sql = "select * from msg order by shijian desc"
rs.open sql,con,1,3
rs.pagesize = rs2("pagesize")
dim ipage
ipage=request("page")
if (ipage)="" then ipage=1 end if
if cint(ipage)<1 then ipage=1 end if
if cint(ipage)>rs.pagecount then ipage=rs.pagecount end if
rs.absolutepage=ipage
for i=1 to rs.pagesize
if rs.eof=true then
exit for
end if
%>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" class="borall">
<tr>
<td width="160" align="center" valign="top" class="borright">[NO.<%=rs("id")%>]<br />
<%response.write rs("nicheng")%><br />
<img src="images/img/<%=rs("touxiang")%>.gif" width="90" height="90" /></td>
<td align="left"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0" class="bordown">
<tr>
<td width="200" height="22">发表时间:<%=rs("shijian")%></td>
<td width="20" align="center"><img src="images/qq.gif" width="18" height="18" /></td>
<td width="90"><%=rs("qq")%></td>
<td width="20" align="center"><img src="images/status_5.gif" width="14" height="11" /></td>
<td width="130"><%response.write rs("email")%> </td>
<td width="80" align="center"><a href="#" onclick="del(<%=rs("id")%>)">删除</a>
<a href="#" onclick="recontent(<%=rs("id")%>)">回复</a> </tr>
</table></td>
</tr>
<tr>
<td align="left"><%response.write rs("liuyan")%>
<br />
</td>
</tr>
</table>
<%
If rs("status")=false Then
response.write "<font color='red'>此留言为悄悄话!</font>"
End if
%>
<form id="hform<%=rs("id")%>" action="modi.asp" method="post">
<input type="hidden" value="<%=rs("id")%>" name="txtid" />
<textarea name="txtcontent" cols="50" rows="5" id="txtcontent"><%=rs("recontent")%></textarea>
</form>
</tr>
</table>
<br />
<%
rs.movenext
next
%>
<br />
<br />
</td></tr>
<tr>
<td align="center"><table width="90%" border="0" align="center">
<tr>
<td align="center" bgcolor="#CCCCCC" class="borall">
<a href="admin.asp?page=1">首页 </a>
<a href="admin.asp?page=<%=(ipage-1)%>">上一页</a>
<a href="admin.asp?page=<%=(ipage+1)%>">下一页</a>
<a href="admin.asp?page=<%=rs.pagecount%>">末页 </a>
</td>
</tr>
</table></td>
</tr>
<tr>
<td>
<br/></td>
</tr>
<tr>
<td height="50" align="center" bgcolor="#C96BB8"><span class="STYLE2">版权所有 盗版必究</span></td>
</tr>
</table>
<bgsound src="<%=rs2("bgsound")%>" />
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -