admin_city.asp

个人网站比较简短

    End If
    If City = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "请填写城市！"
        Exit Sub
    End If
    If Area = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "请填写县区！"
        Exit Sub
    End If
    If PostCode = "" Or Not IsTrueCode(PostCode, "PostCode") Then
        FoundErr = True
        ErrMsg = ErrMsg & "请填写正确的邮政编码！"
        Exit Sub
    End If
    If AreaCode = "" Or Not IsTrueCode(AreaCode, "AreaCode") Then
        FoundErr = True
        ErrMsg = ErrMsg & "请填写正确的区号！"
        Exit Sub
    End If
    Set rs = Server.CreateObject("adodb.recordset")
    sql = "select * from PE_City where Province='" & Province & "' and City='" & City & "' and Area='" & Area & "'"
    rs.Open sql, Conn, 1, 3
    If rs.EOF And rs.BOF Then
        rs.AddNew
        rs("Country") = "中华人民共和国"
        rs("Province") = Province
        rs("City") = City
        rs("Area") = Area
        rs("PostCode") = PostCode
        rs("AreaCode") = AreaCode
        rs.Update
        Call WriteSuccessMsg("邮政编码添加成功！", ComeUrl)
    Else
        FoundErr = True
        ErrMsg = ErrMsg & "<li>您输入的地区已经存在。</li>"
    End If
    rs.Close
    Set rs = Nothing
End Sub


Sub PostCodeEdit()
    Dim AreaID, PostCode, sql, rs

    AreaID = PE_CLng(Trim(Request("AreaID")))

    Set rs = Server.CreateObject("adodb.recordset")
    sql = "select * from PE_City where AreaID=" & AreaID & ""
    rs.Open sql, Conn, 1, 3
    If rs.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "不存在该记录！"
        rs.Close
        Set rs = Nothing
        Exit Sub
    End If
    Response.Write "    <form method='post' action='" & FileName & "' name='myform'>" & vbCrLf
    Response.Write "      <table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border' > " & vbCrLf
    Response.Write "         <tr class='title'>" & vbCrLf
    Response.Write "            <td height='22' colspan='2'> " & vbCrLf
    Response.Write "               <div align='center'><strong>修改邮政编码</strong></div>" & vbCrLf
    Response.Write "            </td>    " & vbCrLf
    Response.Write "         </tr>    " & vbCrLf
    Response.Write "        <tr class='tdbg'>      " & vbCrLf
    Response.Write "               <td width='280' class='tdbg5' align='right'><strong>所属省份：</strong></td>      " & vbCrLf
    Response.Write "               <td class='tdbg'><input name='Province' value='" & rs("Province") & "' type='text' id='Province' size='40' maxlength='30'>&nbsp;</td>    " & vbCrLf
    Response.Write "        </tr>  " & vbCrLf
    Response.Write "        <tr class='tdbg'>      " & vbCrLf
    Response.Write "               <td width='280' class='tdbg5' align='right'><strong>所属城市：</strong></td>      " & vbCrLf
    Response.Write "               <td class='tdbg'><input name='City' value='" & rs("City") & "' type='text' id='City' size='40' maxlength='30'>&nbsp;</td>    " & vbCrLf
    Response.Write "        </tr>  " & vbCrLf
    Response.Write "               <tr class='tdbg'>      " & vbCrLf
    Response.Write "               <td width='280' class='tdbg5' align='right'><strong>所属县区：</strong></td>      " & vbCrLf
    Response.Write "               <td class='tdbg'><input name='Area' value='" & rs("Area") & "' type='text' id='Area' size='40' maxlength='30'>&nbsp;</td>    " & vbCrLf
    Response.Write "         </tr>    " & vbCrLf
    Response.Write "        <tr class='tdbg'>      " & vbCrLf
    Response.Write "               <td width='280' class='tdbg5' align='right'><strong>邮政编码：</strong>" & vbCrLf
    Response.Write "               </td>      " & vbCrLf
    Response.Write "               <td class='tdbg'><input name='PostCode' value='" & rs("PostCode") & "' type='text' id='PostCode' size='25' maxlength='30'>&nbsp;</td>    " & vbCrLf
    Response.Write "        </tr>   " & vbCrLf
    Response.Write "        <tr class='tdbg'>      " & vbCrLf
    Response.Write "               <td width='280' class='tdbg5' align='right'><strong>地区区号：</strong>" & vbCrLf
    Response.Write "               </td>      " & vbCrLf
    Response.Write "               <td class='tdbg'><input name='AreaCode' value='" & rs("AreaCode") & "' type='text' id='AreaCode' size='25' maxlength='30'>&nbsp;</td>    " & vbCrLf
    Response.Write "        </tr>   " & vbCrLf
    Response.Write "        <tr class='tdbg'>     " & vbCrLf
    Response.Write "                     <td colspan='2' align='center' class='tdbg'><input name='AreaID' type='hidden' id='AreaID' value='" & AreaID & "'>" & vbCrLf
    Response.Write "                     <input name='Action' type='hidden' id='Action' value='SavePostCodeEdit'>        <input  type='submit' name='Submit' value='保存修改结果'  style='cursor:hand;'>&nbsp;&nbsp;        <input name='Cancel' type='button' id='Cancel' value=' 取 消 ' onClick=""window.location.href='Admin_City.asp'"" style='cursor:hand;'>" & vbCrLf
    Response.Write "                     </td>    " & vbCrLf
    Response.Write "        </tr>  " & vbCrLf
    Response.Write "      </table>" & vbCrLf
    Response.Write "    </form>" & vbCrLf
    rs.Close
    Set rs = Nothing
    Response.Write PostCodeSearch
