www.gusucode.com > 中网景企业网站源码时尚版 2009.73码程序 > admin/node.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!--#include file="opendb.asp" --> <!--#INCLUDE file="editor_ubbcode.asp"--> <% Call CheckAdmin() 'Call CnkAdminRight(1) thispage=request("page_code") if thispage="" then thispage=1 else thispage=clng(thispage) end if if thispage<1 then thispage=1 PagePara="?tmp=" Dim Action,paixu,title,content,id,provinceid,rspv,provincename,recommend Action=Trim(Request("Action")) paixu=Trim(Request.Form("paixu")) title=Trim(Request.Form("title")) content=Trim(Request.Form("content")) id=Trim(Request("id")) recommend=Request("recommend") if recommend="" then recommend=0 provinceid=Trim(Request("provinceid")) if provinceid<>"" then set rspv=conn.execute("select provincename from cnk_province where provinceid="&provinceid) provincename=rspv(0) end if Call Head() %> <SCRIPT language=javascript> function save_onclick() { document.form1.Content.value=editor.HtmlEdit.document.body.innerHTML; var strTemp = document.form1.provinceid.value; if (strTemp.length == 0 ) { alert("请选择所在地区!"); document.form2.provinceid.focus(); return false; } var strTemp = document.form1.title.value; if (strTemp.length == 0 ) { alert("请输入销售网点名称!"); document.form2.title.focus(); return false; } var strTemp = document.form1.Content.value; if (strTemp.length == 0 ) { alert("请填写内容!"); return false; } return true; } </SCRIPT> <script language="JavaScript"> <!-- function cform(){ if(!confirm("您确认删除吗? 请注意删除后无法恢复!")) return false; }//--> </script> <body> <div class="cnkbox"> <% =GetChannelContent(ChannelID,"ChannelName")%> 管理导航: <a href="?ChannelID=<%= ChannelID %>">管理首页</a> | <a href="?ChannelID=<%= ChannelID %>&Action=Add">添加新网点</a> >>>>><a href="node-e.asp?ChannelID=<%= ChannelID %>">英文国际版</a> </div> <% select case Action case "saveadd" Call SaveAdd() case "savemodi" Call SaveModi() case "del" Call AdminRight("DelAdmin",ChannelID,session("admin")) Call del() case "paixu" Call setpaixu() case "" %> <div class="cnkbox"> <div class="title"><% =GetChannelContent(ChannelID,"ChannelName")&" 管理"&" --"&provincename%> </div> <div class="content"> <% Dim ipage sql="select cnk_node.*,cnk_province.provincename from cnk_node,cnk_province where cnk_node.provinceid=cnk_province.provinceid and cnk_node.ChannelID="&ChannelID&"" if provinceid<>"" then sql=sql&" and cnk_node.provinceid="&provinceid sql=sql&" order by cnk_node.paixu" rs.open sql,conn,1,1 if rs.recordcount=0 then Response.Write "该地区未有网点" else rs.pagesize=20 if thispage>rs.pagecount then thispage=rs.pagecount rs.AbsolutePage = thispage %> <table width="96%" border="0" cellpadding="3" cellspacing="1"> <tr bgcolor="#C2E0FE" align="center"> <td width="10%">排序</td> <td width="18%">省/市/区</td> <td width="53%">网点名称</td> <td width="10%" align="center">修改</td> <td width="9%" align="center">删除</td> </tr> <% for ipage=1 to rs.pagesize%> <tr bgcolor="#F6F6F6" onMouseOut="mOut(this,'#F6F6F6');" onMouseOver="mOvr(this,'#EBFFBB');"> <form action="" method="post" name="form1"> <td align="center"> <input name="paixu" type="text" class="input" value="<%= rs("paixu") %>" size="4" maxlength="4"> <input name="provinceid" type="hidden" id="provinceid" value="<%=provinceid%>"> <input name="Action" type="hidden" id="Action" value="paixu" /> <input name="id" type="hidden" id="id" value="<%= rs("id") %>" /> <input name="ChannelID" type="hidden" id="ChannelID" value="<%= ChannelID %>" /> </td> </form> <td align="center"><a href="?provinceid=<%=rs("provinceid")%>&ChannelID=<%=ChannelID%>"><%= rs("provincename") %> </a></td> <td><a href="?id=<%=rs("id")%>&ChannelID=<%=ChannelID%>&Action=modi"><%=rs("title")%> </a></td> <td align="center"><a href="?id=<%=rs("id")%>&ChannelID=<%=ChannelID%>&Action=modi">修改</a></td> <td align="center"><a href="?id=<%=rs("id")%>&ChannelID=<%=ChannelID%>&Action=del" onclick="return cform()">删除</a></td> </tr> <%rs.movenext if rs.eof then exit for next%> </table> <table width="96%" height="21" border="0" background="images/bg-xg.gif" bgcolor="#EFEFEF"> <tr> <td width="50%"><% = GetPageList(rs.pagecount,thispage,PagePara,0) %></td> <td width="50%" align="right"> 共 <strong><%=rs.recordcount%></strong> 条 <% = GetPage(rs.pagecount,thispage,PagePara,0) %></td> </tr> </table> <% rs.close end if %> <% =GetCNMap(ChannelID) %> </div> </div> <% Case "Add" Call AdminRight("AddAdmin",ChannelID,session("admin"))%> <form name="form1" method="post" action="node.asp" onSubmit="return save_onclick()"> <div class="cnkbox"> <div class="title"><% =GetChannelContent(ChannelID,"ChannelName")%> 添加网点</div> <div class="content"> <div id="list"> <ul> <li class="t1">排序号:</li> <li class="t2"> <input name="paixu" type="text" class="input" id="paixu" value="0" size="30" maxlength="4" />只能填半角数字 </li> </ul> <ul> <li class="t1">所在地区:</li> <li class="t2"> <select name="provinceid" class="input" id="provinceid"> <%rs.open "select * from cnk_province",conn,1,1 do while not rs.eof %> <option value="<%=rs("provinceid")%>"><%=rs("provincename")%></option> <%rs.movenext loop rs.close%> </select> </li> </ul> <ul> <li class="t1">网点名称:</li> <li class="t2"> <input name="title" type="text" class="input" id="title" size="30" maxlength="50" /> </li> </ul> <ul> <li class="t1">显示在首页:</li> <li class="t2"> <input type="radio" name="recommend" value="1"> 是 <input name="recommend" type="radio" value="0" checked> 否 </li> </ul> <ul> <li class="t1">联系方式及简介:</li> <li class="t2"> <font color="#FF0000">· 换行请按Shift+Enter ·另起一段请按Enter·支持UBB标签</font><br> <textarea name="Content" style="display:none"></textarea> <iframe ID="editor" src="editor.asp" frameborder=1 scrolling=no width="600" height="405"></iframe> </li> </ul> <br /> <ul> <li class="t1"> <input name="Action" type="hidden" id="Action" value="saveadd" /> <input name="ChannelID" type="hidden" id="ChannelID" value="<%= ChannelID %>" /> </li> <li class="t2"> <input name="提交" type="submit" class="button" value="提交" /> </li> </ul> <div class="clearboth"></div> </div> </div> </div> </form> <% Case "modi" Call AdminRight("ModiAdmin",ChannelID,session("admin")) rs.open "select * from cnk_node where id="&id,conn,1,1 %> <form name="form1" method="post" action="node.asp" onSubmit="return save_onclick()"> <div class="cnkbox"> <div class="title"><% =GetChannelContent(ChannelID,"ChannelName")&" -- "%> 修改网点</div> <div class="content"> <div id="list"> <ul> <li class="t1">排序号:</li> <li class="t2"> <input name="paixu" type="text" class="input" id="paixu" value="<%= rs("paixu") %>" size="30" maxlength="4" />只能填半角数字 </li> </ul> <ul> <li class="t1">所在地区:</li> <li class="t2"> <select name="provinceid" class="input" id="provinceid"> <option selected value="">请选择所在地区</option> <%dim rs1 set rs1=Server.CreateObject("ADODB.Recordset") rs1.open "select * from cnk_province",conn,1,1 do while not rs1.eof %> <option value="<%=rs1("provinceid")%>" <% If rs1("provinceid")=rs("provinceid") Then Response.Write("selected=""selected""")%>><%=rs1("provincename")%></option> <%rs1.movenext loop rs1.close%> </select> </li> </ul> <ul> <li class="t1">网点名称:</li> <li class="t2"> <input name="title" type="text" class="input" id="title" value="<%= rs("title") %>" size="30" maxlength="50" /> </li> </ul> <ul> <li class="t1">显示在首页:</li> <li class="t2"> <input type="radio" name="recommend" value="1" <% If rs("recommend")=1 Then Response.Write("checked=""checked""")%>> 是 <input type="radio" name="recommend" value="0" <% If rs("recommend")=0 Then Response.Write("checked=""checked""")%>> 否 </li> </ul> <ul> <li class="t1">联系方式及简介:</li> <li class="t2"> <font color="#FF0000">· 换行请按Shift+Enter ·另起一段请按Enter·支持UBB标签</font><br> <textarea name="Content" style="display:none"></textarea> <iframe ID="editor" src="editor.asp?table=cnk_node&zd=content&id=<%= rs("id") %>" frameborder=1 scrolling=no width="600" height="405"></iframe> </li> </ul> <br /> <ul> <li class="t1"> <input name="Action" type="hidden" id="Action" value="savemodi" /> <input name="id" type="hidden" id="id" value="<%= rs("id") %>" /> <input name="ChannelID" type="hidden" id="ChannelID" value="<%= ChannelID %>" /> </li> <li class="t2"> <input name="提交" type="submit" class="button" value="提交" /> </li> </ul> <div class="clearboth"></div> </div> </div> </div> </form> <% rs.close End Select Call Foot() Call Closedb() Sub SaveAdd() content=ubbcode(Content) content=replace(content,"'","""") sql="insert into cnk_node" sql=sql&" (ChannelID,provinceid,paixu,title,content,recommend)" sql=sql&" values ("&ChannelID&","&provinceid&","&paixu&",'"&title&"','"&content&"',"&recommend&")" conn.execute(sql) Call alertmsg_url("添加成功","node.asp?ChannelID="&ChannelID) End Sub Sub SaveModi() content=ubbcode(Content) content=replace(content,"'","""") sql="update cnk_node set" sql=sql&" ChannelID="&ChannelID&",provinceid="&provinceid&",paixu="&paixu&",title='"&title&"',content='"&content&"',recommend="&recommend&" where id="&id conn.execute(sql) Call alertmsg_url("修改成功","node.asp?ChannelID="&ChannelID) End Sub Sub del() conn.execute("delete from cnk_node where id="&id) Call alertmsg_url("删除成功","node.asp?ChannelID="&ChannelID) End Sub Sub setpaixu() conn.execute("update cnk_node set paixu="&paixu&" where id="&id) Response.Write("<script>window.location.href='node.asp?ChannelID="&ChannelID&"&provinceid="&provinceid&"';</script>") End Sub %>