?? system_area.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Response.Buffer = True
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<!--#include file="Connections/conn.asp" -->
<!--登錄權限判斷，Session和MD5加密判斷-->
<%
''生成下拉列表
Function getList(i,sTable,iId,sValue,sName,selfValue)
If i < 1 Or i > 2 Then
getList = ""
Exit Function
End If
Dim strList
Dim rs
If i = 1 Then
strList = "<select name=""" & sName & """ selfValue=""" & selfValue & """>"
strList = strList & "<option value="""">請選擇</option>"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From " & sTable & "",conn,3,1
Do While Not rs.BOF And Not rs.EOF
strList = strList & "<option value=""" & rs(sValue) & """>" & rs(sValue) & "</option>"
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
strList = strList & "</select>"
getList = strList
Else
strList = "<select name=""" & sName & """ selfValue=""" & selfValue & """>"
strList = strList & "<option value="""">請選擇</option>"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From " & sTable & "",conn,3,1
Do While Not rs.BOF And Not rs.EOF
strList = strList & "<option value=""" & rs(iId) & """>" & rs(sValue) & "</option>"
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
strList = strList & "</select>"
getList = strList
End If
End Function
Rem Session("CRM_account") 用戶帳號
Rem Session("CRM_name") 用戶名
Rem Session("CRM_level") 用戶等級
If Session("CRM_account") = "" Or Session("CRM_name") = "" Or Session("CRM_level") <= 0 Then Response.Redirect("default.asp")
If Session("CRM_level") <> 9 Then Response.Redirect("listAll.asp")
Function getGroupName(gId)
If Not IsNumeric(gId) Or gId <= 0 Then
getGroupName = ""
Else
Dim rs,gName
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From baidu_group Where gId = " & gId,conn,3,1
If rs.RecordCount <> 1 Then
gName = ""
Else
gName = rs("gName")
End If
rs.Close
Set rs = Nothing
getGroupName = gName
End If
End Function
Function getLevelName(lId)
If Not IsNumeric(lId) Or lId <= 0 Then
getLevelName = ""
Else
Dim rs,lName
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From baidu_level Where lId = " & lId,conn,3,1
If rs.RecordCount <> 1 Then
lName = ""
Else
lName = rs("lName")
End If
rs.Close
Set rs = Nothing
getLevelName = lName
End If
End Function
Function list()
Dim strToPrint
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From baidu_area",conn,3,1
Do While Not rs.BOF And Not rs.EOF
strToPrint = strToPrint & " <tr>" & VBCrlf
' strToPrint = strToPrint & " <td align=""center"">" & rs("lId") & "</td>" & VBCrlf
strToPrint = strToPrint & " <td>" & rs("areaName") & "</td>" & VBCrlf
strToPrint = strToPrint & " <td align=""center"">[<a href=""?action=edit&areaNameOld=" & rs("areaName") & """>修改</a>] [<a href=""?action=delete&areaNameOld=" & rs("areaName") & """ onClick=""return confirm('確定要刪除該客戶類型和該\r類型下的所有客戶資料？');"">刪除</a>]</td>" & VBCrlf
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
list = strToPrint
End Function
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Author" content="http://www.technet.cn">
<meta name="Date" content="2003-08">
<title></title>
<link href="myStyle.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
function checkInput(o)
{
var oo = eval("document.all." + o);
var num = oo.length;
for(var i=0;i<num;i++){
if(oo[i].value == ""){
alert(oo[i].selfValue + "不能為空。");
oo[i].focus();
return false
break;
}
}
}
if (this.location.href == top.location.href){
top.location.href = "";
}
function selectSystem(j)
{
var num = 4;
for(var i=1;i<=num;i++){
if(i != j){
document.all["block" + i].style.display = "none";
document.all["block" + (i + 4)].style.display = "none";
}
else{
document.all["block" + i].style.display = "block";
document.all["block" + (i + 4)].style.display = "block";
}
}
}
-->
</script>
</head>
<body style="background-color: menu;" onCopy="return false;" onSelectStart="return false;" onCut="return false;" onContextMenu="window.event.returnValue=false;">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr id="oHead" style="display: block;">
<td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><img src="images/null.gif" width="1" height="1">
<%
Dim action
action = Trim(Request.QueryString("action"))
Select Case action
Case "add"
Call addOrEdit()
Case "save"
Call saveData()
Case "edit"
Call addOrEdit()
Case "restore"
Call restore()
Case "delete"
Call deleteData()
Case Else
Call addOrEdit()
End Select
Sub saveData()
Dim areaName
areaName = Trim(Request.Form("areaName"))
If areaName = "" Then
Response.Write("<div align=""center"">提交的數據不完整，請返回重新填寫。<br>")
Response.Write("<input name=""back"" type=""button"" value="" 返 回 "" onClick=""history.back();""></div>")
Exit Sub
End If
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From baidu_area Where areaName = '" & areaName & "'",conn,3,2
If rs.RecordCount > 0 Then
Response.Write("<div align=""center"">該業務區域已經存在。<br>")
Response.Write("<input name=""back"" type=""button"" value="" 返 回 "" onClick=""history.back();""></div>")
rs.Close
Set rs = Nothing
Exit Sub
Else
rs.AddNew
rs("areaName") = areaName
rs.Update
rs.Close
Set rs = Nothing
Response.Redirect("?")
End If
End Sub
Sub restore()
Dim areaNameOld,areaName
areaNameOld = Trim(Request.Form("areaNameOld"))
areaName = Trim(Request.Form("areaName"))
If areaNameOld = "" Or areaName = "" Then
Response.Write("<div align=""center"">提交的數據不完整，請返回重新填寫。<br>")
Response.Write("<input name=""back"" type=""button"" value="" 返 回 "" onClick=""history.back();""></div>")
Exit Sub
End If
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From baidu_area Where areaName <> '" & areaNameOld & "'",conn,3,1
Do While Not rs.BOF And Not rs.EOF
If rs("areaName") = areaName Then
Response.Write("<div align=""center"">該業務區域已經存在。<br>")
Response.Write("<input name=""back"" type=""button"" value="" 返 回 "" onClick=""history.back();""></div>")
rs.Close
Set rs = Nothing
Exit Sub
End If
rs.MoveNext
Loop
rs.Close
rs.Open "Select * From baidu_area Where areaName = '" & areaNameOld & "'",conn,3,2
If rs.RecordCount = 1 Then
areaNameOld = rs("areaName")
rs("areaName") = areaName
rs.Update
If areaNameOld <> areaName Then
Dim rss
Set rss = Server.CreateObject("ADODB.Recordset")
rss.Open "Select * From baidu_client Where cArea = '" & areaNameOld & "'",conn,3,2
Do While Not rss.BOF And Not rss.EOF
rss("cArea") = areaName
rss.Update
rss.MoveNext
Loop
rss.Close
rss.Open "Select * From baidu_square Where areaName = '" & areaNameOld & "'",conn,3,2
Do While Not rss.BOF And Not rss.EOF
rss("areaName") = areaName
rss.Update
rss.MoveNext
Loop
rss.Close
Set rss = Nothing
End If
End If
rs.Close
Set rs = Nothing
Response.Redirect("?")
End Sub
Sub deleteData()
Dim areaNameOld,lIdOld
areaNameOld = Trim(Request("areaNameOld"))
If areaNameOld = "" Then
Response.Write("<div align=""center"">提交的數據不完整，請返回重新填寫。<br>")
Response.Write("<input name=""back"" type=""button"" value="" 返 回 "" onClick=""history.back();""></div>")
Exit Sub
End If
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From baidu_area Where areaName = '" & areaNameOld & "'",conn,3,2
If rs.RecordCount > 0 Then
rs.Delete
rs.Update
End If
rs.Close
If areaNameOld <> "" Then
rs.Open "Select * From baidu_client Where cArea = '" & areaNameOld & "'",conn,3,2
Do While Not rs.BOF And Not rs.EOF
rs.Delete
rs.Update
rs.MoveNext
Loop
rs.Close
rs.Open "Select * From baidu_square Where areaName = '" & areaNameOld & "'",conn,3,2
Do While Not rs.BOF And Not rs.EOF
rs.Delete
rs.Update
rs.MoveNext
Loop
rs.Close
End If
Set rs = Nothing
Response.Redirect("?")
End Sub
Sub addOrEdit()
Dim areaName,areaNameOld,strOut,strAction
If action = "edit" Then
Dim rs
areaNameOld = Trim(Request("areaNameOld"))
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From baidu_area Where areaName = '" & areaNameOld & "'",conn,3,1
If rs.RecordCount = 1 Then
areaName = rs("areaName")
End If
rs.Close
Set rs = Nothing
strOut = "編輯業務區域："
strAction = "?action=restore"
Else
strOut = "添加業務區域："
strAction = "?action=save"
End If
%>
<table width="100%" border="0" cellpadding="3" cellspacing="0" bgcolor="#FFFFFF">
<form name="areaNameForm" action="<% = strAction %>" method="post" onSubmit="return checkInput('areaNameForm');">
<tr>
<td width="60"> </td>
<td><% = strOut %>
<% If action = "edit" Then %>
<input name="areaNameOld" type="hidden" id="areaNameOld" value="<% = areaNameOld %>">
<% End If %></td>
</tr>
<tr>
<td width="60"> </td>
<td>業務區域名稱：
<input name="areaName" type="text" id="areaName" size="16" maxlength="16" value="<% = areaName %>" selfvalue="客戶類別名稱">
</td>
</tr>
<tr>
<td width="60" align="center"> </td>
<td align="center"><input type="submit" name="Submit" value=" 提 交 ">
<input name="Reset" type="reset" id="Reset" value=" 重 置 ">
</td>
</tr>
</form>
</table>
<%
End Sub
%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="3" align="right" id="oHeadBar"> </td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>[<a href="system_level.asp">用戶級別</a>] [<a href="system_group.asp">用戶組</a>]
[<a href="system_clientsType.asp">客戶等級</a>] [<a href="system_clientsTrade.asp">行業類型</a>]
[<a href="system_recordsType.asp">拜訪類型</a>] [<a href="system_area.asp">業務區域</a>]
[<a href="system_square.asp">業務小區</a>]</td>
</tr>
</table>
<table width="100%" align="center" border="1" cellpadding="3" cellspacing="0" bordercolor="#DCDCDC" bordercolordark="#FFFFFF">
<tr>
<td align="center" bgcolor="menu">業務區域名稱</td>
<td width="120" align="center" bgcolor="menu">操作</td>
<% = list() %>
</tr>
</table>
</tr>
<tr>
<td colspan="3" align="right" id="oHeadBar"><a href="#top">返回頂部<img src="images/arrow_up.gif" alt="返回頂部" width="16" height="16" border="0" align="absmiddle"></a></td>
</tr>
</table>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -