📄 news.asp
字号:
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</select>
<input name="Move" type="submit" class="button" id="Move" value="确定">
<input name="Del_Sub" type="submit" class="button" id="Del_Sub" value="删除所选信息" >
<input name="CheckAll" type="checkbox" onclick="mm(this)">
全选</font></strong></td>
</tr>
</table></td>
</tr>
</form>
</table>
<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 >
<td width="100%"height="24" align="right" class="font">
<%if request("Class") = "" then%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<form name="pa" method="post" action="">
<td width="70%" height="20" align="right" valign="middle" class="font">共有<font color="#FF2D00">[<%=rc.RecordCount%>]</font>条信息
分<font color="#FF2D00"><%=rc.pagecount%></font>页 <font color="#FF2D00"><%=rc.pagesize%></font>条/页
当前第<font color="#FF2D00"><%=Page%></font>页 <img src="img/logo_img042.gif" width="11" height="11" align="absmiddle">
<a href="?action=admin&Page=1">首页</a>
<%if Page>1 then%>
<a href="?action=admin&Page=<%=Page-1%>">上页</a>
<%else%>
上页
<%end if%>
<%if Page < rc.pagecount then %>
<a href="?action=admin&Page=<%=Page+1%>">下页</a>
<%else%>
下页
<%end if%>
<a href=?action=admin&Page=<%=rc.pagecount%>>尾页</a> <img src="img/logo_img044.gif" width="11" height="11" align="absmiddle">
<input name="Page" type="text" class="put" id="Page" value="<%=Page%>" size="3">
<input name="Submit" type="submit" class="button" value="转到该页">
</td>
</form>
</tr>
</table>
<%else%> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="pa" method="post" action=""><tr>
<td height="20" align="right" valign="middle" class="font"><font color="#ffffff">系统开发：j111</font>共有<font color="#FF2D00">[<%=rc.RecordCount%>]</font>条信息
分<font color="#FF2D00"><%=rc.pagecount%></font>页 <font color="#FF2D00"><%=rc.pagesize%></font>条/页
当前第<font color="#FF2D00"><%=Page%></font>页 <img src="img/logo_img042.gif" width="11" height="11" align="absmiddle">
<a href="?action=admin&Page=1&Class=<%=request("Class")%>">首页</a>
<%if Page>1 then%>
<a href="?action=admin&Page=<%=Page-1%>&Class=<%=request("Class")%>">上页</a>
<%else%>
上页
<%end if%>
<%if Page < rc.pagecount then %>
<a href="?action=admin&Page=<%=Page+1%>&Class=<%=request("Class")%>">下页</a>
<%else%>
下页
<%end if%>
<a href=?action=admin&Page=<%=rc.pagecount%>&Class=<%=request("Class")%>>尾页</a> <img src="img/logo_img044.gif" width="11" height="11" align="absmiddle">
<input name="Page" type="text" class="put" id="Page" value="<%=Page%>" size="3">
<input name="Submit" type="submit" class="button" value="转到该页">
</td>
</tr></form>
</table><%end if%>
</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>
<%end if
end if
if request("action") = "Search" 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="SearchList.asp">
<tr >
<td bgcolor="799AE1"height="26" colspan="4" 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="12%" height="25" align="center" bgcolor="#FFFFFF" class="td">关
键 字</td>
<td width="92%" height="25" colspan="3" valign="bottom" bgcolor="#FFFFFF" class="td">
<input name="Key" type="text" id="Key" size="30"> </td>
</tr>
<tr>
<td width="12%" height="23" align="center" bgcolor="#FFFFFF" class="td">信息分类</td>
<td height="23" colspan="3" valign="middle" bgcolor="#FFFFFF" class="td">
<strong><font color="#FFFFFF">
<select name="News_Class" class="input" id="select2">
<option value="" selected>所有分类</option>
<%
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>
</font></strong></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF" class="td"><div align="right"></div></td>
<td height="25" colspan="3" valign="middle" bgcolor="#FFFFFF" class="td">
<input type="submit" name="Submit4" value="确定搜索""> <input type="button" name="Submit4" 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") = "edit" then
%>
<%sql="select * from 52mt_J111_Web where ID = "&request("ID")
set rc = conn.execute(sql)
%>
<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>
<script language="JavaScript">
function Check()
{
if (window.document.form1.Neww_Title.value == "" )
{alert("系统提示：\n信息标题请勿空！！")
return false;
}
}
</script> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="table">
<form name="form1" method="post" action="Save.asp?Type=edit&ID=<%=rc("ID")%>" onSubmit="return Check()">
<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" value=<%=rc("News_Title")%>>
<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">
<option value="<%=rc("News_Class")%>" selected><%=rc("News_Class")%></option>
<%
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
if rc("News_Class") = rs("Class") then
else%><option value="<%=rs("Class")%>"><%=rs("Class")%></option><%end if%>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</select>
<%if rc("True_Index") = "Yes" then
response.write("<input name=True_Index type=checkbox id=True_Index value=Yes checked>")
else
response.write("<input name=True_Index type=checkbox id=True_Index value=Yes>")
end if
%>
推荐 </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"><%=server.HTMLEncode(rc("News_Body"))%></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="Submit2" 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%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -