📄 mynews.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 "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
end if
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="file:///E|/myweb/shop/images/css.css" rel="stylesheet" type="text/css">
<style>
td{font-size:9pt;line-height:120%;color:#353535}
body{font-size:9pt;line-height:120%}
a:link { color: #000000; text-decoration: none }
a:visited { color: #000000; text-decoration: none }
a:active { color: #000000; text-decoration: none }
a:hover { color: #336699; text-decoration: none; position: relative; right: 0px; top: 1px }
</style>
</head>
<body bgcolor="#D9E6FF">
<%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="95%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td rowspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
<tr>
<td class="12v" >
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="16">
<div align="center"><font color="#000000">专题文章查看与修改</font></div>
</td>
</tr>
<tr>
<form name="form1" method="post" action="">
<td height="113">
<%'开始分页
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 width="90%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#E8F1FF">
<td width="9%">
<div align="center">序号</div>
</td>
<td width="50%">
<div align="center">文章标题</div>
</td>
<td width="32%">
<div align="center">加入时间</div>
</td>
<td width="9%">
<div align="center">选 择</div>
</td>
</tr>
<%
do while not rs.eof%>
<tr bgcolor="#E8F1FF">
<td width="9%">
<div align="center"><a href=file:///E|/myweb/shop/admin/editbook.asp?id=<%=rs("newsid")%>>
</a><%=rs("newsid")%></div>
</td>
<td width="50%" STYLE='PADDING-LEFT: 10px'>
<a href=file:///E|/myweb/shop/admin/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 width="32%">
<div align="center"><%=rs("updatetime")%></div>
</td>
<td width="9%">
<div align="center">
<input name="selectbookid" type="checkbox" id="selectbookid" value="<%=rs("newsid")%>">
</div>
</td>
</tr>
<%i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close
set rs=nothing%>
<tr bgcolor="#E8F1FF">
<td height="30" colspan="4">
<div align="right">
<input type="submit" name="Submit" value="删 除" onClick="return test();">
</div>
</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>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<script>
function test()
{
if(!confirm('确认删除吗？')) return false;
}
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -