<!--#include file="Conn.ASP"-->
<!--#include file="ConnUser.asp"-->
<!--#include file="Config.ASP"-->
<!--#include file="char.inc"-->
<!--#include file="chkuser.asp" -->
<!--#include file="ChkManage.asp" -->
<!--#include file="Function.asp"-->
<SCRIPT event=onclick for=Ok language=JavaScript>
  window.returnValue = a.value
  window.close();
</SCRIPT>
<script>
function IsDigit()
{
  return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
</script>
<%
if not(request.cookies(echsys)("ManageKEY")="super" or request.cookies(echsys)("ManageKEY")="typemaster" or request.cookies(echsys)("ManageKEY")="bigmaster") then
	Show_Err("对不起，您的后台管理权限不够操作！")
	response.end
else
	if shspecialgl="1" or (request.cookies(echsys)("ManagePurview")="99999" and request.cookies(echsys)("purview")="99999") then
	Set rs6 = Server.CreateObject("ADODB.Recordset")
	sql6 ="SELECT  * From "& db_wygkcn_Special_Table &" order by EC_SpecialID desc"
	RS6.open sql6,Conn,3,3
	
	PageShowSize = 10            '每页显示多少个页
	MyPageSize   = 6           '每页显示多少条
		
	If Not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Or Request("page") <=0 Then
		MyPage=1
	Else
		MyPage=Int(Abs(Request("page")))
	End if
	
	If Not rs6.eof then
		rs6.PageSize     = MyPageSize
		MaxPages         = rs6.PageCount
		rs6.absolutepage = MyPage
		total            = rs6.RecordCount
		i = 0
	%>
	
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=site.css rel=stylesheet>
<title><%=copyright%><%=version%>&nbsp;<%=ver%> - 专题管理</title>
</head>
<body topmargin="0">

<table width="100%" height="78" border="1" cellpadding="3" cellspacing="0" bordercolor="#FFDFBF" bgcolor="#FFFFFF" id="AutoNumber1" style="border-collapse: collapse">
<tr class="TDtop">
	<td  colspan="5" height=25 align="center" valign="middle">┊<strong>专 题 管 理</strong>┊</td>
</tr>
<tr align="center"  height=20>
	<td width="5%" height="25" >ID号</td>
	<td width="15%" >专题图片</td>
	<td width="36%" >专题名称</td>
	<td width="34%" >专题注释</td>
	<td width="10%" >执&nbsp;&nbsp;&nbsp;行</td>
</tr>
<%
do until rs6.eof or i= MyPageSize
fileExt=lcase(getFileExtName(rs6("picname")))
%>

<tr height=20>
	<td width="5%" height="26"  align="center" bgcolor="#FFFFFF"><%=rs6("EC_SpecialID")%>　</td>
	<td width="15%" height="26"  align="center" bgcolor="#FFFFFF">
                          <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
                          <img  src="<%=FileUploadPath & rs6("picname")%>" width="120" height="40" border=0 align="center">
                          <%end if%>
                          <%if fileext="swf" then%>
                          <object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000'  codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width="120" height="40" border=0 align="center">
                            <param name=movie value="<%=FileUploadPath & rs6("picname")%>">
                            <param name=quality value=high>
                            <param name='Play' value='-1'>
                            <param name='Loop' value='0'>
                            <param name='Menu' value='-1'>
                            <embed src="<%=FileUploadPath & rs6("picname")%>" width="120" height="40" border=0 align="center" pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'></embed>
                        </object>
<%end if%>	
	
	</td>
	<td width="36%"  align="center" bgcolor="#FFFFFF">
		<span style="CURSOR: hand" title="<%if rs6("specialzs")<>"" then%><%=rs6("specialzs")%><%else%>无<%end if%>"><%=rs6("E_SpecialName")%></span>
		<%if request.cookies(echsys)("ManageKEY")="super" then%>
		<font color=red>(<%=rs6("specialmaster")%>)</font>
	<%end if%>	</td>
	<td width="34%" > &nbsp;<%=rs6("Specialzs")%>　</td>
	<td width="10%"  align="center" bgcolor="#FFFFFF">
		<%if (specialgl="1" and request.cookies(echsys)("ManageKEY")="bigmaster") or (shspecialgl="1" and request.cookies(echsys)("ManageKEY")="check") or request.cookies(echsys)("ManageKEY")="super" or request.cookies(echsys)("ManageKEY")="typemaster" or rs6("specialmaster")=request.cookies(echsys)("ManageUserName") then%>
		<a href="Specialedit.asp?EC_SpecialID=<%=rs6("EC_SpecialID")%>" onMouseOver="window.status='编辑专题“<%=rs6("E_SpecialName")%>”的属性';return true;" onMouseOut="window.status='';return true;" title='编辑专题“<%=rs6("E_SpecialName")%>”的属性'>编辑</a>
		<a href="Specialkill.asp?EC_SpecialID=<%=rs6("EC_SpecialID")%>" onMouseOver="window.status='删除专题“<%=rs6("E_SpecialName")%>”';return true;" onMouseOut="window.status='';return true;" title='删除专题“<%=rs6("E_SpecialName")%>”'>删除</a>
	<%end if%>	</td>
</tr>
<%
rs6.MoveNext
i = i + 1
Loop

%>
  <tr>
    <td height="24" colspan="5" align="center">
共 <%=total%> 条，当前第 <%=Mypage%>/<%=Maxpages%> 页，每页 <%=MyPageSize%> 条 
<%
url="specialmanage.asp?"
							
PageNextSize=int((MyPage-1)/PageShowSize)+1
Pagetpage=int((total-1)/rs6.PageSize)+1

if PageNextSize >1 then
	PagePrev=PageShowSize*(PageNextSize-1)
	Response.write "<a href='" & Url & "page=" & PagePrev & "' title='上" & PageShowSize & "页'>上一翻页</a> "
	Response.write "<a href='" & Url & "page=1' title='第1页'>页首</a> "
end if
if MyPage-1 > 0 then
	Prev_Page = MyPage - 1
	Response.write "<a href='" & Url & "page=" & Prev_Page & "' title='第" & Prev_Page & "页'>上一页</a> "
end if

if Maxpages>=PageNextSize*PageShowSize then
	PageSizeShow = PageShowSize
Else
	PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1)
