📄 news.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="check.asp" -->
<script language="javaScript">
function checkdel(test)
{
return confirm("系统提示:\n此操作不可逆，是否确定"+test+"!!");
}
function mm(o)
{
var a = document.form1("movedata");
for (var i=0; i<a.length; i++){
a[i].checked = o.checked;
}
}
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台管理页</title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<SCRIPT>
<!--
function showtb(tbnum)
{
whichEl = eval("tbtype" + tbnum);
if (whichEl.style.display == "none")
{
eval("tbtype" + tbnum + ".style.display=\"\";");
}
else
{
eval("tbtype" + tbnum + ".style.display=\"none\";");
}
}
-->
</SCRIPT>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%if request("action") = "add" then%><table width="616" height="100" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr height="10">
<td height="5"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="table">
<form name="form1" method="post" action="Save.asp?Type=add">
<tr >
<td bgcolor="799AE1"height="26" colspan="2" align="center" class="font">
<div align="right">
<table width="99%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td class="font"><strong><font color="#FFFFFF">发布信息</font></strong></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td width="10%" height="25" align="center" bgcolor="#FFFFFF" class="td">信息标题</td>
<td width="90%" height="25" valign="bottom" bgcolor="#FFFFFF" class="td">
<input name="News_Title" type="text" class="input" id="News_Title" size="52">
<font color="#FF0000">* </font></td>
</tr>
<tr>
<td width="10%" height="23" align="center" bgcolor="#FFFFFF" class="td">信息属性</td>
<td width="90%" height="23" valign="bottom" bgcolor="#FFFFFF" class="td">
<select name="Class" class="input" id="Class">
<%
set rs=server.CreateObject("adodb.Recordset")
sql="Select * from 52mt_J111 where Class <> '首页' order by ID asc"
rs.open sql,conn,1,1
do while not rs.eof
%>
<option value="<%=rs("Class")%>"><%=rs("Class")%></option>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</select> <input name="True_Index" type="checkbox" id="True_Index" value="Yes">
推荐 <FONT color=#ff0033 size=3><STRONG><A href="http://mm.j111.com" target="_blank">登录j111美女图片网最新数据。</A></STRONG></FONT></td>
</tr>
<tr>
<td width="10%" height="25" align="center" bgcolor="#FFFFFF" class="td">信息内容</td>
<td width="90%" height="25" valign="bottom" bgcolor="#FFFFFF" class="td"><textarea name="News_Body" style="display:none"></textarea>
<iframe ID="eWebEditor1" src="../pic/ewebeditor.asp?id=News_Body&style=j111" frameborder="0" scrolling="no" width="550" HEIGHT="350"></iframe></td>
</tr>
<tr>
<td width="10%" height="25" align="center" bgcolor="#FFFFFF" class="td">
<div align="right"></div></td>
<td width="90%" height="25" valign="middle" bgcolor="#FFFFFF" class="td">
<input type="submit" name="Submit" value="确定添加""> <input type="button" name="Submit" value="返回上页" onClick="history.go(-1)">
</td>
</tr>
</form>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr height="10">
<td height="5"></td>
</tr>
</table></td>
</tr>
</table>
<%end if
if request("action") = "admin" then
if request("Del_Sub") = "删除所选信息" then
for each movedata in request("movedata")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists(server.mappath("../News")&"\"&movedata) then
fso.DeleteFile server.mappath("../News")&"\"&movedata,true
sql="delete From 52mt_J111_Web where File_Name='"&movedata&"'"
conn.execute sql
else
sql="delete From 52mt_J111_Web where File_Name='"&movedata&"'"
conn.execute sql
end if
next
end if
if request("Move") = "确定" then
for each movedata in request("movedata")
sql="update 52mt_J111_Web set News_Class = '"&request("Class")&"' where File_Name='"&movedata&"'"
conn.execute sql
next
end if
Set rc=Server.CreateObject("ADODB.Recordset")
if request("Class") = "" then
sql="Select * from 52mt_J111_Web order by ID desc"
rc.open sql,conn,1,1
else
sql="Select * from 52mt_J111_Web where News_Class = '"&request("Class")&"' order by ID desc"
rc.open sql,conn,1,1
end if
rc.pagesize=20
dim Page
Page =1
if request("Page") <> "" then
Page=cint(request("Page"))
end if
if not rc.eof and not rc.bof then
rc.absolutepage=Page
end if
count=rc.pagesize
if rc.bof then
%>
<table width="616" height="100" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr height="10">
<td height="5"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="table">
<tr bgcolor="799AE1" >
<td height="26" align="center" class="font"> <table width="99%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td class="font"><strong><font color="#FFFFFF">信息管理列表 </font></strong></td>
</tr>
</table></td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td height="50" bgcolor="#FFFFFF" class="td"><strong>暂时没有信息！</strong></td>
</tr >
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr height="10">
<td height="10"></td>
</tr>
</table></td>
</tr>
</table>
<%else%>
<table width="616" height="100" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr height="5">
<td height="5"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="table">
<form name="form1" method="post" action="" onSubmit="return checkdel('操作选定数据');">
<tr bgcolor="799AE1" >
<td height="26" colspan="8" align="center" class="font"> <table width="99%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td class="font"><strong><font color="#FFFFFF">信息管理列表</font></strong>
</td>
</tr>
</table></td>
</tr>
<tr align="center">
<td width="5%" height="23" bgcolor="#FFFFFF" class="td">编号</td>
<td width="55%" height="23" bgcolor="#FFFFFF" class="td">[信息分类] 信息标题</td>
<td width="15%" height="23" bgcolor="#FFFFFF" class="td">发布日期</td>
<td width="5%" height="23" bgcolor="#FFFFFF" class="td">阅读</td>
<td width="5%" height="23" bgcolor="#FFFFFF" class="td">推荐</td>
<td width="5%" bgcolor="#FFFFFF" class="td">选中</td>
<td width="5%" height="23" bgcolor="#FFFFFF" class="td">编辑</td>
<td width="5%" height="23" bgcolor="#FFFFFF" class="td">删除</td>
</tr >
<%do while not rc.eof and count>0%>
<TR align="center" bgcolor="#e4edf9" onmouseover="this.bgColor='#dedede'" onmouseout="this.bgColor='#e4edf9'" style="CURSOR:default">
<td height="23" class="font"><%=rc("ID")%></td>
<td width="55%" height="23" align="left" class="font"> [<%=rc("News_Class")%>]
<%=rc("News_Title")%></td>
<td height="23" class="font"> <%=rc("News_Date")%> </td>
<td height="23" class="font"><%=rc("News_Click")%></td>
<td height="23" class="font">
<%if rc("True_Index") = "Yes" then
Response.Write("<strong><font color=#FF0000>√</font></strong>")
else
Response.Write("")
end if
%>
</td>
<td><input name="movedata" type="checkbox" id="movedata" value="<%=rc("File_Name")%>"></td>
<td height="23"><a href="News.asp?ID=<%=rc("ID")%>&action=edit"><img src="img/edit.gif" width="12" height="12" border="0"></a></td>
<td height="23"><a href="Del.asp?File_Name=<%=rc("File_Name")%>&Type=News" onClick="return checkdel('删除该数据');"><img src="img/icon_del.gif" width="13" height="13" border="0" style="CURSOR: hand"></a></td>
</tr>
<%
rc.movenext
count=count-1
loop
%>
<tr bgcolor="799AE1" >
<td height="26" colspan="8" align="center" class="font"><table width="99%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td class="font"><strong><font color="#FFFFFF">将</font><font color="#FFFFFF">所选信息移动到
<select name="Class" class="input" id="Class">
<%
set rs=server.CreateObject("adodb.Recordset")
sql="Select * from 52mt_J111 where Class <> '首页' order by ID asc"
rs.open sql,conn,1,1
do while not rs.eof
%>
<option value="<%=rs("Class")%>"><%=rs("Class")%></option>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -