www.gusucode.com > 掌柜网店购物系统 4.0码程序 > admin/managezhuanti.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><title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../img/css.css" rel="stylesheet" type="text/css">
<style>
BODY {
SCROLLBAR-FACE-COLOR: #e7e7e7;
SCROLLBAR-HIGHLIGHT-COLOR: #ffffff;
SCROLLBAR-SHADOW-COLOR: #d4d0c8;
SCROLLBAR-3DLIGHT-COLOR: #FFFFFF;
SCROLLBAR-ARROW-COLOR: #ffffff;
SCROLLBAR-TRACK-COLOR: #f7f7f7;
SCROLLBAR-DARKSHADOW-COLOR: #e7e7e7;
}
</style>
</head>
<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 zhuanti where newsid in ("&selectbookid&")"
response.Redirect "managezhuanti.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=10
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 zhuanti order by updatetime desc",conn,1,1
case "0"
rs.open "select newsid,title,updatetime from zhuanti order by updatetime desc",conn,1,1
case "newsid"
rs.open "select newsid,title,updatetime from zhuanti where newsid="&selectkey&" order by updatetime desc",conn,1,1
case "title"
rs.open "select newsid,title,updatetime from zhuanti where title like '%"&selectkey&"%' order by updatetime desc",conn,1,1
case "content"
rs.open "select newsid,title,updatetime from zhuanti 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,"managezhuanti.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"managezhuanti.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"managezhuanti.asp"
end if
end if
end if
sub showContent
dim i
i=0%>
<table class="tableBorder" width="96%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="4" align="center" bgcolor="#dfdfdf"><b>货款通知管理</font></b></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="10%" align="center"><strong>序号</strong></td>
<td width="50%" align="center"><strong>文章标题</strong></td>
<td width="30%" align="center"><strong>加入时间</strong></td>
<td width="10%" align="center"><strong>选 择</strong></td>
</tr>
<%
do while not rs.eof%>
<tr bgcolor="#f2f2f2">
<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=zhuantiedit.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 bgcolor="#f2f2f2">
<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="96%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td align="center" bgcolor="#dfdfdf"><b>专题文章查询</font></b></td>
</tr>
<tr>
<form name="form2" method="post" action="managezhuanti.asp">
<td height="50" bgcolor="#f2f2f2">
<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="copyright.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>