📄 qi163_admin.asp
字号:
<!--#include file="../Conn.asp"-->
<!--#include file="Conn.asp"-->
<%
if not session("mofeichenck")="true" then
response.redirect("login.asp")
else
set rs=server.createobject("adodb.recordset")
set showbbs=conn.execute("select*from mofeibook order by id desc")
rs.open "select*from mofeibook order by id desc",conn,1,1
order=0
count=rs.RecordCount
pagesize=10
pagecount=count\(pagesize+1)+1
page=request.QueryString("page")
if page="" then
page=1
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=name%></title>
<BASE onmouseover=window.status="<%=name%>(<%=http%>)----为您提供最丰富的网络资源！";return true>
<link href="../common/css/other.css" rel="stylesheet" type="text/css">
<link href="../common/css/font.css" rel="stylesheet" type="text/css">
<link href="../common/css/link.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
</head>
<body>
<table width="850" border="0" align="center" cellpadding="0" cellspacing="0" class="table_2">
<tr>
<td height="2"></td>
</tr>
</table>
<!--#include file="common/index_top.asp" -->
<!--#include file="common/menu.asp"-->
<table width="850" border="0" align="center" cellpadding="0" cellspacing="0" class="table_2">
<tr>
<td height="2"></td>
</tr>
</table>
<table width="850" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="table_2">
<tr>
<td> 现在是: <%=now()%> </td>
<td height="25"> <p align="right"> <a href="qi163_admin_edit.asp"> <img border="0" src="ymbimg/mo.gif" width="10" height="10"></a> <a href="input.asp">我要留言 <img border="0" src="ymbimg/mo.gif" width="10" height="10"></a> <a href="qi163_admin_edit.asp">密码修改</a> <a href="goout.asp"><img border="0" src="ymbimg/mo.gif" width="10" height="10"></a> <a href="goout.asp">退出登陆</a>
</td>
</tr>
</table>
<%
if not showbbs.eof then
showbbs.Move (page-1)*pagesize
cc=(page-1)*pagesize
do while (not showbbs.eof) and (order<pagesize)
cc=cc+1
order=order+1
%>
<table border="0" cellpadding="0" cellspacing="1" width="850" align="center" bgcolor="#999999" bordercolorlight="#ACC8F0" bordercolordark="#FFFFFF">
<tr>
<td bgcolor="#F7F7F7" width="21%" height="18"><img border="0" src="ymbimg/time.gif" width="19" height="14"> <%=showbbs("time_")%></td>
<td colspan="7" bgcolor="#F7F7F7" width="556"><img border="0" src="ymbimg/1title.gif" width="10" height="10"> <b><font color="#180682">标题: <%=DoTrimProperly((showbbs("title_").Value), 36, 0, 1, "...")%></font></b></td>
</tr>
<tr>
<td height="250" bgcolor="#FFFFFF" >
<p align="center"><img src="ymbqipic/<%=showbbs("face_")%>.jpg" width="140" border="0" align="middle"></p></td>
<td colspan="7" bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" width="570" align="center" style="word-break:break-all;table-layout:fixed">
<tr>
<td width="570"><br>
<img border="0" src="ymbimg/11.gif" width="9" height="9"> <font color="#004600">内容:</font> <%=showbbs("mofei_")%></td>
</tr>
<tr>
<td bgcolor="#FDFDFD">-----------------------------------------------------------------------------------------------</td>
</tr>
<tr>
<td width="100%" bgcolor="#FDFDFD"> <img border="0" src="ymbimg/req.gif" width="10" height="9">
<span class="font12_red">版主于：</span><font color="#808080"><%=showbbs("retime_")%> <span class="font12_red">回复：</span></font><font color="#808080"><%=showbbs("remofei_")%></font>
</td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#F7F7F7" width="21%" height="25">
<p align="center"><img border="0" src="ymbimg/where.gif" width="12" height="11"> <font color="#008000"><%=DoTrimProperly((showbbs("where_").Value), 4, 0, 1, "...")%></font> <img border="0" src="ymbimg/use.gif" width="16" height="18"> <b><font color="#5E0920"><%=DoTrimProperly((showbbs("use_").Value), 4, 0, 1, "...")%></font></b></p></td>
<td bgcolor="#F7F7F7">
<table border="0" cellpadding="0" cellspacing="0" width="554" align="right" bgcolor="#F7F7F7">
<tr>
<td width="30%" ></td>
<td width="10%"><img border="0" src="ymbimg/ip.gif" width="13" height="15" alt="IP:<%=showbbs("ip_")%>">查 IP</td>
<td width="10%"><img border="0" src="ymbimg/4_qq.gif" width="45" height="18" alt="QQ:<%=showbbs("qq_")%>"></td>
<td width="10%"><a href="<%=showbbs("home_")%>" target="_blank"><img border="0" src="ymbimg/1home.gif" width="47" height="18"></a></td>
<td width="10%"><a href="mailto:<%=showbbs("email_")%>"><img border="0" src="ymbimg/1email.gif" width="45" height="18"></a></td>
<td width="10%"><a href="admin_del.asp?Page=<%=Page%>&ID=<%=showbbs("ID")%>"><img border="0" src="ymbimg/del.gif" width="52" height="16"></a></td>
<td width="10%"><a href="wre.asp?Page=<%=Page%>&ID=<%=showbbs("ID")%>"><img border="0" src="ymbimg/re.gif" width="45" height="18"></a></td>
</tr>
</table></td>
</tr>
</table>
<%
showbbs.movenext
loop
end if
showbbs.Close
set showbbs=nothing
%>
<table width="850" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="table_2">
<tr>
<td>
<td colspan="7" bgcolor="#FFFFFF">
<p align="right">
<%if page>1 then%>
<a href="qi163_admin.asp?page=1">第一页</a> <a href="qi163_admin.asp?page=<%=page-1%>">上 页</a>
<%end if%>
<%if (page-pagecount)<0 then%>
<a href="qi163_admin.asp?page=<%=(page+1)%>">下 页</a> <a href="qi163_admin.asp?page=<%=pagecount%>">最后页</a>
<%end if%>
</p></td>
</tr>
</table>
<table width="850" border="0" align="center" cellpadding="0" cellspacing="0" class="table_2">
<tr>
<td height="5"></td>
</tr>
</table>
<!--#include file="common/bottom.asp" -->
<%end if%><%
function DoTrimProperly(str, nNamedFormat, properly, pointed, points)
dim strRet
strRet = Server.HTMLEncode(str)
strRet = replace(strRet, vbcrlf,"")
strRet = replace(strRet, vbtab,"")
If (LEN(strRet) > nNamedFormat) Then
strRet = LEFT(strRet, nNamedFormat)
If (properly = 1) Then
Dim TempArray
TempArray = split(strRet, " ")
Dim n
strRet = ""
for n = 0 to Ubound(TempArray) - 1
strRet = strRet & " " & TempArray(n)
next
End If
If (pointed = 1) Then
strRet = strRet & points
End If
End If
DoTrimProperly = strRet
End Function
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -