?? admin.asp
字號(hào):
<!--#include file="setup.asp" -->
<%
dim pmcount,pageno
pmcount=25
dim rs,sql
set rs=server.createobject("adodb.recordset")
if request("action")="del" then
sql="select * from admin where user='"&request("admin")&"' and pwd='"&request("pass")&"'"
rs.open sql,conn,1,1
if rs.bof or rs.eof then
response.write "用戶名/密碼錯(cuò)誤！新聞沒(méi)有刪除..."
else
response.cookies("admin")=request("admin")
response.cookies("pass")=request("pass")
sql="delete from news where id="&request("id")
conn.execute sql
response.write "新聞成功刪除了..."
end if
rs.close
end if
%>
<html>
<head>
<title>新聞管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">
<script language="javascript">
function view(id){
var id;
window.open('view.asp?id='+id,'_blank','status=no,scrollbars=yes,top=20,left=110,width=580,height=420');
}
</script>
</head>
<body bgcolor="#FFFFFF">
<div align="center">
<script language="JavaScript">
function cdel(id,cata,page){
var id;
if (confirm("你真的要?jiǎng)h除這條新聞嗎？")){
document.location.href="admin.asp?action=del&id="+id+"&admin="+form1.admin.value+"&pass="+form1.pass.value+"&cataid="+cata+"&pageno="+page;
}
}
</script>
<%=news_title%> - 管理 </div>
<form name="form1">
<table width="38%" border="1" align="center" cellspacing="0" cellpadding="0" bordercolor="#FFFFCC">
<tr>
<td>
<table width="100%" border="1" align="center" bgcolor="#FF9966" cellspacing="0" cellpadding="0" bordercolor="#FFCC66">
<tr>
<td>
<div align="center">管理員名稱(chēng)：
<input type="text" name="admin" value="<%=request.cookies("admin")%>">
</div>
<div align="center">管理員密碼：
<input type="password" name="pass" value="<%=request.cookies("pass")%>">
</div>
<div align="center">*注意：必須輸入此密碼才能修改類(lèi)別</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<table width="686" border="0" align="center" cellspacing="3" cellpadding="3">
<tr>
<td colspan="2"><%=news_title%> - <font color="#FF0000">N</font><font color="#FF9900">e</font><font color="#00CC00">w</font><font color="#0000FF">s</font>
center</td>
</tr>
<tr>
<td width="136" bgcolor="#FFCC00" valign="top">
<table width="100%" border="0">
<tr>
<td>
<div align="center"><font color="#FF0000">..::新聞分類(lèi)::..</font></div>
</td>
</tr>
<%
'on error resume next
sql="select * from category"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<tr><td><div align='center'>沒(méi)有分類(lèi)</div></td></tr>"
else
do while not rs.eof
%>
<tr>
<td<%if rs("id")=cint(request("cataid")) then response.write " class='selected'"%>>
<div align="center"><a href="admin.asp?cataid=<%=rs("id")%>"><%=rs("title")%></a></div>
</td>
</tr>
<%
rs.movenext
loop
end if
rs.close
dim cataid,catid
cataid=request("cataid")
if cataid="" then
catid="最新消息"
else
sql="select * from category where id="&cstr(request("cataid"))
rs.open sql,conn,1,1
catid=rs("title")
rs.close
end if
%>
<tr>
<td>
<div align="center"><font color="#FF0000">..:.<a href="admin.asp">全部新聞</a>.:..</font></div>
</td>
</tr>
<tr>
<td>
<hr>
</td>
</tr>
<tr>
<td>
<div align="center"><a href="addnews.asp?cata=<%=catid%>">增加新聞</a></div>
</td>
</tr>
<tr>
<td>
<div align="center"><a href="addcata.asp">類(lèi)別管理</a></div>
</td>
</tr>
<tr>
<td>
<div align="center"><a href="userpass.asp">用戶管理</a></div>
</td>
</tr>
<tr>
<td>
<div align="center"><a href="query.asp" target="_blank">高級(jí)管理</a></div>
</td>
</tr>
<tr>
<td>
<div align="center"><a href="newscode.asp">新聞代碼</a></div>
</td>
</tr>
<tr>
<td>
<div align="center"><a href="default.asp">返回首頁(yè)</a></div>
</td>
</tr>
</table>
</td>
<td width="547" bgcolor="#FFFFCC" nowrap>
<table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bordercolorlight="#000000">
<tr bgcolor="#009900">
<td colspan="4">
<div align="right"><font color="#FFFFFF">...::
<%
response.write catid
%>
::...</font></div>
</td>
</tr>
<tr bgcolor="#CCFF99">
<%if request("cataid")="" then%>
<td width="14%">
<div align='center'>類(lèi)別</div>
</td>
<%end if%>
<td width="63%">
<div align="center">標(biāo)題</div>
</td>
<td width="15%">
<div align="center">修改</div>
</td>
<td width="8%">
<div align='center'>刪除</div>
</td>
</tr>
<%
if cataid="" then
sql="select * from news order by id desc"
else
sql="select * from news where cataid='"&catid&"' order by id desc"
end if
rs.open sql,conn,1,1
rcount=rs.recordcount
if pmcount="" or isempty(pmcount) or pmcount<1 then
pmcount=25
end if
rs.pagesize=pmcount '設(shè)置每頁(yè)數(shù)
mpage=rs.pagecount '得到總頁(yè)數(shù)
pageno=request("pageno")
if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then
pageno=1
end if
if rs.bof and rs.eof then
response.write "<tr><td colspan='5'><div align='center'>沒(méi)有新聞</div></td></tr>"
else
rs.absolutepage=pageno '將指針移至指定頁(yè)的第一條記錄
loopno=pmcount
do while not rs.eof and loopno>0
%>
<tr>
<%if request("cataid")="" then%>
<td width="14%">
<div align='center'><%=rs("cataid")%></div>
</td>
<%end if%>
<td width="63%"><a href="javascript:view(<%=rs("id")%>)">
<% if rs("special") then
response.write "●"& rs("title")
else
response.write "○"& rs("title")
end if
if rs("image")<>"" then
response.write "<img src='images/news.gif' border=0>"
end if
select case right(rs("linkurl"),4)
case ".zip"
response.write "<img src='images/zip.gif' border=0>"
case ".rar"
response.write "<img src='images/rar.gif' border=0>"
case ".exe"
response.write "<img src='images/exe.gif' border=0>"
end select%>
</a></td>
<td width="15%">
<div align='center'><a href="editnews.asp?id=<%=rs("id")%>">修改</a></div>
</td>
<td width="8%">
<div align='center'><a href="javascript:cdel('<%=rs("id")%>','<%=cataid%>','<%=pageno%>')">刪除</a></div>
</td>
</tr>
<%
rs.movenext
loopno=loopno-1
loop
end if
rs.close
set rs=Nothing
endconnection
%>
</table>
<table width="100%" border="0" cellspacing="2" cellpadding="2" class=buinput>
<tr align="right">
<td>
<%
if cint(pageno)>1 then%>
[<a href='admin.asp?cataid=<%=cataid%>&pageno=<%=pageno-1%>'>上一頁(yè)</a>]
<%
end if
if cint(pageno)<cint(mpage) then
%>
[<a href='admin.asp?cataid=<%=cataid%>&pageno=<%=pageno+1%>'>下一頁(yè)</a>]
<%end if%>
共<%=cstr(pageno)&"/"&cstr(mpage)&"頁(yè) "&cstr(rcount)%>條新聞</td>
</tr>
</table>
</td>
<tr bgcolor="#99CCFF">
<td colspan="2" valign="top">
<div align="center"><font color="#660099">爆料有獎(jiǎng)！凡是跟上面有關(guān)的其他新聞，請(qǐng)發(fā)到<a href="mailto:<%=your_email%>"><%=your_email%></a>來(lái)，根據(jù)新聞價(jià)值進(jìn)行獎(jiǎng)勵(lì)。</font></div>
</td>
</tr>
</table>
<script language="JavaScript">
document.write("<hr width='80%' size='1'>");
document.write("<div align='center' style=fontsize:9pt;><font face='Verdana, Arial, Helvetica, sans-serif'>");
document.write("<a href=<%=homepage_link%> target=_blank><font color=red><%=homepage_title%></font></a> - <a href=<%=news_location%>\default.asp><font color=black><%=news_title%></font></a><br>");
document.write("<font face='Verdana, Arial, Helvetica, sans-serif' color='#000000'>");
document.write("Copyright</font><font face='Verdana, Arial, Helvetica, sans-serif' color='#FF0000'> ");
document.write("<font color='#0000FF'>©</font></font>");
document.write("<font face='Verdana, Arial, Helvetica, sans-serif' color='#000000'>By ");
document.write("<a href=http://www.qbtrade.com target=_blank>QBTrade<font color='#0000FF'>™</font> Group</a>, 2000.8.30</font><font face='Verdana, Arial, Helvetica, sans-serif'>");
document.write("<br><font color='#000000'>All rights Reserved</font>");
var current_version="<%=current_version%>";
</script>
<!--下面這個(gè)script是自動(dòng)檢查更新代碼，請(qǐng)不要?jiǎng)h除-->
<script src=http://www.qbtrade.com/news/update.asp></script>
</body>
</html>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -