📄 news_list.asp
字号:
if IsEmpty(request("pagesize")) then
pagesize = ListRowsMax
else
pagesize = cint(request("pagesize"))
end if
'打开数据库
oConn_Start
dim body,loopT,loopH,arrClassId
thisurl = "news_list.asp?ClassFatherId="&ClassFatherId&"&classid="
dim page,sql,oRs,pagecount,recordcount,rows
dim dict
set dict = server.CreateObject("scripting.dictionary")
'获取快速通道的下拉列表
dict("#rapidoption#") = SelectTreeListSearch(0,0,ClassFatherId)
dict("#key#") = key
dict("#ClassId#") = ClassId
page = cint(Request("page"))
body = oTemplate.GetPart(oDict("template"),"<!--newslist-->","<!--//newslist-->")
loopT = oTemplate.GetPart(body,"<!--loop-->","<!--//loop-->")
set oRs = server.CreateObject("adodb.recordset")
'获取该分类下的所有子分类
If ClassId="" Then
arrClassId = ClassFatherId&""&getSort(0,ClassFatherId)
Else
arrClassId = ClassId&""&getSort(ClassId,ClassFatherId)
End If
sql = "Select n.*,c.ClassName From Sm_Content n Inner Join Sm_Class c On n.ClassId = c.ClassId Where n.NewsType="&ClassFatherId&" And n.ClassId in("&arrClassId&")"
If Key<>"" Then sql = sql + " And n.Title Like '%"&Key&"%'"
sql = sql + " Order by n.NewsId Desc"
'response.Write(sql)
oRs.Open sql,oConn,1,3
' 以下为翻页需要的代码+++++++++++++++++++++++猀?吢日??++++++++++
dim buttonstr '按钮字符串
buttonstr = "<td class=BT_TurnPageOper nowrap><input class=input type=""button"" value=""添加记录"" onclick=""window.location='news_list.asp?cmd=new'""></td>"
dict("#page#") = 0
recordcount = oRs.RecordCount
if(page>Fix((recordcount-1)/pagesize)) then page = Fix((recordcount-1)/pagesize)
if(page<=0) then
page = 0
else
oRs.Move pagesize * page
end if
' 调用翻页函数生成翻页HTML字符串 参数（总记录数，每页显示数，当前页数，按钮以及其他元素的字符串）替换HTML中的#PageStr#
dict("#PageStr#") = ShowTurnPage(recordcount,pagesize,page,buttonstr)
' 翻页代码结束+++++++++++++++++++++++++++++++++++++++
body = oTemplate.ReplaceMacros(body,dict)
dict.RemoveAll
rows = 0
do while not oRs.EOF
rows = rows + 1
dict("#rows#") = rows
dict("#NewsId#") = Null2Space(N2BS(oRs("NewsId")))
If oRs("validFlag")=1 then
dict("#check1#") = " selected"
Else
dict("#check2#") = " selected"
End If
dict("#Title#") = Null2Space(N2BS(oRs("Title")))
dict("#options#") = selectTreeList(0,0,oRs("ClassId"),ClassFatherId)
dict("#addtime#") = oRs("DateCreated")
dict("#Hits#") = oRs("ClickStat")
loopH = loopH & oTemplate.ReplaceMacros(loopT,dict)
dict.RemoveAll()
if(rows >= pagesize) then exit do
oRs.MoveNext
loop
body = oTemplate.ReplacePart(body,"<!--loop-->","<!--//loop-->",loopH)
oDict("template") = oTemplate.ReplacePart(oDict("template"),"<!--list-->","<!--//list-->",body)
oConn_Close
end function
%>
<!--body-->
<html>
<head>
<meta name="GENERATOR" Content="Microsoft FrontPage 5.0">
<meta name="ProgId" Content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" Content="text/html; charset=gb2312">
<Title>神马管理后台</Title>
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-color: #FC7E02;
}
.style1 {
color: #FF00FF;
font-style: italic;
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<Script Language="JavaScript" src="../global/script/CheckForm.js"></Script>
<Script Language="JavaScript" src="../global/script/AdminFunc.js"></script>
</head>
<body>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="98%" id="AutoNumber1" height="100%" bgcolor="#FFFFFF">
<tr>
<td align="center" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left"><img src="../images/15.gif" width="1" height="15"></td>
</tr>
<tr>
<td height="20" class="bborder1"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><a href="news_list.asp?cmd=new&ClassFatherId=#FatherTitleId#">[#FatherTitle#添加]</a>
<a href="news_list.asp?ClassFatherId=#FatherTitleId#"> [#FatherTitle#列表]</a></td>
<td align="right"> <span class="T01"> </span></td>
</tr>
</table></td>
</tr>
<tr>
<td align="left"><img src="../images/15.gif" width="1" height="15"></td>
</tr>
<tr>
<td align="left"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="35">
<!--list-->
<!--编辑开始-->
<!--edit-->
<script language="javascript" type="text/javascript">
//Form校验
function NoEntry()
{
if (!CheckNotNull(classform.Title, "#FatherTitle#标题")) {return false;}
}
</script>
<form name="classform" method="post" action="news_list.asp?ClassFatherId=#FatherTitleId#" onSubmit="return NoEntry()">
<table width="96%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="e0e0e0">
<tr bgcolor="#F7F7F7">
<td width="23%" align="center" bgcolor="#F7F7F7" class="T02"><input type="hidden" name="NewsId" value="#NewsId#">
<input name="cmd" type="hidden" id="cmd" value="#cmd#">
是否显示</td>
<td colspan="3" bgcolor="#FFFFFF" class="T03"><input name="ValidFlag" type="radio" value="1"#check1#>
是 <input type="radio" name="ValidFlag" value="0"#check2#>
否</td>
</tr>
<tr bgcolor="#F7F7F7">
<td width="23%" align="center" bgcolor="#F7F7F7" class="T02">类别</td>
<td width="22%" bgcolor="#FFFFFF" class="T03"><select name="ClassId" id="ClassId">
#options#
</select></td>
<td width="19%" align="center" class="T03">提交日期</td>
<td width="36%" bgcolor="#FFFFFF" class="T03"><input name="Addtime" type="text" class="input" id="Addtime" value="#Addtime#" size="20"></td>
</tr>
<tr bgcolor="#F7F7F7">
<td width="23%" align="center" bgcolor="#F7F7F7" class="T02">标题</td>
<td colspan="3" bgcolor="#FFFFFF" class="T03"><input name="Title" type="text" class="input" id="Title" value="#Title#" size="60">
</td>
</tr>
<tr bgcolor="#F7F7F7">
<td align="center" bgcolor="#F7F7F7" class="T02">内容</td>
<td colspan="3" bgcolor="#FFFFFF" class="T03"><input type="hidden" name="Content" value="#Content#">
<iframe ID="eWebEditor1" src="../global/editpage/ewebeditor.asp?id=Content&style=xueren" frameborder="0" scrolling="no" width="550" HEIGHT="250"></iframe></td>
</tr>
<tr bgcolor="#F7F7F7">
<td colspan="4" align="center" class="tablebutbk"><input name="Submit2" type="submit" class="button" value="#input#">
<input name="Submit2" type="reset" class="button" value="清 空 信 息"></td>
</tr>
</table>
</form>
<!--//edit-->
<!--编辑结束-->
<!--列表开始-->
<!--newslist-->
<!--搜索开始-->
<!--search-->
<form name="form2" method="post" action="?ClassFatherId=#FatherTitleId#" onSubmit="javascript:return reg_submit()">
<table width="70%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td>快速通道：</td>
<td><select name="select2" onChange="MM_jumpMenu('self',this,0)">
<option selected value="">全部</option>
#rapidoption#
</select></td>
<td>搜索</td>
<td><input name="key" type="text" id="key" class="input"> </td>
<td><input type="submit" name="Submit2" value="搜索"></td>
</tr>
</table>
</form>
<!--//search-->
<!--搜索结束-->
<br> <br>
<form name="form1" method="post" action="news_list.asp?ClassFatherId=#FatherTitleId#">
<input name="cmd" type="hidden" id="cmd" Value="News_EditDel">
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="e0e0e0">
<tr align="center" bgcolor="#FEF3E7" class="tabletopbk">
<td>操作</td>
<td>是否显示</td>
<td>标题</td>
<td>类别</td>
<td>点击数</td>
<td>编辑</td>
</tr>
<!--loop-->
<tr align="center" bgcolor="#F7F7F7">
<td width="7%" class="T01"><input name="selAnnounce" type="checkbox" value="#NewsId#"></td>
<td width="11%" class="T02"><select name="ValidFlag#NewsId#" id="ValidFlag#NewsId#" class="input">
<option value="1"#check1#>是</option>
<option value="0"#check2#>否</option>
</select></td>
<td width="34%" class="T03"><input name="Title#NewsId#" Value="#Title#" type="text" class="input" size="30"></td>
<td width="22%" class="T04"><span class="T03">
<select name="ClassId#NewsId#" id="ClassId" class="input">
#options#
</select>
</span></td>
<td width="13%" class="T05">#Hits#</td>
<td width="13%" class="T06"><a href="?NewsId=#NewsId#&cmd=edit&ClassFatherId=#FatherTitleId#">[编辑]</a></td>
</tr>
<!--//loop-->
<tr align="center" bgcolor="#F7F7F7">
<td colspan="6" class="tablebutbk"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="26%"><input name=chkall type=checkbox value=on onclick=CheckAll(this.form)>
全选 <input name="act" type="submit" class="button" value="删 除" onClick="{if(confirm('您确定执行的操作吗?')){this.document.form1.submit();return true;}return false;}">
<input name="act" type="submit" class="button" value="修 改" onClick="{if(confirm('您确定执行的操作吗?')){this.document.form1.submit();return true;}return false;}">
</td>
<td width="74%" align="right"> </td>
</tr>
</table></td>
</tr>
</table>
</form>
<form method=post name=frmSearch id=frmSearch action="news_list.asp?key=#key#&ClassId=#ClassId#&ClassFatherId=#FatherTitleId#">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right">
<input type=hidden name=page value="#page#">
#PageStr# </td>
</tr>
</table>
</form>
<!--//newslist-->
<!--列表结束-->
<!--//list-->
</td>
</tr>
</table></td>
</tr>
<tr>
<td align="left"> </td>
</tr>
</table></td>
</tr>
<tr>
<td align="right" valign="bottom"><!-- #BeginLibraryItem "/Library/copyright.lbi" -->
<a href="http://www.fashionsh.com.cn" target="_blank">时尚上海</a> 版权所有©2004<!-- #EndLibraryItem --></td>
</tr>
</table>
</body>
</html>
<!--//body-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -