admin_art.asp

网站整站

<tr height="25" class=bg><td>&nbsp;查看权限：<input name="reads" type="radio" value="0" <%if rs("reads")=0 then response.write "checked" end if%>>&nbsp;访问游客&nbsp;<input name="reads" type="radio" value="1"  <%if rs("reads")=1 then response.write "checked" end if%>>&nbsp;普通用户&nbsp;<input name="reads" type="radio" value="2"  <%if rs("reads")=2 then response.write "checked" end if%>>&nbsp;收费用户&nbsp;积分：<input name="exper" type="text" class="yecao" style="width:30px" value="<%=rs("exper")%>"></td></tr>
<tr><td height="30" colspan=2><textarea name="content" id="content" style="display:none"><%=Server.HtmlEncode(rs("content"))%></textarea>
<iframe ID="HtmlEditor1" src='html/index.asp' frameborder=0 scrolling=no width='100%' HEIGHT='350'></iframe></td></tr><tr><td class="hr"></td></tr>
<tr height="30" class=foot><td align="center">
<input name="id" type="hidden" id="id" value="<%=rs("id")%>">
<input type="checkbox" name="best" value="1" <%if rs("best")="1" then response.write "checked" end if%>> 推荐
<input name="edit" type="submit" class="adminbutton" id="edit" value="修 改">&nbsp;<input name="Submit2" type="reset" class="adminbutton" value="清 空" onclick="ClearReset()">
<input type="checkbox" name="pass" value="1" <%if rs("pass")="1" then response.write "checked" end if%>> 通过
</td></tr>
</table></form></body></html>
<%rs.close
set rs=nothing
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◇功  能：处理编辑记录            ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
case "editok" 
set rs7=server.CreateObject("adodb.recordset")
sql7="select * from [YC_artclass] where id="&Cint(Trim(request.Form("class")))
rs7.open sql7,conn,1,1
set rs=server.CreateObject("adodb.recordset")
sql="select * from YC_art where id="&request("id")
rs.open sql,conn,1,3
	rs("title")=replace(trim(request.Form("title")),"'","")  
	rs("color")=replace(trim(request.Form("color")),"'","")  
	rs("pic")=replace(trim(request.Form("pic")),"'","")  
	rs("content")=replace(trim(request.Form("content")),"'","")  
	rs("writer")=replace(trim(request.Form("writer")),"'","")  
	rs("copyright")=replace(trim(request.Form("copyright")),"'","") 
	rs("commend")=replace(trim(request.Form("commend")),"'","")
	rs("bigclass")=cint(rs7("class"))
	rs("class")=cint(request.Form("class"))
	rs("showpage")=cint(request.Form("showpage"))
	rs("exper")=cint(request.Form("exper"))
	rs("reads")=cint(request.Form("reads"))
	rs("best")=cint(request.Form("best"))
	rs("pass")=cint(request.Form("pass"))
rs.update
rs.close
rs7.close
set rs7=nothing
YCGO("admin_art.asp")
set rs=nothing
case "pllist" 		
     call pllist()
case "pledit" 		
set rs=server.CreateObject("adodb.recordset")
sql="select * from YC_pl where id="&request("id")
rs.open sql,conn,1,1%>
<form name="form1" method="post" action="?action=pleditok">
<table width="400" align=center border="0" cellpadding="0" cellspacing="0" bordercolor="<%=border%>" rules=none class=3d>
<tr><td height="22"  class=title colspan=2><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;修改评论</b></td></tr>
<tr class=bg height=25><td>&nbsp;评论者：</td><td><input name="title" type="text" id="title" value="<%=rs("title")%>" size="20" class='yecao' style="width:120px"></td></tr>
<tr class=bg height=25><td valign=top>&nbsp;内&emsp;容：</td><td><textarea name="content" style="width:300px;height:65px;" id="content"><%=rs("content")%></textarea></td></tr>
<tr class=bg height=25><td align=center colspan=2>
<input name="id" type="hidden" id="editpl" value="<%=rs("id")%>">
<input name="editpl" type="submit" id="editpl" value="修 改" class=adminbutton></form>
</td></tr></table>
<%case "pleditok" 		
set rs=server.CreateObject("adodb.recordset")
sql="select * from YC_pl where id="&request("id")
rs.open sql,conn,1,3
if request.Form("editpl")<>""then
rs("title")=request.Form("title")
rs("content")=request.Form("content")
rs.update
YCGO("admin_art.asp")
end if
case else
     call list()
