📄 unregulatelist.asp
字号:
{
ListObjArray[ElIndex].Obj.className='TempletSelectItem';
ListObjArray[ElIndex].Selected=true;
}
}
}
}
}
else
{
for (i=0;i<ListObjArray.length;i++)
{
if (el==ListObjArray[i].Obj)
{
ListObjArray[i].Obj.className='TempletSelectItem';
ListObjArray[i].Selected=true;
}
else
{
ListObjArray[i].Obj.className='TempletItem';
ListObjArray[i].Selected=false;
}
}
}
}
function AddRule() {location = 'UnRegulateAdd.asp';}
function EditRule()
{
var SelectedItem='';
for (i=0;i<ListObjArray.length;i++)
{
if (ListObjArray[i].Selected==true)
{
if (ListObjArray[i].Obj.ItemID!=null)
{
if (SelectedItem=='') SelectedItem=ListObjArray[i].Obj.ItemID;
else SelectedItem=SelectedItem+'***'+ListObjArray[i].Obj.ItemID;
}
}
}
if (SelectedItem!='')
{
if (SelectedItem.indexOf('***')==-1) location.href='UnRegulateEdit.asp?ItemID='+SelectedItem;
else alert('请选择一个项目');
}
else alert('请选择一个项目');
}
function DelRule()
{
var SelectedItem='';
for (i=0;i<ListObjArray.length;i++)
{
if (ListObjArray[i].Selected==true)
{
if (ListObjArray[i].Obj.ItemID!=null)
{
if (SelectedItem=='') SelectedItem=ListObjArray[i].Obj.ItemID;
else SelectedItem=SelectedItem+'***'+ListObjArray[i].Obj.ItemID;
}
}
}
if (SelectedItem != '')
{
tempFrame.location ='UnRegulateDel.asp?ItemID='+SelectedItem;
}else alert('请选择需要删除的项目');
}
function ChangePage(PageNum)
{
window.location.href='?page_no='+PageNum;
}
</script>
</head>
<body topmargin="2" leftmargin="2" onClick="SelectItem();" onselectstart="return false;" style="overflow-Y:auto;">
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#999999">
<tr bgcolor="#EEEEEE">
<td height="26" colspan="5" valign="middle">
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width=35 align="center" alt="新建规则" onClick="AddRule();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">新建</td>
<td width=2 class="Gray">|</td>
<td width=35 align="center" alt="修改规则" onClick="EditRule();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">修改</td>
<td width=2 class="Gray">|</td>
<td width=35 align="center" alt="删除规则" onClick="DelRule();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">删除</td>
<td width=2 class="Gray">|</td>
<td width=35 align="center" alt="后退" onClick="top.GetEkMainObject().history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
<td> </td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" height="93%" border="0" cellpadding="1" cellspacing="0">
<tr>
<td colspan="5" height="2"></td>
</tr>
<tr>
<td valign="top">
<table width="100%" border="0" cellpadding="2" cellspacing="0">
<tr>
<td width="35%" height="26" class="ButtonListLeft"> <div align="center">主新闻</div></td>
<td width="*" height="20" class="ButtonList"> <div align="center">不规则预览</div></td>
<td width="15%" height="20" class="ButtonList"> <div align="center">创建时间</div></td>
</tr>
<%
Dim RsNewsObj,tmpRsObj
Set RsNewsObj = server.createobject(G_FS_RS)
Set tmpRsObj = server.createobject(G_FS_RS)
'取主新闻ID
Dim MainNewsID
RsNewsObj.Open "Select DisTinct UnRegulatedMain From [Fs_UnRGLNews]",Conn,1,1
If not RsNewsObj.Eof Then
MainNewsID = RsNewsObj.GetString(,,"",",","")
End If
RsNewsObj.Close
If MainNewsID <> "" Then
MainNewsID = split(Left(MainNewsID,Len(MainNewsID)-1),",")
Else
MainNewsID = split(MainNewsID,",")
End If
Dim page_no,page_total,record_all,i,Page_Size
page_no=request.querystring("page_no")
if page_no<=1 or page_no="" then page_no=1
If Request.QueryString("page_no")="" then
page_no=1
end if
Page_Size = 20
Record_all = Ubound(MainNewsID)+1
If Record_All mod Page_Size > 0 Then Page_total = Record_all \ Page_Size + 1 : Else Page_total = Record_all \ Page_Size
if Clng(Page_No) > CLng(Page_total) Then Page_No = Page_Total
Dim CurPos,EndPos
CurPos = (Page_No-1) * Page_size
If CurPos>0 Then CurPos = CurPos -1
EndPos = CurPos + Page_Size - 1
If Clng(EndPos) >= Clng(Record_All) Then EndPos = Record_All-1
If Page_Total>0 Then
Dim NewsTitle,ListStr,ItemID,AddDate
for i = CurPos to EndPos
ListStr = "" : ItemID = ""
tmpRsObj.open "Select Title From [FS_News] Where NewsID='"&MainNewsID(i)&"'",Conn,1,1
If Not tmpRsObj.eof then NewsTitle = tmpRsObj(0) : Else NewsTitle = "新闻已经删除"
tmpRsObj.close
RsNewsObj.open "Select UnregulatedMain,ID,NewsIndexTitle,MainUnregNewsID,AddDate from [FS_UnRGLNews] Where UnregulatedMain='"&MainNewsID(i)&"' order by AddDate",conn,1,1
Do while not RsNewsObj.eof
If MainNewsID(i) = RsNewsObj("MainUnRegNewsID") Then AddDate = RsNewsObj("AddDate")
ListStr = ListStr & " <a href='"&GetOneNewsLinkURL(RsNewsObj("MainUnRegNewsID"))&"' target=_blank>" & RsNewsObj("NewsIndexTitle")&"</a>"
ItemID = ItemID & "," & RsNewsObj("ID")
RsNewsObj.MoveNext
Loop
RsNewsObj.Close
ItemID = Mid(ItemID,2)
%>
<tr>
<td><img src="../../Images/info/unrule.gif" width="16" height="18" align="absmiddle">
<span ItemID="<%=ItemID%>" class="TempletItem"><%=NewsTitle%></span>
</td>
<td><%=ListStr%></td>
<td align="center"><%=AddDate%></td>
</tr>
<%
Next
End IF
%>
</table>
</td>
<%if page_total>1 then%>
</tr>
<tr>
<td valign="middle" height="10" class="ButtonListLeft">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr height="1">
<td width="42%" height="18"> </td>
<td width="51%" height="25" valign="middle"> <div align="right">
<% = "NO.<b>"& page_no &"</b>, " %>
<% = "Totel:<b>"& page_total &"</b>, RecordCounts:<b>" & record_all &"</b> "%>
<%
if Page_Total=1 then
response.Write " <img src=../images/FirstPage.gif border=0 alt=首页></img> "
response.Write " <img src=../images/prePage.gif border=0 alt=上一页></img> "
response.Write " <img src=../images/nextPage.gif border=0 alt=下一页></img> "
response.Write " <img src=../images/endPage.gif border=0 alt=尾页></img> "
else
if cint(Page_No)<>1 and cint(Page_No)<>Page_Total then
response.Write " <a href=?page_no=1" &"&Keywords="&Request("Keywords")&"><img src=../images/FirstPage.gif border=0 alt=首页></img></a> "
response.Write " <a href=?page_no="&cstr(cint(Page_No)-1) &"&Keywords="&Request("Keywords")&"><img src=../images/prePage.gif border=0 alt=上一页></img></a> "
response.Write " <a href=?page_no="&cstr(cint(Page_No)+1) &"&Keywords="&Request("Keywords")&"><img src=../images/nextPage.gif border=0 alt=下一页></img></a> "
response.Write " <a href=?page_no="& Page_Total &"&Keywords="&Request("Keywords")&"><img src=../images/endPage.gif border=0 alt=尾页></img></a> "
elseif cint(Page_No)=1 then
response.Write " <img src=../images/FirstPage.gif border=0 alt=首页></img></a> "
response.Write " <img src=../images/prePage.gif border=0 alt=上一页></img> "
response.Write " <a href=?page_no="&cstr(cint(Page_No)+1) &"&Keywords="&Request("Keywords")&"><img src=../images/nextPage.gif border=0 alt=下一页></img></a> "
response.Write " <a href=?page_no="& Page_Total &"&Keywords="&Request("Keywords")&"><img src=../images/endpage.gif border=0 alt=尾页></img></a> "
else
response.Write " <a href=?page_no=1" &"&Keywords="&Request("Keywords")&"><img src=../images/FirstPage.gif border=0 alt=首页></img> "
response.Write " <a href=?page_no="&cstr(cint(Page_No)-1) &"&Keywords="&Request("Keywords")&"><img src=../images/prePage.gif border=0 alt=上一页></img></a> "
response.Write " <img src=../images/nextPage.gif border=0 alt=下一页></img></a> "
response.Write " <img src=../images/endpage.gif border=0 alt=尾页></img> "
end if
end if
%>
</div></td>
<td width="7%" valign="middle"><select onChange="ChangePage(this.value);" style="width:50;" name="select">
<% for i=1 to Page_Total %>
<option <% if cint(Page_No) = i then Response.Write("selected")%> value="<% = i %>">
<% = i %>
</option>
<% next %>
</select></td>
</tr>
</table>
</td>
</tr>
<%end if%>
</table>
<iframe name="tempFrame" height=0 width=0 frameborder=0 style="display:none"></iframe>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -