admin_newslist.asp

来自「能进行网上购物的需求」· ASP 代码 · 共 219 行

ASP
219 行
字号 
<!--#include file="conn.asp"-->
<%
if session("admin_name")="" then
        response.redirect "default.asp"
end if
%>
<%
if request("action")="modi" then
Response.Write("<script>alert("" 很抱歉，程序版本为试用版 \n\n 您无法对数据库进行操作，如您需要请您购买商业版本 \n\n *****感谢您对我们的支持，我们会继续努力***** \n\n QQ：88464758 联系电话：0451-89575990 \n\n为中国电子商务发展助力！-- 56770.com"");history.back();</script>")
Response.end
end if
%>
<%
'开始删除操作
if request("del")="true" then
        conn.execute "delete * from 56770_news where id=" & request("id")
url="admin_newslist.asp?a=list&page=" & request("page")
response.redirect url
end if
%>
<body bgcolor="#FFFFCC" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#FFFFFF" vspace="0" hspace="0">
<tr>
<td height="27" background="images/admin_bg_1.gif">.:: 您可以在这里进行用商品类别关操作</td>
</tr>
</table>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#000000" align="center" width="100%">
<tr bgcolor="#B0CBE6">
<td width="12%"><a href="admin_news.asp?a=list">[栏目管理]</a></td>
<td height="30" width="88%"><%
dim rscsort
set rs=server.CreateObject("adodb.recordset")
rs.open "Select * From 56770_newstype", conn, 1, 3
do while not rs.eof
%>
<a href="admin_newslist.asp?a=list&newstype=<%=rs("type_id")%>"><%=rs("newstype")%></a>&nbsp;|

<%
set rscsort=nothing
rs.movenext
loop
rs.close
set rs=nothing
%><font color="#FFFFFF">
</font> </td>
</tr>
</table>
<%if request("a")="list" then%>
<table width="100%" border="0" cellspacing="1" bgcolor="#FFFFFF" cellpadding="3">
<tr>
<td bgcolor="#D6DFF7">
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="78%" align="center">信息标题</td>
<td height="20" width="22%" align="center">信息类别</td>
</tr>
</table>
</td>
<td bgcolor="#D6DFF7" width="16%" align="center">修改编辑</td>
</tr>

<%
if request("newstype")<>"" then                             
sql="select * from 56770_news where newstype="&request("newstype")&" order by newstype desc "
else
sql="select * from 56770_news order by newstype desc "
end if
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 1, 1
if rs.eof and rs.bof then
        response.Write("没有记录")
else
        rs.PageSize=10
if page=0 then page=1
        pages=rs.pagecount
if page > pages then page=pages
        rs.AbsolutePage=page

for j=1 to rs.PageSize%>
<%
sqls= "select * from 56770_newstype where type_id="&rs("newstype")&""
set rss=server.createobject("ADODB.Recordset")
rss.open sqls, conn, 1, 1
newstype=rss("newstype")
rss.close
set rss=nothing
%>
<tr>
<td bgcolor="#6699CC">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="78%"><a href="admin_newslist.asp?a=modi&id=<%=rs("id")%>" title="<%=left(server.htmlencode(rs("message")),200)%>">标题：<%=rs("subject")%></font></a></td>
<td height="20" width="22%"><font color="#FFFFFF">类别：<%=newstype%>
</font> </td>
</tr>
</table>
</td>
<td bgcolor="#D6DFF7" width="16%" align="center"><a href="admin_newslist.asp?a=modi&id=<%=rs("id")%>"><font color="#FF0000">[编辑]</font></a> <a href="admin_newslist.asp?del=true&id=<%=rs("id")%>&page=<%=cstr(pagecount)%>"><font color="#FF0000">[删除]</font></a></td>
</tr>

<%
rs.movenext
if rs.eof then exit for
        next
%>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<form method=Post action="admin_newslist.asp?a=list">
<tr>
<td height="25" colspan="7" bgcolor="#CBD7F5" align="center">
<%if Page<2 then
response.write "首页 上一页&nbsp;"
else
        response.write "<a href=admin_newslist.asp?a=list&page=1>首页</a>&nbsp;"
