📄 admin_info.asp

📁 基于Sabrina SecondMarket v1.0
💻 ASP
字号:
<!--
版本：草原二手市场V1.1
本程序作者：mysql QQ:54016224 TEL:13036133798

-->
<!--#include file="include/conn.asp"-->
<!--#include file="include/function.asp"-->
<!--#include file="include/access.asp"-->
<%
if isNum(request("InfoID")) then
InfoID          = cint(request("InfoID"))
else
gotoUrl("error.asp?message=参数错误")
end if
if request("action") = "delete" then
	sql         = "select * from [Info] where InfoID = "&InfoID&""
	set rs =server.CreateObject("adodb.recordset")
    rs.open sql,conn,1,3
	if rs.eof or rs.bof then
	response.write "<script>alert('该会员不存在');</script>"
	else
	sql         = "delete * from [Info] where InfoID = "&InfoID&""
	conn.execute(sql)
	response.write "<script>alert('删除成功');</script>"
	end if
end if 
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>后台管理</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=MSThemeCompatible content=Yes>
<LINK href="images/css.css" type=text/css rel=stylesheet>

<META content="MSHTML 6.00.3790.0" name=GENERATOR>
</HEAD>
<BODY leftMargin=0 topMargin=0>

<BR>
<TABLE cellSpacing=0 cellPadding=0 width=650 align=center border=0>
  <TBODY> 
  <TR>
    <TD>
      <TABLE cellSpacing=1 cellPadding=4 width="100%" border=0>
        <TBODY> 
            <TR class=m_title> 
              <TD align=center>信息编号</TD>
              <TD align=center>信息名</TD>
			  <TD align=center>发布者</TD>
			  <TD align=center>所属二级类</TD>
              <TD align=center>所属大类</TD>
          	<TD align=center>操作</TD>
        </TR>
<%
sql      = "select * from [Info] order by InfoID asc"
set rs =server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
do while not rs.eof and not rs.bof
	sql = "select UserName from [User] where UserID = "&rs("UserID")&""
	set urs = conn.execute(sql)
	if not urs.eof and not urs.bof then
	NUserName = urs(0)
	else
	NUserName = "admin"
	end if
	sql = "select * from SubClass where SubIndexNO = '"&rs("SubIndexNO")&"'"
	set rs0 = server.CreateObject("adodb.recordset")
	rs0.open sql,conn,1,1
	if not rs0.eof and not rs0.bof then 
		sql = "select BigName from BigClass where BigIndexNO = '"&rs0("BigIndexNO")&"'"
		set rs1 = conn.execute(sql)
		if not rs1.eof and not rs1.bof then
		NBigName = rs1(0)
		else
		NBigName = "尚未分类"
		end if
%>
	  <TR class=line_1 align="center">
         <TD noWrap><a href="#"><%=rs("InfoID")%></a></TD>
	        <TD noWrap><%=rs("InfoName")%></TD>
	         <TD noWrap><%=NUserName%></TD>
			  <TD noWrap><%=rs0("SubName")%></TD>
			 <TD noWrap><%=NBigName%></TD>
	         <TD noWrap><a href="admin_editinfo.asp?action=edit&InfoID=<%=rs("InfoID")%>"> 编辑</a> <a href="admin_addinfo.asp?action=add">添加</a> <a href='?action=delete&InfoID=<%=rs("InfoID")%>' onclick='return confirm("确认删除?")'>删除</a></TD>
	       </TR>
<%	end if
rs.movenext
loop
%>

        </TBODY> 
      </TABLE>
    </TD>
  </TR>
  </TBODY>
</TABLE>

<BR><BR>
<TABLE cellSpacing=1 cellPadding=0 width="90%" align=center border=0>
  <TBODY>
  <TR>
    <TD align=middle>技术支持：<A 
      href="http://www.vvcat.com/">http://www.vvcat.com/</A> 
    </TD>
  </TR>
  </TBODY>
</TABLE>

<BR>
</BODY>
</HTML>
⌨️ 快捷键说明

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