www.gusucode.com > CRM源码带手机版ASP源码程序 > System/AreaData.asp
<!--#include file="../data/conn.asp" --><% If mid(Session("CRM_qx"), 5, 1) = 1 Then %>
<!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=GBK" />
<link href="<%=SiteUrl&skinurl%>Style/common.css" rel="stylesheet" type="text/css">
<script language="javascript" src="<%=SiteUrl&skinurl%>Js/jquery.min.js"></script>
<script language="javascript" src="<%=SiteUrl&skinurl%>Js/tips.js"></script>
<script src="<%=SiteUrl&skinurl%>aridialog/jquery.artDialog.js?skin=default"></script>
<script src="<%=SiteUrl&skinurl%>aridialog/iframeTools.js"></script>
</head>
<body style="padding-top:35px;">
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="top_bg">
<tr>
<td class="top_left td_t_n td_r_n">当前位置：系统管理 > 地区管理</td>
<td class="top_right td_t_n td_r_n">
<input type="button" class="button_top_reload" value=" " title="刷新" onClick=window.location.href="javascript:window.location.reload();" />
<input type="button" class="button_top_back" value=" " title="后退" onClick=window.location.href="javascript:history.back();" />
<input type="button" class="button_top_go" value=" " title="前进" onClick=window.location.href="javascript:history.go(1);" />
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" class="td_n pdr10 pdt10">
<div class="MenuboxS">
<ul>
<li class="hover"><span><a href="?">地区列表</a></span></li>
<li class=""><span><a href="#" onclick='AreaData_BClass_Add()' style="cursor:pointer">新增大类</a></span></li>
<li class=""><span><a href="#" onclick='AreaData_Import()' style="cursor:pointer">导入数据</a></span></li>
</ul>
</div>
</td>
</tr>
</table>
<script>function AreaData_BClass_Add() {$.dialog.open('GetAreaData.asp?action=AreaData&sType=BigClassAdd', {title: '新增地区大类', width: 400,height: 145, fixed: true}); };</script>
<script>function AreaData_Import() {$.dialog.open('GetAreaData.asp?action=AreaData&sType=Import', {title: '导入全国地区', width: 600,height: 350, fixed: true}); };</script>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" class="td_n pd10">
<%
action = Trim(Request.QueryString("action"))
tipinfo = Trim(Request("tipinfo"))
Select Case action
Case "delete" '删除地区分类
Call deleteData()
Case Else
Call main()
End Select
Sub main() '默认显示地区分类列表
if tipinfo<>"" then
Response.Write("<script>art.dialog({title: '提示',time: 1,icon: 'warning',content: '"&tipinfo&"'});</script>")
end if
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1">
<tr class="tr_t">
<td class="td_l_l">信息列表</td>
<td class="td_l_c" width="120">管理</td>
</tr>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From [AreaData] where aFId = '0' order by aId asc ",conn,3,1
If rs.RecordCount > 0 Then
Do While Not rs.BOF And Not rs.EOF
%>
<tr class="tr">
<td class="tr_f"><a href="#" onclick='AreaData_BClass_Edit<%=rs("aId")%>()' title='修改' style="cursor:pointer"><%=rs("aName")%></a></td>
<td class="td_l_r title"><input type="button" class="button_info_add" value=" " title="添加小类" onclick='AreaData_SClass_Add<%=rs("aId")%>()' style="cursor:pointer" /><input type="button" class="button_info_edit" value=" " title="<%=L_Edit%>" onclick='AreaData_BClass_Edit<%=rs("aId")%>()' style="cursor:pointer" /><input type="button" class="button_info_del" value=" " title="<%=L_Del%>" onClick=window.location.href="?action=delete&aId=<%=rs("aId")%>" /></td>
</tr>
<script>function AreaData_BClass_Edit<%=rs("aId")%>() {$.dialog.open('GetAreaData.asp?action=AreaData&sType=BigClassEdit&aId=<%=rs("aId")%>', {title: '编辑地区大类', width: 400,height: 145, fixed: true}); };</script>
<script>function AreaData_SClass_Add<%=rs("aId")%>() {$.dialog.open('GetAreaData.asp?action=AreaData&sType=SmallClassAdd&aFId=<%=rs("aId")%>', {title: '添加地区小类', width: 400,height: 180, fixed: true}); };</script>
<% '子分类列表
Set rss = Server.CreateObject("ADODB.Recordset")
rss.Open "Select * From [AreaData] where aFId ='" & rs("aId") & "' ",conn,3,1
Do While Not rss.BOF And Not rss.EOF
%>
<tr class="tr">
<td class="td_l_l" style="padding-left:30px;">┗━━ <a onclick='AreaData_SClass_Edit<%=rss("aId")%>()' title='修改' style="cursor:pointer"><%=rss("aName")%></a></td>
<td class="td_l_r"><input type="button" class="button_info_edit" value=" " title="<%=L_Edit%>" onclick='AreaData_SClass_Edit<%=rss("aId")%>()' style="cursor:pointer" /><input type="button" class="button_info_del" value=" " title="<%=L_Del%>" onClick=window.location.href="?action=delete&aId=<%=rss("aId")%>" /></td>
</tr>
<script>function AreaData_SClass_Edit<%=rss("aId")%>() {$.dialog.open('GetAreaData.asp?action=AreaData&sType=SmallClassEdit&aId=<%=rss("aId")%>', {title: '编辑地区小类', width: 400,height: 180, fixed: true}); };</script>
<%
rss.MoveNext
Loop
rss.Close
Set rss = Nothing
rs.MoveNext
Loop
else
%>
<tr class="tr">
<td class="tr_f" colspan=2>无数据！</td>
</tr>
<%
end if
rs.Close
Set rs = Nothing
%>
</table>
<%
End Sub
Sub deleteData() '删除
aId = Request("aId")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From [AreaData] Where aFId = '"&aId&"'",conn,1,1 '判断当前分类下是否存在子分类
If rs.RecordCount > 0 Then
Response.Write("<script>location.href='?action=main&tipinfo=有子分类，禁止删除！';</script>")
else
Set rss = Server.CreateObject("ADODB.Recordset")
rss.Open "Select * From [AreaData] Where aId = " & aId,conn,3,2
If rss.RecordCount > 0 Then
rss.Delete
rss.Update
End If
rss.Close
Set rss = Nothing
Response.Redirect("?action=main")
end if
rs.Close
Set rs = Nothing
End Sub
%>
</td>
</tr>
</table>
</body>
</html>
<%
else
Response.write"<script>alert("""&alert31&""");location.href=""../"";</script>"
end if
%>