📄 manageinforms.asp
字号:
<!--#include file="conn.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
else
if session("flag")=2 then
response.Write "<p align=center><font color=red>您没有此项目管理权限！</font></p>"
response.End
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/css.css" rel="stylesheet" type="text/css">
<body>
<%dim selectm,selectkey,selectbookid
selectkey=trim(request(trim("selectkey")))
selectm=trim(request("selectm"))
if selectkey="" then
selectkey=request.QueryString("selectkey")
end if
if selectm="" then
selectm=request.QueryString("selectm")
end if
selectbookid=request("selectbookid")
if selectbookid<>"" then
conn.execute "delete FROM inform where newsid in ("&selectbookid&")"
response.Redirect "manageinforms.asp"
response.End
end if
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
</tr>
<tr>
<form name="form1" method="post" action="">
<td height="100">
<%
Const MaxPerPage=20
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if
set rs=server.CreateObject("adodb.recordset")
select case selectm
case ""
rs.open "select newsid,title,updatetime FROM inform order by updatetime desc",conn,1,1
case "0"
rs.open "select newsid,title,updatetime FROM inform order by updatetime desc",conn,1,1
case "newsid"
rs.open "select newsid,title,updatetime FROM inform where newsid="&selectkey&" order by updatetime desc",conn,1,1
case "title"
rs.open "select newsid,title,updatetime FROM inform where title like '%"&selectkey&"%' order by updatetime desc",conn,1,1
case "content"
rs.open "select newsid,title,updatetime FROM inform where content like '%"&selectkey&"%' order by updatetime desc",conn,1,1
end select
if err.number<>0 then
response.write "数据库中无数据"
end if
if rs.eof And rs.bof then
Response.Write "<p align='center' class='contents'> 数据库中无数据！</p>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"manageinforms.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"manageinforms.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"manageinforms.asp"
end if
end if
end if
sub showContent
dim i
i=0%>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="4" align="center" background="../images/admin_bg_1.gif"><b><font color="#ffffff">商城专题管理</font></b></td>
</tr>
<tr >
<td width="10%" align="center" bgcolor="fbc2c2">序号</td>
<td width="50%" align="center" bgcolor="fbc2c2">文章标题</td>
<td width="30%" align="center" bgcolor="fbc2c2">加入时间</td>
<td width="10%" align="center" bgcolor="fbc2c2">选 择</td>
</tr>
<%
do while not rs.eof%>
<tr >
<td>
<div align="center"><a href=editbook.asp?id=<%=rs("newsid")%>>
</a><%=rs("newsid")%></div>
</td>
<td width="50%" STYLE='PADDING-LEFT: 10px'>
<a href=editinforms.asp?id=<%=rs("newsid")%>>
<% if len(replace(trim(rs("title")),"<br>",""))>16 then
response.write left(replace(trim(rs("title")),"<br>",""),14)&"..."
else
response.write replace(trim(rs("title")),"<br>","")
end if%>
</a></td>
<td align="center"><%=rs("updatetime")%></td>
<td align="center">
<input name="selectbookid" type="checkbox" id="selectbookid" value="<%=rs("newsid")%>">
</td>
</tr>
<%i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close
set rs=nothing%>
<tr >
<td height="30" colspan="4" align="right">
全选
<input type="checkbox" name="checkbox" value="Check All" onClick="mm()">
<input type="submit" name="Submit" value="删 除" onClick="return test();">
</td>
</tr>
</table>
<%
End Sub
Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If
Response.Write "<form method=Post action="&filename&"?selectm="&selectm&"&selectkey="&selectkey&" >"
Response.Write "<p align='center' class='contents'> "
If CurrentPage<2 Then
Response.Write "<font class='contents'>首页 上一页</font> "
Else
Response.Write "<a href="&filename&"?page=1&selectm="&selectm&"&selectkey="&selectkey&" class='contents'>首页</a> "
Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&selectm="&selectm&"&selectkey="&selectkey&" class='contents'>上一页</a> "
End If
If n-currentpage<1 Then
Response.Write "<font class='contents'>下一页 尾页</font>"
Else
Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&selectm="&selectm&"&selectkey="&selectkey&" class='contents'>"
Response.Write "下一页</a> <a href="&filename&"?page="&n&"&selectm="&selectm&"&selectkey="&selectkey&" class='contents'>尾页</a>"
End If
Response.Write "<font class='contents'> 页次：</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> "
Response.Write "<font class='contents'> 共有"&totalnumber&"专题 "
Response.Write "<font class='contents'>转到：</font><input type='text' name='page' size=2 maxlength=10 class=smallInput value="¤tpage&">"
Response.Write " <input type='submit' class='contents' value='GO' name='cndok' ></form>"
End Function
%>
<table width="12" height="7" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height=7></td>
</tr>
</table>
</td>
</form>
</tr>
</table>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td align="center" background="../images/admin_bg_1.gif"><b><font color="#ffffff">专题文章查询</font></b></td>
</tr>
<tr>
<form name="form2" method="post" action="manageinforms.asp">
<td height="50" >
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="35%" align="center">
<input name="selectkey" type="text" id="selectkey" onFocus="this.value=''" value="请输入关键字">
</td>
<td width="45%" align="center">
<select name="selectm" id="selectm">
<option value="0">全部文章</option>
<option value="newsid">按文章序号</option>
<option value="title">按文章标题</option>
<option value="content">按文章内容</option>
</select>
</td>
<td width="20%" height="30" align="center">
<input type="submit" name="Submit2" value="查 询">
</td>
</tr>
<tr><td colspan=3 height=40> 除查询“所有商品”外，必须要输入关键字，才能查询<br> 根据商品序号来查询时，关键字里只能输入数字。</td></tr>
</table>
</td>
</form>
</tr>
</table>
<!--#include file="foot.asp"-->
</body>
</html>
<script>
function test()
{
if(!confirm('确认删除吗？')) return false;
}
</script>
<script language=javascript>
function mm()
{
var a = document.getElementsByTagName("input");
if(a[0].checked==true){
for (var i=0; i<a.length; i++)
if (a[i].type == "checkbox") a[i].checked = false;
}
else
{
for (var i=0; i<a.length; i++)
if (a[i].type == "checkbox") a[i].checked = true;
}
}
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -