📄 add_lanmu.asp

📁 功能最强大的ASP网站
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="setting.asp"-->
<%
classname=request("add")
if request("add")="shop" then
del_class="shop_class"
set rs=server.createobject("adodb.recordset")
sql="select * from shop_class"
rs.open sql,conn,1,3
url="shop.asp"
end if

if request("add")="download" then
del_class="download_class"
set rs=server.createobject("adodb.recordset")
sql="select * from download_class"
rs.open sql,conn,1,3
url="new_download.asp"
end if

if request("action")="addnew" then
name1=GernerateHtml(request("name"))

if name1="" then
response.Redirect("admin_wrong.asp?url="&url&"&reason=你可能没填写标题!")
end if

rs.addnew
rs("classname")=name1
rs.update
rs.close
set rs=nothing
response.Redirect("admin_right.asp?url="&url&"&reason=添加成功,系统将会回到刚才的页面!")
end if
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<link href="css/css.css" rel="stylesheet" type="text/css" />
</head>

<body>
<div>
  <div align="center">
    <table width="900" border="0" class="tb1">
      <tr>
        <td height="27" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">你现在正在使用通用分类管理(下载/商城)</td>
      </tr>
      <tr>
        <td>你当前使用的是<%=classname%></td>
      </tr>
      <tr>
        <td height="27" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">|-分类基本信息</td>
      </tr>
      <tr>
        <td><form name="form1" method="post" action="add_lanmu.asp?action=addnew&add=<%=classname%>">
          <table width="100%" border="0" class="STYLE3">
            <tr>
              <td><div align="left"><%=classname%>的分类名称:</div></td>
              <td><div align="left">
                <label>
                <input name="name" type="text" class="STYLE3" id="name">
                </label>
              </div></td>
            </tr>
            <tr>
              <td><div align="left"></div></td>
              <td><div align="left">
                <label>
                <input name="Submit" type="submit" class="STYLE7" value="新建分类">
                </label>
                <label>
                <input name="Submit2" type="submit" class="STYLE7" value="重写分类">
                </label>
              </div></td>
            </tr>
          </table>
                </form>
        </td>
      </tr>
      <tr>
        <td height="27" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">|-已存在的分类基本信息(删除将会删除该分类下的所有数据)</td>
      </tr>
      <tr>
        <td><div align="left">
          <p><%if rs.eof and rs.bof then
		   response.Write("暂时没有该分类的分类信息,请添加分类!")
		   else
		   page=clng(request("page"))
		   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
		  %>&nbsp;</p>
          <table width="100%" border="0" class="STYLE3">
            <tr>
              <td><div align="left"><%=rs("classname")%>&nbsp;</div></td>
              <td><div align="right"><a href="del_lanmu.asp?class=<%=del_class%>&classname=<%=rs("classname")%>&bh=<%=rs("bh")%>">删除</a> 管理</div></td>
            </tr>
          </table>
          <p align="center"> <%
			rs.movenext
if rs.eof then exit for
next
			if Page<2 then      
    response.write "首页 上一页&nbsp;"
  else
    response.write "<a href=add_lanmu.asp?page=1>首页</a>&nbsp;"
    response.write "<a href=add_lanmu.asp?page=" & Page-1 & ">上一页</a>&nbsp;"
  end if
  if rs.pagecount-page<1 then
    response.write "下一页 尾页"
  else
    response.write "<a href=add_lanmu.asp?page=" & (page+1) & ">"
    response.write "下一页</a> <a href=add_lanmu.asp?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>"     
%>
<% 
end if
rs.close
set rs=nothing
%></p>
        </div></td>
      </tr>
      <tr>
        <td>&nbsp;</td>
      </tr>
    </table>
  </div>
</div>
</body>
</html>
⌨️ 快捷键说明

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