📄 index.asp
字号:
<% option explicit %>
<!-- #include virtual="/admin/userinfo/_lib/_lib.asp" -->
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
' 功能：公告管理--浏览公告列表
' @Language=VBscript
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Dim sql,rs,i
call DB_Connect(strconn)
'---验证身份----
Call AdminCheck
sql="select * from t_BulletionCon order by B_inputdate desc"
Set rs=oConn.Execute(Sql)
%>
<HTML>
<HEAD>
<title>电子商城</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<LINK REL="stylesheet" HREF="/inc/css/pub.css" TYPE="TEXT/CSS">
<SCRIPT LANGUAGE="JavaScript" SRC="/inc/js/shop.js">
</SCRIPT>
</HEAD>
<BODY BGCOLOR=#ffffff TOPMARGIN=0 LEFTMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<!--#include virtual="/admin/inc/all_top.asp" -->
<!--#include virtual="/admin/inc/all_first_top.asp" -->
<!--#include virtual="/admin/inc/all_second_top.asp" -->
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=710>
<TR>
<TD COLSPAN=3><IMG SRC="/images/dot.gif" WIDTH="1" HEIGHT="10" BORDER=0></TD>
</TR>
<TR>
<TD WIDTH=170 ALIGN=right VALIGN=top>
<!--#include virtual="/admin/inc/default_left.asp" -->
</TD>
<TD WIDTH=15><IMG SRC="/images/dot.gif" WIDTH="15" HEIGHT="1" BORDER=0 ></TD>
<TD VALIGN=top>
<TABLE WIDTH=525 BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR>
<TD VALIGN="TOP">
<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR>
<TD><B><FONT COLOR="#0033CC">公告管理</FONT></B><IMG SRC="/images/arrow.gif" BORDER=0></TD>
<TD ALIGN="right"><A HREF="javascript:this.location.reload();">刷新</A></TD>
</TR>
<TR BGCOLOR="#000000">
<TD COLSPAN="2"><IMG SRC="/images/dot.gif" WIDTH="1" HEIGHT="1" BORDER=0 ></TD>
</TR>
</TABLE><br>
<TABLE WIDTH="98%" BORDER="0" CELLSPACING="1" CELLPADDING="5" ALIGN="CENTER">
<TR ALIGN="CENTER" BGCOLOR="#558BFF">
<TD CLASS="txt"><FONT COLOR="#FFFFFF">序号</FONT></TD>
<TD CLASS="txt"><FONT COLOR="#FFFFFF">公告标题</FONT></TD>
<TD CLASS="txt"><FONT COLOR="#FFFFFF">发布日期</FONT></TD>
<TD CLASS="txt"><FONT COLOR="#FFFFFF">浏览量</FONT></TD>
<TD CLASS="txt"><FONT COLOR="#FFFFFF">管理</FONT></TD>
</TR>
<% i=1
do while (not rs.eof)
%>
<TR ALIGN="CENTER" BGCOLOR="#e1e1e1">
<TD CLASS="txt"><%=i%> </TD>
<TD CLASS="txt"><%=rs("B_title")%> </TD>
<TD CLASS="txt"><%=year(rs("B_inputdate"))&"-"&month(rs("B_inputdate"))&"-"&day(rs("B_inputdate"))%> </TD>
<TD CLASS="txt"><%=rs("B_point")%> </TD>
<TD CLASS="txt" nowrap><A HREF="javascript:confirm_chk('确认修改吗?','modify.asp?id=<%=rs("B_Id")%>')">修改</A> | <A HREF="javascript:confirm_chk('确认删除吗?','del.asp?id=<%=rs("B_Id")%>')">删除</A></TD>
</TR>
<%
rs.movenext
i=i+1
loop
rs.close
set rs=nothing
%>
</TABLE>
<BR>
<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR>
<TD BACKGROUND="/images/gotop_bg.gif"><A HREF="#top"><IMG SRC="/images/gotop.gif" BORDER="0"></A></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<BR>
<!--#include virtual="/inc/default_end.asp" -->
<BR>
</BODY>
</HTML>
<%
call DB_DisConnect
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -