📄 basparam_list.asp
字号:
dict("#check1#") =" checked"
dict("#check4#") =" checked"
dict("#BasicName#") = ""
dict("#Content#") = ""
dict("#input#") = "添加"&ClassName
body = oTemplate.ReplaceMacros(body,dict)
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
'打开数据库
oConn_Start
dim body,loopT,loopH,arrClassId
thisurl = "BasParam_List.asp?BasicType="&BasicType&"&classid="
dim page,sql,oRs,pagecount,recordcount,rows
dim dict
set dict = server.CreateObject("scripting.dictionary")
page = cint(Request("page"))
body = oTemplate.GetPart(oDict("template"),"<!--newslist-->","<!--//newslist-->")
loopT = oTemplate.GetPart(body,"<!--loop-->","<!--//loop-->")
set oRs = server.CreateObject("adodb.recordset")
'获取该分类下的所有子分类
'BasicType=request.querystring("BasicType")
sql = "Select * From Sm_BasicParam where BasicType="&BasicType
sql = sql + " Order by BasicId Desc"
'response.Write(sql)
'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='BasParam_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("#BasicId#") = Null2Space(N2BS(oRs("BasicId")))
If oRs("validFlag")=1 then
dict("#check1#") = " selected"
Else
dict("#check2#") = " selected"
End If
dict("#BasicName#") = Null2Space(N2BS(oRs("BasicName")))
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" 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="BasParam_List.asp?cmd=new&BasicType=#FatherBasicNameId#">[#FatherBasicName#添加]</a>
<a href="BasParam_List.asp?BasicType=#FatherBasicNameId#"> [#FatherBasicName#列表]</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.BasicName, "#FatherBasicName#名称")) {return false;}
}
</script>
<form name="classform" method="post" action="BasParam_List.asp?BasicType=#FatherBasicNameId#" 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="BasicId" value="#BasicId#">
<input name="cmd" type="hidden" id="cmd" value="#cmd#">
是否显示</td>
<td width="77%" 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 align="center" bgcolor="#F7F7F7" class="T02">名称</td>
<td colspan="3" bgcolor="#FFFFFF" class="T03"><input name="BasicName" type="text" class="input" id="BasicName" value="#BasicName#" 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-->
<!--//search-->
<!--搜索结束-->
<br>
<br>
<form name="form1" method="post" action="BasParam_List.asp?BasicType=#FatherBasicNameId#">
<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>
</tr>
<!--loop-->
<tr align="center" bgcolor="#F7F7F7">
<td width="7%" class="T01"><input name="selAnnounce" type="checkbox" value="#BasicId#"></td>
<td width="11%" class="T02"><select name="ValidFlag#BasicId#" id="ValidFlag#BasicId#" class="input">
<option value="1"#check1#>是</option>
<option value="0"#check2#>否</option>
</select></td>
<td width="34%" class="T03"><input name="BasicName#BasicId#" Value="#BasicName#" type="text" class="input" size="30"></td>
<td width="13%" class="T06"><a href="?BasicId=#BasicId#&cmd=edit&BasicType=#FatherBasicNameId#">[编辑]</a></td>
</tr>
<!--//loop-->
<tr align="center" bgcolor="#F7F7F7">
<td colspan="4" 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="BasParam_List.asp?BasicType=#FatherBasicNameId#">
<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 + -