📄 add_big_class.asp

📁 购物系统时尚版.强大的后台文章编辑器的功能
💻 ASP
字号:
<!--#include file="chk.asp"-->
<!--#include file="db_conn.asp"-->
<!--#include file="../my_lib/my_request.asp"-->
<%
flag=my_request("flag",0)

select case flag
case "save"
call save()
case "del"
call del()
end select

%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="style.css" rel=stylesheet type=text/css>
<title>大类别管理</title>
<script language="javascript">
function checkdata()
{
 if (document.form1.bigclass.value=="")
	{
	  alert("对不起，类别不能为空！")
	  document.form1.bigclass.focus()
	  return false
	 }
	   }
</script>
<script language="javascript1.2" src="../my_lib/warning.js"></script>
<SCRIPT>
function view1(url){ 
var url; window.open(url,'_blank','status=no,scrollbars=yes,top=20,left=50,width=300,height=200'); 
}
</SCRIPT>
</head>

<body>
<!--#include file="TopManu.asp"-->
<form action="add_big_class.asp" method="post" name="form1" onsubmit="return checkdata();">
<div align="center">
<table border="0" width="100%" id="table1" cellspacing="0" style="border-collapse: collapse" cellpadding="0">
	<tr>
		<td background="image/admintoptdbg.gif">
		<p align="left">
		<img border="0" src="image/title_arrow.bmp" width="17" height="27" align="absmiddle"><font color="#808080"><b>大类别添加</b></font></td>
	</tr>
</table>
</div>
<div align="center">
<table border="1" width="100%" id="table1" cellspacing="0" style="border-collapse: collapse" bordercolor="#CCCCCC" cellpadding="4">
	<tr>
		<td bgcolor="#F6F6F6">
		<p align="center">大类名称：<input type="text" name="bigclass" size="20" maxlength="20"> <input type="submit" value="添加" name="B1">
		<input type="hidden" name="flag" value="save"></td>
	</tr>
	</table>
</div>
</form>

<div align="center">
<table border="0" width="100%" id="table1" cellspacing="0" style="border-collapse: collapse" cellpadding="0">
	<tr>
		<td background="image/admintoptdbg.gif">
		<p align="left">
		<img border="0" src="image/title_arrow.bmp" width="17" height="27" align="absmiddle"><font color="#808080"><b>大类别管理</b></font></td>
	</tr>
	</table>
</div>
<div align="center">
<table border="0" width="100%" id="table2" style="border: 1px solid #CCCCCC; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px; border-collapse:collapse" cellpadding="4" bgcolor="#F6F6F6">
	<%
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select id,txt_big_class from big_class order by addtime desc"
rs.open sql,conn,1,3 
if rs.eof then 
response.write "<tr><td>对不起，请您先添加类别</td></tr>"


else
rs.PageSize =15 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if 
	end if
	%>
	<tr>
		<td width="74">ID</td>
		<td width="540">类别名称</td>
		<td width="147" colspan="2">
		<p align="center">操作</td>
	</tr>
	      <% 
						  i=1
						  while not rs.eof and i<=rs.pagesize
						  sqls="select count(id) as nums from yqj_product where bid="&rs("id")
						  set rss=conn.execute (sqls)
						  nums=rss("nums")
						  rss.close
						  set rss=nothing
      %> 
	<tr>
		<td><%=(page-1)*14+i%></td>
		<td><img border="0" src="image/0.gif" width="12" height="11"><%=rs("txt_big_class")%><font color="#C0C0C0">(<%=nums%>)</font></td>
		<td width="66" align="center"><a href="javascript:ask('您真的要这么做？将删除此类下所有小类及其任何内容！','add_big_class.asp?flag=del&id=<%=rs("id")%>')">删除</a></td>
		<td width="67" align="center"><a href="javascript:view1('bigclass_modi.asp?id=<%=rs("id")%>&name=<%=trim(rs("txt_big_class"))%>')" title="修改内容">修改</a></td>
	</tr>
	<%              rs.movenext
			i=i+1
		    wend%>
	<tr>
		<td colspan="4"><%call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")%></td>
	</tr><tr>
		<td colspan="4">
		<p align="right">一共有<font color="#FF0000"><%response.write rs.recordcount%></font>个大类</td>
	</tr>
</table>

</div>

<div align="center">

<table border="0" width="100%" id="table3" cellpadding="4" style="border-collapse: collapse">
	<tr>
		<td align=right><input TYPE="button" VALUE="刷新本页" ONCLICK="location.reload()"> </td>
	</tr>
</table>

</div>

</body>

</html>
<%
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
    Dim query, a, x, temp
    action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

    query = Split(Request.ServerVariables("QUERY_STRING"), "&")
    For Each x In query
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) <> 0 Then
            temp = temp & a(0) & "=" & a(1) & "&"
        End If
    Next

    Response.Write("<table " & Table_style & ">" & vbCrLf )        
    Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
    Response.Write("<TD align=right>" & vbCrLf )
    Response.Write(font_style & vbCrLf )    
        
    if page<=1 then
        Response.Write ("首页 " & vbCrLf)        
        Response.Write ("上页 " & vbCrLf)
    else        
        Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上页</A> " & vbCrLf)
    end if

    if page>=pagecount then
        Response.Write ("下页 " & vbCrLf)
        Response.Write ("尾页 " & vbCrLf)            
    else
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾页</A> " & vbCrLf)            
    end if

    Response.Write(" 页次：" & page & "/" & pageCount & "页" &  vbCrLf)
    Response.Write(" 共有" & iCount & "个类别" &  vbCrLf)
    Response.Write(" 转到" & "<INPUT TYEP=TEXT NAME=page SIZE=1 Maxlength=5 VALUE=" & page & ">" & "页"  & vbCrLf & "<INPUT type=submit style=""font-size: 9pt"" value=GO class=b2>")
    Response.Write("</TD>" & vbCrLf )                
    Response.Write("</TR></form>" & vbCrLf )        
    Response.Write("</table>" & vbCrLf )        
End Sub

sub save()
bigclass=my_request("bigclass",0)
sql="insert into big_class (txt_big_class,addtime) values('"&bigclass&"','"&date()&"')"
conn.execute(sql)
response.redirect "add_big_class.asp"
end sub

sub del()
id=my_request("id",1)
sql = "delete from big_class where id="&id
conn.execute(sql)
sql2="delete from small_class where iid="&id
conn.execute(sql2)
response.redirect "add_big_class.asp"
end sub
rs.close
set rs=nothing
conn.close
set conn=nothing

%>
💿 文件大小 1300 K
👤 上传用户 saas1988
📂 所属分类其他
🏷️ 相关标签

#后台 #编辑器
⌨️ 快捷键说明

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