response.write "<a href=admin_newslist.asp?a=list&page=" & Page-1 & ">上一页</a>&nbsp;"
end if
if rs.pagecount-page<1 then
        response.write "下一页 尾页"
else
        response.write "<a href=admin_newslist.asp?a=list&page=" &(page+1)& ">"
response.write "下一页</a> <a href=admin_newslist.asp?a=list&page="&rs.pagecount&">尾页</a>"
end if
response.write "&nbsp;页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
response.write "&nbsp;共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
response.write " 转到：<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
response.write " <input class=input type='submit'  value=' Goto '  name='cndok'></span></p>"
%>
</td>
</tr></form>
</table>
<%
end if
rs.close
set rs=nothing
end if
%>

<%
if request("a")="modi" then
id=request("id")
set rso=server.createobject("ADODB.Recordset")
sql="select * from 56770_news where id=" & id
rso.open sql, conn, 1, 1
%>
<table width="100%" border="0" cellspacing="1" height="200" bgcolor="#FFFFFF" cellpadding="3">
<form method="post" action="admin_newslist.asp?a=modi" name="modi">
<tr>
<td background="images/admin_bg_1.gif" height="25" align="center" colspan="2">
<font color="#FFFFFF">修改帮助信息</font></td>
</tr>

<tr bordercolor="#FFFFFF">
<td bordercolor="#FFFFFF" bgcolor="#D6DFF7" width="28%">
<div align="center">主题：</div>
</td>
<td bordercolor="#FFFFFF" bgcolor="#D6DFF7" width="72%">
简体<input type="text" name="subject" value="<%=rso("subject")%>" size=30><br>
繁体<input type="text" name="subject_fname" value="<%=rso("subject_fname")%>" size=30><br>
英文<input type="text" name="subject_ename" value="<%=rso("subject_ename")%>" size=30>
	<font color="#FF0000">*</font>选择栏目： 
<%
if session("aleave")="check" then
        response.write rso("newstype")& "<input name='newstype' type='hidden' value='" & rso("newstype") & "'>&gt;&gt; "
else
set rs=server.createobject("ADODB.Recordset")
        sql = "select * from 56770_newstype"
rs.open sql, conn, 1, 1
if rs.eof and rs.bof then
        response.write "请先添加栏目。"
else
        %>
<select name="newstype">
<%
do while not rs.eof
%>
<option <% if rs("type_id")=rso("newstype")then response.Write("selected")end if%> value="<%=trim(rs("type_id"))%>"><%=trim(rs("newstype"))%></option>
<%
rs.movenext
loop
end if
rs.close
%>
</select>
<%
end if%>
        </select></td>
</tr>
<tr bordercolor="#FFFFFF">
<td bordercolor="#FFFFFF" bgcolor="#D6DFF7" width="28%">
<div align="center">信息内容：</div>
</td>
<td bordercolor="#FFFFFF" bgcolor="#D6DFF7" width="72%">
<textarea name="message" cols="60" rows="8"><%=rso("message")%></textarea>
<br>繁体中文<br>
<textarea name="message_fname" cols="60" rows="8"><%=rso("message_fname")%></textarea>
<br>英文<br>
<textarea name="message_ename" cols="60" rows="8"><%=rso("message_ename")%></textarea>
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td bordercolor="#FFFFFF" bgcolor="#D6DFF7" colspan="2">
<div align="center"><font color=red>支持html语法</font>
<input type="submit" name="Submit" value="确 定">
<input type="reset" name="Submit" value="取 消">
<input type="hidden" name="action" value="modi">
<input type="hidden" name="id" value="<%=rso("id")%>">
</div>
</td>
</tr>
</form>
</table>
</center>
</body>
</html>
<%
rso.close
set rso=nothing
end if
%>

admin_newslist.asp - 源码说明

本页面展示了「能进行网上购物的需求」中的 admin_newslist.asp 源码文件，采用 ASP 编程语言编写，共 219 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与网上购物相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?