www.gusucode.com > 艺帆全站DIV+CSS体育用品公司网站源码 1.7.5源码程序 > i5808/admin_about.asp
<!--#include file="../Conn.asp" --> <!--#include file="seeion.asp"--> <!--#include file="page.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 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 =30 '每页记录条数 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> <tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='<%=bg%>'" bgcolor="<%=bg%>"> <td colspan="2"><table width="100%" border="0" cellpadding="5" cellspacing="0"> <tr> <td width="6%" class="td">ID:<%=rs("id")%></td> <td width="12%" height="25" class="td"><a href="xiugai_about.asp?id=<%=rs("id")%>" style="color:#003399"><%=rs("title")%></a> </td> <td width="24%" class="td"><select name="clas" id="select"> <% dim rsc set rsc=server.CreateObject("adodb.recordset") rsc.open "select * from about_fl",conn,1,1 while not rsc.eof if rs("clas")=rsc("id") then response.Write("<option value=""" & rsc("id") & """ selected>" & rsc("title") & "</option>") else response.Write("<option value=""" & rsc("id") & """>" & rsc("title") & "</option>") end if rsc.movenext wend rsc.close set rsc=nothing %> </select> </td> <td width="30%" class="td">地址: <input value="About/?<%=rs("id")%>-1.html" /> [<a href="../About/?<%=rs("id")%>-1.html" target="_blank" style="color:#003399">访问</a>]</td> <td width="14%" class="td">排序ID:<%=rs("px_id")%></td> <td width="7%" class="td"> <input type="button" name="Submit3" value="修改" onclick="window.location.href='xiugai_about.asp?id=<%=rs("id")%>' " class="btn"/></td> <%if session("qx")=2 then%> <td width="7%" class="td"> <input type="button" name="Submit" value="删除" onclick="javascript:if(confirm('确定删除?删除后不可恢复!')){window.location.href='admin_about.asp?id=<%=rs("id")%>&del=ok';}else{history.go(0);}" class="btn"/></td><%end if%> </tr> </table> <% rs.movenext if rs.eof then exit for next %> <% end if %></td> </tr> <tr onmouseover="style.backgroundColor='#EEEEEE'" > <td width="100%" height="30"><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td bgcolor="#F1F5F8"><div align="left"> <%call PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>") rs.close set rs=nothing %> </div></td> </tr> </table> </td> </tr> </table></td> </tr> </table> </body> </html> <% if request("del")="ok" then set rs=server.createobject("adodb.recordset") id=Request.QueryString("id") sql="select * from about where id="&id rs.open sql,conn,2,3 rs.delete rs.update Response.Write "<script>alert('删除成功!');window.location.href='admin_about.asp';</script>" end if %>