www.gusucode.com > 艺帆全站DIV+CSS体育用品公司网站源码 1.7.5源码程序 > i5808/admin_aboutfl.asp
<!--#include file="../Conn.asp" --> <!--#include file="seeion.asp"--> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <link rel="stylesheet" type="text/css" id="css" href="images/style.css"> <title>单页分类管理</title> </head> <body> <table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" > <tr> <td height="30" background="images/bg_list.gif"><div style="padding-left:10px; font-weight:bold; color:#0075a9">单页分类管理</div></td> </tr> <tr> <td bgcolor="#FFFFFF"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1"> <tr> <td bgcolor="#FFFFFF"><% set rs=server.createobject("adodb.recordset") exec="select * from about_fl order by px_id asc" rs.open exec,conn,1,1 if rs.eof then response.write ("<div style=""padding:10px;"">暂无单页分类!</div>") else rs.PageSize =300 '每页记录条数 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 %> <% for i=1 to rs.pagesize j=i if j mod 2=0 then bg="#F1F5F8" else bg="#FFFFFF" end if %> </td> </tr><%if session("qx")=2 then%> <tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='<%=bg%>'" bgcolor="<%=bg%>"> <td colspan="2"><table width="100%" border="0" cellpadding="5" cellspacing="0"> <form action="admin_aboutfl.asp?xiugai=ok" method="post" name="add"> <tr> <td width="5%" height="30" class="td">ID:<%=rs("id")%><input name="id" type="hidden" size="15" value="<%=rs("id")%>"/></td> <td height="25" class="td"><input name="title" type="text" size="15" value="<%=rs("title")%>"/></td> <td width="21%" class="td">关键词: <input name="keywords" type="text" id="keywords" value="<%=rs("keywords")%>" size="30" /></td> <td width="28%" class="td">描述 <input name="description" type="text" id="description" value="<%=rs("description")%>" size="30" /></td> <td width="9%" class="td">排序: <input name="px_id" type="text" value="<%=rs("px_id")%>" size="5" /></td> <td width="4%" class="td"><input type="submit" name="button2" id="button2" value="修改" class="btn"/></td> <td width="5%" class="td"><input type="button" name="Submit" value="删除" onClick="javascript:if(confirm('确定删除?删除后不可恢复!')){window.location.href='admin_aboutfl.asp?act=del&id=<%=rs("id")%>';}else{history.go(0);}" class="btn"/></td> </tr></form> </table> <%else%> <div style=" padding:20px;font-size:14px; color:#990000; font-weight:bold; text-align:center">您没有权限操作!</div> <%response.end end if%> <% rs.movenext if rs.eof then exit for next %> <% end if %></td> </tr> </table></td> </tr> </table> <div style="margin-top:10px"> <table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" > <form action="add_aboutfl_pass.asp" method="post" name="add"> <tr> <td height="30" background="images/bg_list.gif"><div style="padding-left:10px; font-weight:bold; color:#0075a9">增加分类</div></td> </tr> <tr> <td bgcolor="#FFFFFF"><table width="100%" border="0" align="center" cellpadding="5" cellspacing="0" > <tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8" > <td height="30" width="34%" class="td">分类名称</td> <td width="66%" class="td"><input name="title" type="text" size="30" /></td> </tr> <tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF"> <td width="34%" height="8" class="td">排序ID</td> <td class="td"><input name="px_id" type="text" size="30" /> 数字越小越靠前。</td> </tr> <tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF"> <td height="30" bgcolor="#F1F5F8" class="td">关键词</td> <td bgcolor="#F1F5F8" class="td"><input name="keywords" type="text" id="keywords" size="30" /> 不设置留空默认格式为:文章类别+网站名称</td> </tr> <tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF"> <td height="30" class="td">描述</td> <td class="td"><textarea name="description" cols="50" rows="5" id="description"></textarea> 不设置留空默认格式为:文章类别+网站名称</td> </tr> <tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8"> <td height="30" class="td"> </td> <td class="td"><label> <input type="submit" name="button" id="button" value="增加分类" class="btn"/> </label></td> </tr> </table></td> </tr></form> </table> </div> </body> </html> <% if Request.QueryString("xiugai")="ok" then id=request("id") sql="select * from about_fl where id="&id set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,3 IF not isNumeric(request("px_id")) then response.write("<script>alert(""排序ID必须为数字!""); history.go(-1);</script>") response.end end if rs("title")=request.form("title") rs("px_id")=request.form("px_id") rs("keywords")=request.form("keywords") rs("description")=request.form("description") rs.update rs.close response.Write("<script language=""javascript"">alert(""当前分类修改成功!"");window.location.href='admin_aboutfl.asp';</script>") end if %> <% if request("act")="del" then id=request("id") if id="" then Response.Write "<script language='javascript'>alert('参数错误!');document.location.href('admin_aboutfl.asp');</script>" Response.End() end if set rs=server.createobject("adodb.recordset") rs.open "Select * from about_fl where id="&Request("id"),conn,1,3 if rs.bof and rs.eof then Response.Write "<script language='javascript'>alert('数据库中没有该记录!');document.location.href('admin_aboutfl.asp');</script>" Response.End() else rs.Delete rs.Update Response.Write "<script language='javascript'>alert('当前分类删除成功!');document.location.href('admin_aboutfl.asp');</script>" end if end if %>