end select
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◇功  能：文章列表                ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub list()
if request.querystring("class")<>"" then
sql="select * from [YC_art] where class="&cint(request.querystring("class"))&" order by id desc" 
elseif request.querystring("bigclass")<>"" then
sql="select * from [YC_art] where bigclass="&cint(request.querystring("bigclass"))&" order by id desc" 
elseif request.querystring("nopass")<>"" then
sql="select * from [YC_art] where pass=0 order by id desc"
else											 
sql="select * from [YC_art] order by id desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table width="100%" align=center border="0" cellpadding="0" cellspacing="0" bordercolor="<%=border%>" rules=none class=3d>
<tr><td height="22" colspan="4" class=title><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;文章管理 [当前共有<%=YC(rs.recordcount)%>篇,其中等待审核的有<%call nopasstable("YC_art")%>篇]</b>
</td><td colspan="2"><%call showclass("YC_artclass","文章","admin_art.asp")%>
</td></tr>
<tr class=bg height="25">
<form  method="post" name="form" id="form" action="del.asp" onsubmit="return downdel();">
<td width="5%"  align=center>选定</td>
<td width="65%" align=center>标题</td>
<td width="10%"align=center>审核</td>
<td width="5%"align=center>点击</td>
<td width="20%" align=center>操作</td></tr><tr><td class="hr" colspan="6"></td></tr>
<%
if not rs.bof and not rs.eof then
rs.pagesize=cint(adminpage)
i=1
mypage=request("page")
if mypage="" then
mypage=1
else
mypage=cint(mypage)
end if
pages=rs.pagecount
rs.absolutepage=mypage
do while not rs.eof%>
<tr height=25 class=bg onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#efefef'">
<td>&nbsp;<input name='SoftID' type='checkbox' onclick="unselectall()" id="SoftID" value='<%=rs("id")%>'></td>
<td><font color="<%=rs("color")%>"><%=rs("title")%></font>&nbsp;<%if rs("best")=1 then%>『<font color=red>推荐</font>』<%end if%>&emsp;
<%if rs("pass")=0 then%>
<button class=button onclick="{if(confirm('您再次确定要删除『<%=rs("user")%>』发布的这条新闻吗?\n\n注意：删除后不可恢复,并且会扣掉『<%=rs("user")%>』的10点！')){window.location='?action=delnopass&user=<%=rs("user")%>&id=<%=rs("id")%>'}return false;}">不通过</button>
<%end if%></td>
<td align=center><%if rs("pass")=0 then%><font color=red><b>等待</b></font><%else%>通过<%end if%></td>
<td align=center><%=rs("click")%></td>
<td>&nbsp;<a href="?action=edit&id=<%=rs("id")%>">编辑</a>&nbsp;
<a href="showart.asp?id=<%=rs("id")%>" target=_blank>查看</a>&nbsp;<%response.Write adminpl("art",rs("id"))%></td></tr><tr><td class="hr" colspan="6"></td></tr>
<%
if i=rs.pagesize then exit do end if
i=i+1
rs.movenext
loop
end if
if rs.eof and rs.bof then
response.write"<tr><td colspan=6 height=100 align=center>暂时没有文章！</td></tr>"
else%>
<tr class=bg><td  height=25 colspan=6>
<table width=100% border=0><tr><td width=200>
&nbsp;<input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
<input name="submit" type="submit" onClick="document.form.Action.value='Del'" value="删 除" class=adminbutton>
<input name="Action" type="hidden" id="Action" value="Del">
<input name="tab" type="hidden" id="tab" value="YC_art">
<input name="url" type="hidden" id="url" value="admin_art.asp">
</td><td>
&emsp;&emsp;共有文章<font color=red><%=rs.recordcount%></font>条，每页<font color=red><%=rs.pagesize%></font>条，分<font color=red><%=mypage%></font>/<%=rs.pagecount%>页&emsp;&emsp;&emsp;
<script language="javascript">
showPageLink("?action=list&class=<%=request("class")%>&page=",<%=mypage%>,<%=pages%>);
</script>
</td></tr>
</table>
</td></tr>
</form>
<%end if%>
</table>
<%
rs.close
set rs=nothing%></td></tr></table>
<%end sub
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◇功  能：平论列表                ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub pllist()%>
<table width="100%" align=center border="0" cellpadding="0" cellspacing="0" bordercolor="<%=border%>" rules=none class=3d>
<tr><td height="22" colspan="6" class=title><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;评论管理 [关于《
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from YC_art where id="&request("plid")
rs.open sql,conn,1,1
response.Write rs("title")
rs.close
set rs=nothing
%>》的评论]</b></td></tr>
<tr class=bg height="25">
<form  method="post" name="form" id="form" action="del.asp" onsubmit="return downdel();">
<td width="5%"  align=center>选定</td>
<td width="50%" align=center>评论内容</td>
<td width="25%"align=center>评论者</td>
<td width="15%" align=center>操作</td></tr><tr><td class="hr" colspan="6"></td></tr>
<%
sql="select * from [YC_pl] where pltype='art' and plid="&request("plid")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
rs.pagesize=cint(adminpage)
i=1
mypage=request("page")
if mypage="" then
mypage=1
else
mypage=cint(mypage)
end if
pages=rs.pagecount
rs.absolutepage=mypage
do while not rs.eof%>
<tr height=25 class=bg onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#efefef'">
<td align=center>
<input name='SoftID' type='checkbox' onclick="unselectall()" id="SoftID" value='<%=rs("id")%>'></td>
<td><%=rs("content")%></td>
<td align=center><%=rs("title")%></td>
<td align=center><a href="?id=<%=rs("id")%>&action=pledit">编辑</a></td></tr><tr><td class="hr" colspan="6"></td></tr>
<%
if i=rs.pagesize then exit do end if
i=i+1
rs.movenext
loop
end if
if rs.eof and rs.bof then
response.write"<tr><td colspan=6 height=100 align=center>暂时没有文章评论！</td></tr>"
else%>
<tr class=bg><td  height=25 colspan=6>
<table width=100% border=0><tr><td width=200>
&nbsp;<input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
<input name="submit" type="submit" onClick="document.form.Action.value='Del'" value="删 除" class=adminbutton>
<input name="Action" type="hidden" id="Action" value="Del">
<input name="tab" type="hidden" id="tab" value="YC_pl">
<input name="url" type="hidden" id="url" value="admin_art.asp">
</td><td>
&emsp;&emsp;共有文章评论<font color=red><%=rs.recordcount%></font>条，每页<font color=red><%=rs.pagesize%></font>条，分<font color=red><%=mypage%></font>/<%=rs.pagecount%>页&emsp;&emsp;&emsp;
<script language="javascript">
showPageLink("?action=pllist&page=",<%=mypage%>,<%=pages%>);
</script>
</td></tr>
</table>
</td></tr>
</form>
<%end if%>
</table>
<%
rs.close
set rs=nothing
end sub
call closedata()%>