📄 list.asp
字号:
<%Response.Buffer=true%>
<%
'修改：
'时间：
'模板设计：秦怀平(jincao@yeah.net)
'开发时间：2000.12
%>
<!--#include file="../include/odbc.asp" -->
<!--#include file="../include/killStr.asp" -->
<!--#include file="../include/checkUser.asp" -->
<!--#include file="../include/checkServer.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Qinhp NetModel Generator">
<meta name="Author" content="QinHuaiPing(秦怀平)">
<link rel="stylesheet" href="../script/style.css" type="text/css">
</head>
<%if request("mySql")="" then '第一次调用
sql=""
if request("infoid")<>"" then
sql=" infoid='"&request("infoid")&"'"
end if
if request("flag")<>"" then
if sql<>"" then
sql=sql&" and flag='"&request("flag")&"'"
else
sql=" flag='"&request("flag")&"'"
end if
end if
if sql<>"" then
sql=" where "&sql
end if
sql="select * from news2_judge"&sql&" order by judgeId desc"
else '翻页调用
sql=request("mySql")
end if%>
<body bgcolor="#FFFFE0">
<!--#include file="../include/rollPage.asp" -->
<%
set rs=server.CreateObject("adodb.recordset")
%>
<form method=POST action=<% =request.servervariables("path_info")%> name=list>
<p align=center><b><font size=4 color=#0000FF><u>网友评论列表</u></font></b></p>
<div align=center><center>
<table style="border: 1 solid #0000FF" width=100%>
<%if request("deleteSubmit")<>"" then
selectDelete = CStr(killStr(request("selectDelete")))
'删除所选
If selectDelete <> "" Then
selectDeleteArr = Split(selectDelete, ",")
selectDeleteNumber = UBound(selectDeleteArr)
For i = 0 To selectDeleteNumber
conn.execute "delete from news2_judge where judgeId='"&trim(selectDeleteArr(i))&"'"
next
end if
end if
rs.Open sql, conn, 3, 1
If Not rs.EOF Then
rs.PageSize = 13
rs.AbsolutePage = getPageNo(rs)
%>
<hr color=#FF0000>
<form method=POST action=<% =request.servervariables("path_info")%>>
<div align=center>
<center>
<table border=1 cellpadding=0 cellspacing=0>
<tr><input type=hidden name=infoid value=<%=request("infoid")%>>
<input type=hidden name=flag value=<%=request("flag")%>>
<td width=48 align=center><b>选择</b></td>
<td align=center><b>评论标题</b></td>
<td align=center><b>作者</b></td>
<td align=center><b>email</b></td>
<td align=center><b>点击数</b></td>
<td align=center><b>更新时间</b></td>
<td align=center><b>来源IP</b></td>
<td align=center><b>评论内容</b></td>
<!--<td width=54 align=center><b>编辑</b></td>-->
</tr>
<%For i = 1 To rs.PageSize
If rs.EOF Then Exit For%>
<tr>
<td align=center><input type=checkbox name=selectDelete value=<%=rs("judgeId")%>></td>
<td align=center><%=rs("judgeTitle")%> </td>
<td align=center><%=rs("author")%> </td>
<td align=center><%=rs("email")%> </td>
<td align=center><%=rs("clickNum")%> </td>
<td align=center><%=rs("regTime")%> </td>
<td align=center><%=rs("clientIp")%> </td>
<td align=center><%=rs("contents")%> </td>
<!--<td width=54 align=center><a href=update.asp?id=<%=rs("judgeId")%>>修改</a>--></td>
</tr>
<%rs.MoveNext
if rs.eof then exit for
next%>
<tr><td nowrap colspan=9 align=center><input type=submit value=删除所选 name=deleteSubmit onclick="if (confirm('您真的要该记录数据以及相关数据？')){return true;} else{return false;}" language=JScript></td>
</tr>
</table></form><form method=POST action=<% =request.servervariables("path_info")%> id=form1 name=form1>
<input type=hidden name=infoid value=<%=request("infoid")%>>
<input type=hidden name=flag value=<%=request("flag")%>>
<%call listPage(rs)%><%
else
Response.Write "此文章现在暂时还没有网友评论，请稍候再来查看！<a href=javascript:history.back()>按此返回</a>"
end if%>
</center>
</div>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -