?? system_recordstype.asp
字號:
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif"><span class="STYLE1">數據轉移</span></td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('manageUser.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif"><span class="STYLE1">用戶管理</span></td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('system_level.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif"><span class="STYLE1">系統設置</span></td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<% End If %>
<table onClick="window.location.replace('logout.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="right">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif"><span class="STYLE1">注銷</span></td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.reload();" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="right">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif"><span class="STYLE1">刷新</span></td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="5"><img src="images/null.gif" width="1" height="1"></td>
</tr>
<tr>
<td bgcolor="#999999"> </td>
</tr>
<tr id="block1" style="display: block;">
<td>
<%
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 recordsType
recordsType = Trim(Request.Form("recordsType"))
If recordsType = "" 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_recordsType Where recordsType = '" & recordsType & "'",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("recordsType") = recordsType
rs.Update
rs.Close
Set rs = Nothing
Response.Redirect("?")
End If
End Sub
Sub restore()
Dim recordsTypeOld,recordsType
recordsTypeOld = Trim(Request.Form("recordsTypeOld"))
recordsType = Trim(Request.Form("recordsType"))
If recordsTypeOld = "" Or recordsType = "" 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_recordsType Where recordsType <> '" & recordsTypeOld & "'",conn,3,1
Do While Not rs.BOF And Not rs.EOF
If rs("recordsType") = recordsType 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_recordsType Where recordsType = '" & recordsTypeOld & "'",conn,3,2
If rs.RecordCount = 1 Then
recordsTypeOld = rs("recordsType")
rs("recordsType") = recordsType
rs.Update
If recordsTypeOld <> recordsType Then
Dim rss
Set rss = Server.CreateObject("ADODB.Recordset")
rss.Open "Select * From baidu_records Where rType = '" & recordsTypeOld & "'",conn,3,2
Do While Not rss.BOF And Not rss.EOF
'rss("cType") = recordsType
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 recordsTypeOld,lIdOld
recordsTypeOld = Trim(Request("recordsTypeOld"))
If recordsTypeOld = "" 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_recordsType Where recordsType = '" & recordsTypeOld & "'",conn,3,2
If rs.RecordCount > 0 Then
rs.Delete
rs.Update
End If
rs.Close
If recordsTypeOld <> "" Then
rs.Open "Select * From baidu_records Where rType = '" & recordsTypeOld & "'",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 recordsType,recordsTypeOld,strOut,strAction
If action = "edit" Then
Dim rs
recordsTypeOld = Trim(Request("recordsTypeOld"))
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From baidu_recordsType Where recordsType = '" & recordsTypeOld & "'",conn,3,1
If rs.RecordCount = 1 Then
recordsType = rs("recordsType")
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="recordsTypeForm" action="<% = strAction %>" method="post" onSubmit="return checkInput('recordsTypeForm');">
<tr>
<td width="60"> </td>
<td><% = strOut %>
<% If action = "edit" Then %><input name="recordsTypeOld" type="hidden" id="recordsTypeOld" value="<% = recordsTypeOld %>"><% End If %></td>
</tr>
<tr>
<td width="60"> </td>
<td>拜訪類型名稱：
<input name="recordsType" type="text" id="recordsType" size="16" maxlength="16" value="<% = recordsType %>" 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 height="16" align="center" bgcolor="#999999" id="oHeadBar" style="cursor: hand;" title="隱藏頭部" onClick="return showHideHead(document.all.oHeadCtrl.src);">
<img src="images/arrow_up.gif" alt="隱藏頭部" width="16" height="16" align="absmiddle" id="oHeadCtrl"> </td>
</td>
</tr>
<tr>
<td valign="top" bgcolor="#FFFFFF" style="padding: 10px;"><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> </td>
</tr>
<tr>
<td height="16" align="right" bgcolor="#999999"><a href="#top"><img src="images/arrow_up.gif" alt="返回頂部" width="16" height="16" border="0" align="absmiddle"></a> </td>
</td>
</tr>
</table>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -