?? manage_info.asp
字號(hào):
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../css/style.css" rel=stylesheet type=text/css>
<SCRIPT language=javascript1.2 src="../css/iXs_Main.js"></SCRIPT>
<script>
var checkflag="false";
function check(field){
if(checkflag=="false"){
for(i=0;i<field.length;i++){
field[i].checked=true;}
checkflag="true";
return "解除全選"; }
else {
for(i=0;i<field.length;i++) {
field[i].checked=false;}
checkflag="false";
return "選擇全部";}}
</script>
<title>幫助信息管理</title>
<%
if not isempty(request("selAnnounce")) then
newsidlist=request("selAnnounce")
if instr(newsidlist,",")>0 then
dim newsidarr
newsidArr=split(newsidlist)
dim log_newsid
for i = 0 to ubound(newsidarr)
log_newsid=clng(newsidarr(i))
call deleteannounce(log_newsid)
next
else
call deleteannounce(clng(newsidlist))
end if
end if
keywords=replace_text(request("keywords"))
if request("typeid")>"" then
if Chkrequest(request("typeid")) then
typeid=request("typeid")
else
Response.Redirect ("/login/chklogin.asp?login=4")
end if
end if
set rs=server.createobject("adodb.recordset")
sql="select * from news"
if typeid>"" then sql=sql&" where typeid="&typeid&""
if keywords>"" then sql=sql&" and title like '%"&keywords&"%'"
sql=sql&" order by newsid desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
msg_per_page=20 '定義每頁顯示記錄條數(shù)
%>
<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class="tableBorder">
<tr class='topbg'>
<th height='22' colspan='5' class="tableHeaderText">商業(yè)信息管理</th>
</tr>
<tr class='tdbg'>
<td width='82' height='30' class="forumRowHighlight"><strong>管理導(dǎo)航：</strong></td>
<td colspan='4' class="forumRowHighlight"><a href='Admin_Article.asp?ChannelID=1&Passed=All'>資訊管理首頁</a> | <a href='Admin_Article.asp?ChannelID=1&Action=Add&AddType=2&ClassID=0&SpecialID=0'>添加資訊</a> | <a href='Admin_Article.asp?ChannelID=1&ManageType=Check&Passed=False'>審核資訊</a></td>
</tr>
<tr class='tdbg'>
<td width='82' height='30' class="forumRowHighlight"><strong>管理選項(xiàng)：</strong></td>
<td class="forumRowHighlight"> <input name='Passed' type='radio' value='All' onclick='submit();' checked>
所有資訊
<input name='Passed' type='radio' value='False' onclick='submit();'>
未審核的資訊
<input name='Passed' type='radio' value='True' onclick='submit();'>
已審核的資訊
<input name='Passed' type='radio' value='True' onclick='submit();'>
已生成HTML的資訊</td>
</tr>
<tr class='tdbg'>
<td height='30' class="forumRowHighlight"><strong>搜索選項(xiàng)：</strong></td>
<td class="forumRowHighlight"><FORM name=searchForm action="index.asp" method=post onsubmit="javascript:if(doSearch()==false) return false;">
<input name="keywords" type="text" value="<%=keywords%>">
所屬類別：
<select name="typeid" size="1">
<%
set rs1=conn.execute("select * from newsType")
do while not rs1.eof
response.write "<option value='"&rs1("typeid")&"'>"&rs1("type")&" 類信息</option>"&chr(13)+chr(10)
rs1.movenext
loop
rs1.close
%>
</select>
<input type="submit" value="立刻查找" id=submit name=submit>
</form></td>
</tr>
</table>
<br>
<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class="tableBorder">
<tr class="forumRowHighlight">
<td height='22' class="forumRowHighlight">| <a href='Admin_Article.asp?ChannelID=1&Action=Manage&ManageType=&ClassID=1'>業(yè)界</a> | <a href='Admin_Article.asp?ChannelID=1&Action=Manage&ManageType=&ClassID=8'>民企</a> | <a href='Admin_Article.asp?ChannelID=1&Action=Manage&ManageType=&ClassID=13'>營銷</a> | <a href='Admin_Article.asp?ChannelID=1&Action=Manage&ManageType=&ClassID=23'>人力資源</a> | <a href='Admin_Article.asp?ChannelID=1&Action=Manage&ManageType=&ClassID=30'>組織戰(zhàn)略</a> | <a href='Admin_Article.asp?ChannelID=1&Action=Manage&ManageType=&ClassID=37'>職場人生</a> | <a href='Admin_Article.asp?ChannelID=1&Action=Manage&ManageType=&ClassID=42'>綜合管理</a> | <a href='Admin_Article.asp?ChannelID=1&Action=Manage&ManageType=&ClassID=52'>行業(yè)分析</a> | </td>
</tr>
<tr class="forumRowHighlight">
<td height='22' class=forumRow> </td>
</tr>
</table>
<SCRIPT LANGUAGE='JavaScript' SRC='/js/search.js' TYPE='text/javascript'></script>
<!--#include file="../../inc/headpage.asp"-->
<Form name="search" method="POST" action="index.asp">
<table wnewsidth="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
<tr>
<th height=25 colspan="8" class="tableHeaderText">商業(yè)資訊信息列表</th>
<tr>
<td colspan="8"> <%
if rs.eof then
response.Write"<br><br><div align='center'>暫無資訊信息</div><br><br>"
else
%> </td>
</tr>
<tr height=25 class=bodytitle>
<td height='22' width='30' align='center'><strong>選中</strong></td>
<td width='25' align='center'><strong>ID</strong></td>
<td align='center' ><strong>資訊標(biāo)題</strong></td>
<td width='40' align='center' ><strong>點(diǎn)擊數(shù)</strong></td>
<td width='80' align='center' ><strong>資訊屬性</strong></td>
<td width='40' align='center' ><strong>已審核</strong></td>
<td width='40' align='center' ><strong>已生成</strong></td>
<td width='180' align='center' ><strong>常規(guī)管理操作</strong></td>
</tr>
<%
do while not rs.eof and rowcount > 0%>
<tr height="20">
<td align="left" class=forumRow><input type='checkbox' name='selAnnounce' value='<%=cstr(rs("newsid"))%>'></td>
<td align="left" class=forumRow> </td>
<td align="left" class=forumRow> </td>
<td align="left" class=forumRow> </td>
<td align="left" class=forumRow> </td>
<td align="left" class=forumRow> </td>
<td align="left" class=forumRow> </td>
<td align="left" class=forumRow> </td>
</tr>
<%
icolor=icolor+1
if icolor>1 then icolor=0
rowcount=rowcount-1
rs.movenext
loop
end if
%>
<tr height="20" bgcolor="#ffffff">
<td colspan="8" align="left" class=forumRow> <input name="button" type=button onClick="this.value=check(this.form)" value=" 全部選定 ">
<input name="submit2" type='submit' value='刪除選定資訊'> </td>
</tr>
<tr height="20" bgcolor="#ffffff">
<td colspan="8" align="center" class=forumrowHighLight><b><%=listPages("index.asp?typeid="&typeid&"&keywords="&keywords&"")%></b></td>
</tr>
</table>
</form>
<%
sub deleteannounce(newsid)
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="delete from [news] where newsid="&cstr(newsid)
conn.execute sql
if err.Number<>0 then
err.clear
response.write "刪 除 失 敗 !<br>"
end if
End sub
%>
<!--#include file="../copy.asp" -->
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -