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> &gt;&gt;&gt;&gt;&gt;<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") %>&nbsp;</a></td>
        <td><a href="?id=<%=rs("id")%>&ChannelID=<%=ChannelID%>&Action=modi"><%=rs("title")%>&nbsp;</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
%>