End Sub

Sub SavePostCodeEdit()
    Dim AreaID, Province, City, Area, PostCode, AreaCode, sql, rs
    AreaID = PE_CLng(Trim(Request.Form("AreaID")))
    Province = ReplaceBadChar(Trim(Request.Form("Province")))
    City = ReplaceBadChar(Trim(Request.Form("City")))
    Area = ReplaceBadChar(Trim(Request.Form("Area")))
    PostCode = ReplaceBadChar(Trim(Request.Form("PostCode")))
    AreaCode = ReplaceBadChar(Trim(Request.Form("AreaCode")))
    If Province = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "请填写省份！"
    End If
    If City = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "请填写城市！"
    End If
    If PostCode = "" Or Not IsTrueCode(PostCode, "PostCode") Then
        FoundErr = True
        ErrMsg = ErrMsg & "请填写正确的邮政编码！"
    End If
    If AreaCode = "" Or Not IsTrueCode(AreaCode, "AreaCode") Then
        FoundErr = True
        ErrMsg = ErrMsg & "请填写正确的区号！"
    End If
    If FoundErr = True Then Exit Sub

    Dim trs
    Set trs = Conn.Execute("select top 1 AreaID from PE_City where AreaID<>" & AreaID & " and Province='" & Province & "' and City='" & City & "' and Area='" & Area & "'")
    If Not (trs.BOF And trs.EOF) Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>您输入的区域已经存在！</li>"
    End If
    Set trs = Nothing
    If FoundErr = True Then Exit Sub

    Set rs = Server.CreateObject("adodb.recordset")
    sql = "select * from PE_City where AreaID=" & AreaID & ""
    rs.Open sql, Conn, 1, 3
    If Not (rs.EOF And rs.BOF) Then
        rs("Province") = Province
        rs("City") = City
        rs("Area") = Area
        rs("PostCode") = PostCode
        rs("AreaCode") = AreaCode
        rs.Update
        Call WriteSuccessMsg("邮政编码修改成功！", ComeUrl)
    Else
        FoundErr = True
        ErrMsg = ErrMsg & "修改失败，原始数据丢失。"
    End If
    rs.Close
    Set rs = Nothing
End Sub

Sub PostCodeDel()
    Dim AreaID, RowCount

    AreaID = PE_CLng(Trim(Request("AreaID")))

    Conn.Execute ("delete from PE_City where AreaID=" & AreaID & ""), RowCount
    If RowCount = 0 Then
        FoundErr = True
        ErrMsg = ErrMsg & "记录删除失败。"
    Else
        Call WriteSuccessMsg("记录删除成功！", ComeUrl)
    End If
End Sub

Function IsTrueCode(thisCode, CodeType)
    Dim temp
    IsTrueCode = False
    If CodeType = "PostCode" Then
        regEx.Pattern = "^\d{6}$"
    Else
        regEx.Pattern = "^\d{3,7}$"
    End If

    IsTrueCode = regEx.Test(thisCode)
End Function

Function PostCodeSearch()
    Dim strHtml
    strHtml = "<br>"
    strHtml = strHtml & "<form method='Get' name='SearchForm' action='" & FileName & "'>"
    strHtml = strHtml & "<table width='100%' border='0' cellpadding='0' cellspacing='0' class='border'>"
    strHtml = strHtml & "  <tr class='tdbg'>"
    strHtml = strHtml & "   <td width='130' align='right'><strong>邮政编码搜索：</strong></td>"
    strHtml = strHtml & "   <td>"
    strHtml = strHtml & "<select name='Field' size='1'>"
    strHtml = strHtml & "<option value='Province'>所属省份</option>"
    strHtml = strHtml & "<option value='City'>所属城市</option>"
    strHtml = strHtml & "<option value='Area' selected>县区</option>"
    strHtml = strHtml & "<option value='PostCode'>邮政编码</option>"
    strHtml = strHtml & "<option value='AreaCode'>地区区号</option>"
    strHtml = strHtml & "</select>"
    strHtml = strHtml & "<input type='text' name='keyword'  size='20' value='关键字' maxlength='50' onFocus='this.select();'>"
    strHtml = strHtml & "<input type='submit' name='Submit'  value='搜索'>"
    strHtml = strHtml & "</td></tr></table></form>"
    PostCodeSearch = strHtml
End Function
%>