📄 news_class_list.asp
字号:
oDict("template") = oTemplate.ReplacePart(oDict("template"),"<!--list-->","<!--//list-->",body)
set dict = nothing
end function
function ShowList()
dim pagesize
if IsEmpty(request("pagesize")) then
pagesize = ListRowsMax
else
pagesize = cint(request("pagesize"))
end if
dim body,loopT,loopH
dim page,sql,oRs,pagecount,recordcount,rows
dim dict
page = cint(Request("page"))
body = oTemplate.GetPart(oDict("template"),"<!--newslist-->","<!--//newslist-->")
loopT = oTemplate.GetPart(body,"<!--loop-->","<!--//loop-->")
'打开数据库
oConn_Start
set oRs = server.CreateObject("adodb.recordset")
'sql = "Select * From Sm_Class Where ClassId in("&ClassFatherId&""&getSort(ClassFatherId)&") And ClassId<>"&ClassFatherId&" Order by orderno,ClassId Desc"
sql = "Select * From Sm_Class Where ClassType="&ClassFatherId&" and FatherId=0 Order by ClassName"
'response.Write(sql)
'response.End()
oRs.Open sql,oConn,1,3
set dict = server.CreateObject("scripting.dictionary")
' 以下为翻页需要的代码+++++++++++++++++++++++++++++++++
dim buttonstr '按钮字符串
buttonstr = "<td class=BT_TurnPageOper nowrap><input class=input type=""button"" value=""添加记录"" onclick=""window.location='news_class_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)
dict("#ClassFatherId#")=ClassFatherId
' 翻页代码结束+++++++++++++++++++++++++++++++++++++++
body = oTemplate.ReplaceMacros(body,dict)
dict.RemoveAll
'response.Write(body)
'response.End()
rows = 0
do while not oRs.EOF
rows = rows + 1
dict("#rows#") = rows
dict("#ClassId#") = oRs("ClassId")
dict("#addtime#") = now()
dict("#InputClassName#") = "<input name=""ClassName"&oRs("classid")&""" Value="""&oRs("ClassName")&""" type=""text"" class=""input"" size=""30"">"
dict("#ClassFatherId#") = ClassFatherId
loopH = loopH & oTemplate.ReplaceMacros(loopT,dict)
'loop
sql = "Select * From Sm_Class Where FatherId ="&oRs("ClassId")&" Order by ClassName"
set tempRs = oConn.Execute(sql)
while not tempRs.eof
dict("#ClassId#") = tempRs("ClassId")
dict("#InputClassName#") = " ┰┰<input name=""ClassName"&tempRs("classid")&""" Value="""&tempRs("ClassName")&""" type=""text"" class=""input"" size=""30"">"
dict("#ClassFatherId#") = ClassFatherId
dict("#addtime#") = now()
loopH = loopH & oTemplate.ReplaceMacros(loopT,dict)
sql = "Select * From Sm_Class Where FatherId ="&tempRs("ClassId")&" Order by ClassName"
set tempRs1 = oConn.Execute(sql)
while not tempRs1.eof
dict("#ClassId#") = tempRs1("ClassId")
dict("#InputClassName#") = " ┰┰┰┰<input name=""ClassName"&tempRs1("classid")&""" Value="""&tempRs1("ClassName")&""" type=""text"" class=""input"" size=""30"">"
dict("#ClassFatherId#") = ClassFatherId
dict("#addtime#") = now()
loopH = loopH & oTemplate.ReplaceMacros(loopT,dict)
tempRs1.MoveNext
Wend
tempRs1.Close
Set tempRs1 = Nothing
tempRs.MoveNext
Wend
tempRs.Close
Set tempRs = Nothing
if rows > ListRowsMax-1 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">
<script language="javascript" src="../global/Script/YiFangCheckForm.js"></script>
<Script Language="JavaScript" src="../global/script/AdminFunc.js"></script>
<SCRIPT LANGUAGE="JavaScript">
<!--
//弹出式报警
g_check.alert = true;
//-->
</SCRIPT>
<style type="text/css">
<!--
body {
background-color: #FC7E02;
}
-->
</style>
</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_class_list.asp?cmd=new&ClassFatherId=#FatherTitleId#">[#FatherTitle#添加]</a>
<a href="news_class_list.asp?ClassFatherId=#FatherTitleId#"> [#FatherTitle#列表]</a></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="3" cellspacing="1">
<tr>
<td height="35">
<!--list-->
<!--编辑开始-->
<!--edit-->
<script language="javascript" type="text/javascript">
//Form校验
function NoEntry()
{
if (!CheckNotNull(classform.ClassName, "类别名称")) {return false;}
}
</script>
<form name="classform" method="post" action="news_class_list.asp?ClassFatherId=#FatherTitleId#" onSubmit="return NoEntry()">
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="40" align="center" class="T01">总分类：</td>
<td height="40" class="T08"><select name="FatherId" id="FatherId" class="input">
#options#
</select></td>
</tr>
<tr>
<td height="40" align="center" class="T01">类别名称：</td>
<td height="40" class="T05"><input name="ClassName" type="text" id="ClassName" value="#ClassName#" class="input">
<input type="hidden" name="classid" value="#classid#">
<input type="hidden" name="cmd" value="#cmd#">
*中间不能有空格</td>
</tr>
<tr>
<td height="40" align="center" class="T01"> </td>
<td height="40" class="T07"><input type="submit" name="Submit" value="#input#" class="input"></td>
</tr>
</table>
</form>
<!--//edit-->
<!--编辑结束-->
<!--列表开始-->
<!--newslist-->
<form name="form1" method="post" action="news_class_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="T01">
<td>操作</td>
<td>标题</td>
<td width="35%">添加时间</td>
<td>编辑</td>
</tr>
<!--loop-->
<tr align="center" bgcolor="#F7F7F7">
<td width="7%" class="T01"><input name="selAnnounce" type="checkbox" value="#ClassId#"></td>
<td width="47%" class="T03"><span class="T03">#InputClassName#</span></td>
<td class="T05">#addtime#</td>
<td width="11%" class="T06"><a href="?ClassId=#ClassId#&cmd=edit&ClassFatherId=#ClassFatherId#">[编辑]</a></td>
</tr>
<!--//loop-->
<tr align="center" bgcolor="#F7F7F7">
<td colspan="4" class="T01">
<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_class_list.asp?ClassFatherId=#ClassFatherId#">
<input type=hidden name=page value="#page#">
#PageStr#
</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 + -