📄 manage.asp
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<script>function art(URL1)
{ window.open(URL1,"art","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,copyhistory=yes,width=400,height=400,left=10,top=10");
}</script>
<%
dim title,content,until0,city,county,personid,username0,power,useridpp,powerart
county=GetCountyID
city=GetCityID
personid=GetUserGID
username0=GetUserName
useridpp=GetUserGID
if county=0 and city=0 then
power=0
elseif city>0 and county=0 then
power=1
elseif city>0 and county>0 then
power=2
end if
if useridpp=8 then
call msg("分销商不能管理公告！",1,"")
else
dim rsnews,sqlnews
set rsnews=server.createobject("adodb.recordset")
if power=0 then
sqlnews="select * from T_News order by newsid desc"
elseif power=1 then
sqlnews="select * from T_News where (city='"&city&"' or city=0) and until0>0 order by newsid desc"
else
sqlnews="select * from T_News where ((city='"&city&"' and county=0) or (city='"&city&"' and county='"&county&"') or city=0) and until0>1 order by newsid desc"
end if
rsnews.open sqlnews,conn,3,3
Call page_code(rsnews,20)
If Not rsnews.Eof Then
IsFor=True
Else
IsFor=False
Response.write "<center><b><font color=red>暂无内容！</font></b></center>"
End IF
%>
<link href="../css/mobile_sale.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="topbg">
<td height="22" colspan="2" align="center"><strong>信 息 公 告</strong></td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航：</strong></td>
<td height="30">
<a href="list.asp">查看公告</a>
<%
if GetUserGPower<>9 then
%>
| <a href="manage.asp">管理公告</a> |
<a href="index.asp">增加公告</a>
<%
end if
%>
</td>
</tr>
</table>
<br>
<table width="650" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#66CC99" bordercolorlight="#F5FFF5">
<%
For i= 1 to rsnews.PageSize
If rsnews.Eof Then Exit For
if rsnews("city")=0 and rsnews("county")=0 then
powerart=0
elseif rsnews("city")>0 and rsnews("county")=0 then
powerart=1
elseif rsnews("city")>0 and rsnews("county")>0 then
powerart=2
end if
%>
<%if rsnews("until0")>power then%>
<%dim dian8,rspp,sqlpp
set rspp=server.createobject("adodb.recordset")
sqlpp="select UserUnit from T_user where UserName='"&rsnews("username")&"'"
rspp.open sqlpp,conn,3,3
if rspp.eof and rspp.bof then
dian8="未找到"
else
dian8=rspp("UserUnit")
end if
rspp.close
set rspp=nothing%>
<tr>
<td height="30"><img src="../images/nr_1.jpg" width="9" height="8" align="absmiddle"> <a href=javascript:art('view.asp?id=<%=rsnews("newsid")%>')><%=rsnews("title")%> (<%=dian8%>发布于<%=rsnews("Intime")%>)</a> <%if powerart>power or powerart=power then%>
| <a href="del.asp?id=<%=rsnews("newsid")%>"><font color="#FF0000">删除</font></a>
| <a href="modi.asp?id=<%=rsnews("newsid")%>"><font color="#FF0000">修改</font></a>
|
<%end if%></td>
</tr>
<%end if%>
<%
rsnews.MoveNext
Next
%>
<tr>
<td> <div align="center">
<table width="60%" border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<td height="40">
<%If IsFor Then Call page_code_down(rsnews,"","条记录") %>
</td>
</tr>
</table>
</div></td>
</tr>
</table>
<%
rsnews.close
set rsnews=nothing
conn.close
set conn=nothing
end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -