user_messages.asp
来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 446 行 · 第 1/2 页
ASP
446 行
<!--#include file="user_top.asp"-->
<!--#include file="inc/class_blog.asp"-->
<%
Dim action
action = Trim(request("action"))
%>
</head>
<body scroll="no" style="overflow:auto!important;overflow:hidden;background:#fff;">
<%
Dim sIp
Dim rs, sql, blog,sGuide
Dim id, usersearch, Keyword, sField
Keyword = Trim(Request("keyword"))
If Keyword <> "" Then
Keyword = oblog.filt_badstr(Keyword)
End If
sIP=CheckIP(Request("IP"))
sField = Trim(Request("Field"))
usersearch = Trim(Request("usersearch"))
id = Trim(Request("id"))
If usersearch = "" Then
usersearch = 0
Else
usersearch = Int(usersearch)
End If
G_P_FileName = "user_messages.asp?usersearch=" & usersearch
If Keyword <> "" Then
G_P_FileName="user_messages.asp?usersearch=10&keyword="&Keyword&"&Field="&sField
End If
G_P_FileName =G_P_FileName & "&page="
If request("page") <> "" Then G_P_This = Int(request("page")) Else G_P_This = 1
If sIp <> "" Then G_P_FileName = "user_messages.asp"
Select Case action
Case "modify"
Call modify
Case "savemodify"
Call savemodify
Case "del"
Call delmessage
Case "passmessage"
Call passmessage
Case Else
Call ClearIpMessages(sIp)
Call main
End Select
Set rs = Nothing
Set blog = Nothing
%>
<div id="user_page_search">
<form name="form1" action="user_messages.asp" method="get">
快速查找留言:
<select size=1 name="usersearch" onChange="javascript:submit()">
<option value="0">列出所有留言</option>
<option value="2">已审核的留言</option>
<option value="3">待审核的留言</option>
<option value="10" selected>请选择查询类型</option>
</select>
搜索:
<select name="Field" id="Field">
<option value="id">作者</option>
<option value="ip">作者ip</option>
<option value="topic" selected>留言标题</option>
</select>
<input name="Keyword" type="text" id="Keyword" size="20" maxlength="30">
<input type="submit" value=" 搜索 ">
</form>
</div>
</body>
</html>
<%
Sub main()
server.ScriptTimeOut = 999999999
Dim ssql,lPage,lAll,lPages,iPage,i
ssql = "userid,messagetopic,addtime,messageid,message_user,addip,message,iState"
G_P_Guide = ""
Select Case usersearch
Case 0
sql="select "&ssql&" from [oblog_message] where userid="&oblog.l_uid&" order by messageid desc"
G_P_Guide = G_P_Guide & "所有留言"
Case 1
sql="select "&ssql&" from [oblog_message] where userid="&oblog.l_uid&" order by messageid desc"
G_P_Guide = G_P_Guide & "我的留言"
Case 2
sql="select "&ssql&" from [oblog_message] where userid="&oblog.l_uid&" and iState=1 order by messageid desc"
G_P_Guide = G_P_Guide & "已审核的留言"
Case 3
sql="select "&ssql&" from [oblog_message] where userid="&oblog.l_uid&" and iState=0 order by messageid desc"
G_P_Guide = G_P_Guide & "待审核的留言"
Case 10
If Keyword = "" Then
oblog.adderrstr ("错误：关键字不能为空！")
oblog.showusererr
Exit Sub
Else
Select Case sField
Case "id"
sql="select "&ssql&" from [oblog_message] where message_user like '%" & Keyword&"%' and userid="&oblog.l_uid&" order by messageid desc"
G_P_Guide = G_P_Guide & "作者名称中还有含有<font color=red> " & Keyword & " </font>的留言"
Case "topic"
sql="select "&ssql&" from [oblog_message] where messagetopic like '%" & Keyword & "%' and userid="&oblog.l_uid&" order by messageid desc"
G_P_Guide = G_P_Guide & "标题中含有“ <font color=red>" & Keyword & "</font> ”的留言"
Case "ip"
sql="select "&ssql&" from [oblog_message] where addip='" & Keyword&"' and userid="&oblog.l_uid&" order by messageid desc"
G_P_Guide = G_P_Guide & "作者ip为<font color=red> " & Keyword & " </font>的留言"
Case "content"
sql="select "&ssql&" from [oblog_message] where message like '%" & Keyword&"%' and userid="&oblog.l_uid&" order by messageid desc"
G_P_Guide = G_P_Guide & "留言内容中包含<font color=red> " & Keyword & " </font>的留言"
End Select
End If
Case Else
End Select
Set rs = server.CreateObject("Adodb.RecordSet")
rs.open sql, conn, 1, 3
lAll=INT(rs.recordcount)
If lAll=0 Then
rs.Close
Set rs=Nothing
%>
<div id="user_page_content">
<div id="content_li">
<ul class="content_li_conten">
<li class="t1"></li>
<li class="t3"> </li>
</ul>
<ul class="content_li_conten">
<li class="t1"></li>
<li class="t3"><%=sGuide & " 没有相关纪录" %></li></ul>
</div>
</div>
<%
Exit Sub
End If
i=0
iPage=12
'分页
If Request("page") = "" Or Request("page") ="0" then
lPage = 1
Else
lPage = Int(Request("page"))
End If
'设置缓存大小 = 每页需显示的记录数目
rs.CacheSize = iPage
rs.PageSize = iPage
rs.movefirst
lPages = rs.PageCount
If lPage>lPages Then lPage=lPages
rs.AbsolutePage = lPage
i=0
%>
<style type="text/css">
<!--
.content_li_top .t2 {width:88px;padding:0 0 0 10px;}
.content_li_top .t3 {width:38%;text-align:left}
.content_li_top .t4 {width:107px; text-align:left;padding-left:14px;}
.content_li_top .t5 {width:100px;text-align:left;margin:-2px 0 0 0;}
.content_li_top .t6 {width:100px;text-align:left}
#content_li .content_li_conten .t2 {width:85px;margin:-2px 0 0 0;color:#f60;text-align:left}
#content_li .content_li_conten .t3 {width:38%;line-height:1.5;margin:-2px 0 0 0;text-align:left;overflow:hidden;}
#content_li .content_li_conten .t4 {width:130px;color:#888;text-align:center;font-size:10px;}
#content_li .content_li_conten .t5 {width:120px;text-align:left;}
#content_li .content_li_conten .t6 a {color:#069;text-align:left}
#content_li .content_li_conten .t6 a:hover {color:#06c;text-align:left}
#content_li .content_li_conten .t6 {width:100px;text-align:left;font-size:10px;}
-->
</style>
<ul id="user_page_top">
<li id="p7"><a href="#" onclick="chk_idAll(myform,1)">全部选择</a></li>
<li id="p8"><a href="#" onclick="chk_idAll(myform,0)">全部取消</a></li>
<li id="p7"><a href="#" onclick="if (chk_idBatch(myform,'通过审核选中的留言吗?')==true) {document.myform.action.value='passmessage';document.myform.iState.value='1'; document.myform.submit();}">通过审核</a></li>
<li id="p8"><a href="#" onclick="if (chk_idBatch(myform,'取消审核选中的留言吗?')==true) {document.myform.action.value='passmessage';document.myform.iState.value='0'; document.myform.submit();}">取消审核</a></li>
<li id="p4"><a href="#" onclick="if (chk_idBatch(myform,'删除选中的留言吗?')==true) {document.myform.action.value='del';document.myform.submit();}">删除留言</a></li>
</ul>
<div id="showpage">
<%=MakeMiniPageBar(lAll,iPage,lPage,G_P_FileName)%>
</div>
<div id="user_page_content">
<ul class="content_li_top">
<li class="t1">选中</li>
<li class="t2">作者</li>
<li class="t3">留言标题</li>
<li class="t4">发表时间</li>
<li class="t5">IP</li>
<li class="t6">操作</li>
</ul>
<div id="content_li">
<form name="myform" method="Post" action="user_messages.asp" onSubmit="return confirm('确定要执行选定的操作吗？');">
<%
Do while not rs.EOF
i = i + 1%>
<ul class="content_li_conten" id="u<%=rs("messageid")%>" onclick="chk_iddiv('<%=rs("messageid")%>')">
<li class="t1" title="点击选中"><input name='id' type='checkbox' id="c<%=rs("messageid")%>" value='<%=rs("messageid")%>' onclick="chk_iddiv('<%=rs("messageid")%>')" /></li>
<li class="t2" title="作者：<%=oblog.filt_html(rs("message_user"))%>"><%=oblog.filt_html(rs("message_user"))%></li>
<li class="t3"><a href="go.asp?messageid=<%=rs("messageid")%>" target="_blank" title="
cssbody=[dvbdy1] cssheader=[dvhdr1] header=[<%=oblog.filt_html(rs("messagetopic"))%>] body=[<%=oblog.filt_html(FilterUbb(rs("message")))%>]"><%If rs("iState") = 0 Then %><font color=black>[待审]</font><%End if%><%=oblog.filt_html(rs("messagetopic"))%></a></li>
<li class="t4"><%=rs("addtime")%></li>
<li class="t6"><%=rs("addip")%></li>
<li class="t5">
<%
response.write "<a href='user_messages.asp?action=modify&id=" & rs("messageid") & "&re=true'>回复</a> "
response.write "<a href='user_messages.asp?action=modify&id=" & rs("messageid") & "'>修改</a> "
response.write "<a href='user_messages.asp?action=del&id=" & rs("messageid") & "' onClick='return confirm(""确定要删除此留言吗？"");'>删除</a>"
%>
</li>
</ul>
<%
If i>iPage Then Exit Do
rs.Movenext
Loop
rs.Close
Set rs = Nothing
%>
</ul>
<INPUT TYPE="hidden" name="iState">
<input type="hidden" name="action" value="">
</form>
</div>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?