End if
If PageSizeShow < 1 Then PageSizeShow = 1
for PageCounterSize=1 to PageSizeShow
	PageLink = (PageCounterSize+PageNextSize*PageShowSize)-PageShowSize
	if PageLink <> MyPage Then
		Response.write "<a href='" & Url & "page=" & PageLink & "'>[" & PageLink & "]</a> "
	else
		Response.Write "<B>["& PageLink &"]</B> "
	end if
	If PageLink = MaxPages Then Exit for
	Next

if Mypage+1 <=Pagetpage  then
	Next_Page = MyPage + 1
	Response.write "<a href='" & Url & "page=" & Next_Page & "' title='第" & Next_Page & "页'>下一页</A>"
end if

if MaxPages > PageShowSize*PageNextSize then
	PageNext = PageShowSize * PageNextSize + 1
	Response.write " <A href='" & Url & "page=" & Pagetpage & "' title='第"& Pagetpage &"页'>页尾</A>"
	Response.write " <a href='" & Url & "page=" & PageNext & "' title='下" & PageShowSize & "页'>下一翻页</a>"
End if
%>	
	
	</td>
<%
else
	Response.write "<td width='100%' align=center>暂无专题</td>"
end if

rs6.close
set rs6=nothing
conn.close
set conn=nothing
%>	
  </tr>
</table>
<%
if (specialgl="1" and request.cookies(echsys)("Managekey")="bigmaster") or (shspecialgl="1" and request.cookies(echsys)("ManageKEY")="check") or request.cookies(echsys)("ManageKEY")="super" or request.cookies(echsys)("ManageKEY")="typemaster" then%>
<form method="post" action="SpecialAdd.asp" name="type">
<table width="100%" border="1" cellpadding="3" cellspacing="0" bordercolor="#FFDFBF" bgcolor="#FFFFFF"  style="border-collapse: collapse">
<tr class="TDtop">
	<td  colspan="2" height=25 align="center" valign="middle">┊<strong>添 加 专 题</strong>┊</td>
</tr>
  <tr>
    <td width="40%" height="29" align="center">专题名称：</td>
    <td width="60%">
	<input type="text" name="E_SpecialName" size="50">
</td>
  </tr>
  <tr>
    <td height="32" align="center">专题注释：</td>
    <td><textarea name="specialzs" cols="50" rows="5" class="text" style="font-family: 宋体; font-size: 9pt" title="在这里输入要添加的专题注释" onMouseOver="window.status='在这里输入要添加的专题注释';return true;" onMouseOut="window.status='';return true;"  ></textarea></td>
  </tr>
  <tr>
    <td height="30" align="center">专题图片：</td>
    <td><IFRAME name=zt src="UploadSpe.htm" frameBorder=0 width="100%" scrolling=no 
height=20></IFRAME>
		<input id=a name=picname title='可直接输入网上图片文件的地址，或由上传程序自动产生图片文件地址' size="60"><br><font color="#FF0000">从上传中自动获取地址，或者手动添加链接地址！</font>  	</td>
  </tr>
  <tr>
    <td height="24" colspan="2" align="center"><input type="hidden" name="Specialmaster" value="<%=request.cookies(echsys)("ManageUserName")%>">
		<input type="submit" name="Submit" value="添加" class=button onMouseOver="window.status='按这个按钮添加这个专题';return true;" onMouseOut="window.status='';return true;" title='按这个按钮添加这个专题' >
		<input type="reset" value="重写" name="B1" class=button onMouseOver="window.status='按这个按钮重新添加专题';return true;" onMouseOut="window.status='';return true;" title='按这个按钮重新添加专题' ></td>
  </tr>
</table>
</form>
<%end if%>
</body>
</html>
<!--#include file="Admin_Bottom.asp"-->
	<%else
		Show_Err("对不起，该功能已经被超级系统管理员关闭，您没有权限操作！")
		response.end
	end if
end if%>