|
|
Posted on 2005-10-22 22:53 水如烟(LzmTW) 阅读(21975) 评论(92) 编辑 收藏 网摘 所属分类: k、制作通用类
Author:水如烟
身份证的前6位就是表示开出身份证所在地的区划代码。
图：测试示图
类：
 ''' -----------------------------------------------------------------------------
''' Project : LzmTW.Common
''' Class : Common.RegionalCodeClass
'''
''' -----------------------------------------------------------------------------
''' <summary>
''' 全国县及县以上行政区划代码信息类
''' </summary>
''' <remarks>
''' 代码由六位数字组成,每两位数字一组共三组，即XX XX XX，意义如下：
'''首组，代表省；
'''中组，其中01-20、51-70表示省直辖市，21-50表示地区（州、盟）；
'''尾组，01-18表示市辖区或地辖区，21-80表示县（旗），81-99表示省直辖县级市。
'''国家统计局设管司 2005-08-01 15:56:18；
'''最新数据截止2005年6月30日；
'''数据更新网址: http://www.stats.gov.cn/tjbz/xzqhdm/index.htm；
'''数据表明，实际应是：
'''首组，代表省；
'''中组，其中01-20、51-99表示省直辖市，21-50表示地区（州、盟）；
'''尾组，01-20表示市辖区或地辖区，21-80表示县（旗），81-99表示省直辖县级市。
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-24 Created
''' </history>
''' -----------------------------------------------------------------------------
  Public Class RegionalCodeClassClass RegionalCodeClass
 Private _Collection As RegionalCollection
Private _Enumerator As System.Collections.IDictionaryEnumerator
'默认数据文件
Private _TxtFile As String = System.AppDomain.CurrentDomain.BaseDirectory & "\全国行政区划代码.txt"
Private _XmlFile As String = System.AppDomain.CurrentDomain.BaseDirectory & "\全国行政区划代码.xml"
  Sub New()Sub New()
_Collection = New RegionalCollection
 End Sub
对外属性#Region "对外属性"
''' -----------------------------------------------------------------------------
''' <summary>
''' 区划信息
''' </summary>
''' <param name="iCode">代码</param>
''' <value>区划</value>
''' <remarks>
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-24 Created
''' </history>
''' -----------------------------------------------------------------------------
Default Public ReadOnly Property Item()Property Item(ByVal iCode As String) As Regional
Get
Return _Collection.Item(iCode)
End Get
End Property
''' -----------------------------------------------------------------------------
''' <summary>
''' 区划集
''' </summary>
''' <value>区划</value>
''' <remarks>
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-24 Created
''' </history>
''' -----------------------------------------------------------------------------
Public ReadOnly Property Items()Property Items() As Regional()
Get
Dim tmp(_Collection.Count - 1) As Regional
Dim n As Integer = 0
_Enumerator = _Collection.GetEnumerator
With _Enumerator
While .MoveNext
tmp(n) = CType(.Value, Regional)
n += 1
End While
End With
Return tmp
End Get
End Property
#End Region
装入数据方式#Region "装入数据方式"
''' -----------------------------------------------------------------------------
''' <summary>
''' 从文本文件导入数据
''' </summary>
''' <remarks>
''' 默认文件为程序运行目录下的"全国行政区划代码.txt"
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-24 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Sub LoadFromTxt()Sub LoadFromTxt()
If Not System.IO.File.Exists(_TxtFile) Then
MsgBox("文件不存在！")
Exit Sub
End If
Me.Load_BeforBegin()
Dim fs As IO.FileStream = New IO.FileStream(_TxtFile, IO.FileMode.Open)
Dim sr As IO.StreamReader = New IO.StreamReader(fs, System.Text.Encoding.Default)
Dim Line As String
Dim tmpCode As String
Dim tmpName As String
While sr.Peek <> -1
Line = sr.ReadLine.Trim '除去前后空格
If Line.Length > 6 Then
tmpCode = Line.Substring(0, 6)
tmpName = Line.Substring(6)
Add(tmpCode, tmpName)
End If
End While
sr.Close()
fs.Close()
Me.Load_AfterDataFinish()
End Sub
''' -----------------------------------------------------------------------------
''' <summary>
''' 从文本文件导入数据
''' </summary>
''' <param name="FileName">文件名</param>
''' <remarks>
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-24 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Sub LoadFromTxt()Sub LoadFromTxt(ByVal FileName As String)
_TxtFile = FileName
LoadFromTxt()
End Sub
''' -----------------------------------------------------------------------------
''' <summary>
''' 从DataTable导入数据
''' </summary>
''' <param name="Table">DataTable</param>
''' <remarks>
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-24 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Sub LoadFromTable()Sub LoadFromTable(ByVal Table As DataTable)
If Table Is Nothing OrElse Table.Rows.Count = 0 Then
MsgBox("没数据!")
Exit Sub
End If
Me.Load_BeforBegin()
Dim tmpCode As String
Dim tmpName As String
For Each row As DataRow In Table.Rows
tmpCode = row.Item(0)
tmpName = row.Item(1)
Add(tmpCode, tmpName)
Next
Me.Load_AfterDataFinish()
End Sub
''' -----------------------------------------------------------------------------
''' <summary>
''' 从xml文件导入数据
''' </summary>
''' <remarks>
''' 默认文件为程序运行目录下的"全国行政区划代码.xml"
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-24 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Sub LoadFromXml()Sub LoadFromXml()
If Not System.IO.File.Exists(_XmlFile) Then
MsgBox("文件不存在！")
Exit Sub
End If
Dim tmpDataSet As New DataSet
tmpDataSet.ReadXml(_XmlFile)
If tmpDataSet.Tables.Count = 0 OrElse tmpDataSet.Tables(0).Rows.Count = 0 Then
MsgBox("没有数据,或文件不符！")
Exit Sub
End If
Me.LoadFromTable(tmpDataSet.Tables(0))
tmpDataSet.Clear()
tmpDataSet.Dispose()
End Sub
''' -----------------------------------------------------------------------------
''' <summary>
''' 从xml文件导入数据
''' </summary>
''' <param name="FileName">文件名</param>
''' <remarks>
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-24 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Sub LoadFromXml()Sub LoadFromXml(ByVal FileName As String)
_XmlFile = FileName
LoadFromXml()
End Sub
Private Sub Add()Sub Add(ByVal iCode As String, ByVal iName As String)
iCode = iCode.Trim
iName = iName.Trim
If iCode.Length = 6 AndAlso Microsoft.VisualBasic.IsNumeric(iCode) Then '保证是六位数字
Dim tmp As Regional = New Regional(iCode, iName)
_Collection.Add(tmp)
End If
End Sub
'装入数据前的处理
Private Sub Load_BeforBegin()Sub Load_BeforBegin()
_Collection.Clear()
End Sub
'装入数据后的处理
Private Sub Load_AfterDataFinish()Sub Load_AfterDataFinish()
Dim tmp As Regional() = Me.Items
Me.Sort(tmp)
For Each o As Regional In tmp
Me.IniRegionalFullName(o)
Next
End Sub
'取全名
Private Sub IniRegionalFullName()Sub IniRegionalFullName(ByVal iRegional As Regional)
Dim iCode As String
iCode = iRegional.Code
Dim tmp1 As Regional
Dim tmp2 As Regional
Select Case Convert.ToInt16(iCode.Substring(2, 2)) '中组
Case 0 'XX00XX
Select Case Convert.ToInt16(iCode.Substring(4, 2)) '尾组
Case 0 'XX0000
iRegional.FullName = iRegional.Name
Case Else 'XX00--
'未定义
End Select
Case Else 'XX--XX
Select Case Convert.ToInt16(iCode.Substring(4, 2)) '尾组
Case 0 'XX--00
tmp1 = Me.Item(iCode.Substring(0, 2) & "0000")
If Not tmp1 Is Nothing Then iRegional.FullName = tmp1.Name & iRegional.Name
Case Else 'XX----
tmp1 = Me.Item(iCode.Substring(0, 2) & "0000")
If Not tmp1 Is Nothing Then
tmp2 = Me.Item(iCode.Substring(0, 4) & "00")
If Not tmp2 Is Nothing Then
If tmp1.Name.EndsWith("市") Then
iRegional.FullName = tmp1.Name & iRegional.Name
Else
iRegional.FullName = tmp2.FullName & iRegional.Name
End If
End If
End If
End Select
End Select
End Sub
#End Region
导出数据方式#Region "导出数据方式"
''' -----------------------------------------------------------------------------
''' <summary>
''' 导出到xml文件
''' </summary>
''' <remarks>
''' 默认文件为程序运行目录下的"全国行政区划代码.xml"
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-24 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Sub WriteXml()Sub WriteXml()
If _Collection.Count = 0 Then
MsgBox("没有数据!")
Exit Sub
End If
Dim tmpDataSet As New DataSet
Dim Table As New DataTable
Table.Columns.AddRange(New DataColumn() {New DataColumn("Code"), New DataColumn("Name")})
WriteTable(Table)
tmpDataSet.Tables.Add(Table)
Try
tmpDataSet.WriteXml(_XmlFile)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Table.Clear()
Table.Dispose()
tmpDataSet.Clear()
tmpDataSet.Dispose()
End Sub
''' -----------------------------------------------------------------------------
''' <summary>
''' 导出到xml文件
''' </summary>
''' <param name="FileName">文件名</param>
''' <remarks>
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-24 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Sub WriteXml()Sub WriteXml(ByVal FileName As String)
_XmlFile = FileName
WriteXml()
End Sub
''' -----------------------------------------------------------------------------
''' <summary>
''' 导出到DataTable
''' </summary>
''' <param name="Table">DataTable</param>
''' <remarks>
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-24 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Sub WriteTable()Sub WriteTable(ByVal Table As DataTable)
If _Collection.Count = 0 Then
MsgBox("没有数据!")
Exit Sub
End If
Table.Clear()
Sort(Me.Items)
With Table
.BeginInit()
For Each r As Regional In Me.Items
.Rows.Add(New String() {r.Code, r.Name})
Next
'不作AcceptChanges处理,便于上载到数据库
.EndInit()
End With
End Sub
#End Region
排序方式#Region "排序方式"
''' -----------------------------------------------------------------------------
''' <summary>
''' 排序
''' </summary>
''' <param name="Array">区划集</param>
''' <remarks>
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-24 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Sub Sort()Sub Sort(ByVal Array As Regional())
If Array Is Nothing OrElse Array.Length = 0 Then Exit Sub
System.Array.Sort(Array, New RegionalCompare)
End Sub
''' -----------------------------------------------------------------------------
''' <summary>
''' 逆序
''' </summary>
''' <param name="Array">区划集</param>
''' <remarks>
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-24 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Sub Reverse()Sub Reverse(ByVal Array As Regional())
If Array Is Nothing OrElse Array.Length = 0 Then Exit Sub
System.Array.Reverse(Array)
End Sub
#End Region
查找方式#Region "查找方式"
Dim sNowItems() As Regional
Dim sTmpRegion() As Regional
Dim sCount As Integer
Private Sub Search_Begin()Sub Search_Begin()
ReDim sTmpRegion(-1)
sCount = 0
snowitems = Me.Items
Me.Sort(sNowItems)
End Sub
Private Sub Search_Add()Sub Search_Add(ByVal sRegional As Regional)
ReDim Preserve sTmpRegion(sCount)
sTmpRegion(sCount) = sRegional
sCount += 1
End Sub
Private Sub Search_Way()Sub Search_Way(ByVal Value As String, ByVal Way As String)
For Each o As Regional In sNowItems
Select Case Way
Case "Code"
If o.Code Like Value Then
Search_Add(o)
End If
Case "Name"
If o.Name Like Value Then
Search_Add(o)
End If
Case "Kind"
If o.Kind.ToString Like Value Then
Search_Add(o)
End If
Case Else
End Select
Next
End Sub
Private Sub Search_Way()Sub Search_Way(ByVal Value As Regional.KindType)
For Each o As Regional In sNowItems
If o.Kind.Equals(Value) Then
Search_Add(o)
End If
Next
End Sub
''' -----------------------------------------------------------------------------
''' <summary>
''' 按代码查询
''' </summary>
''' <param name="iCode">代码</param>
''' <returns>区划集</returns>
''' <remarks>
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-24 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Function SearchByCode()Function SearchByCode(ByVal iCode As String) As Regional()
Search_Begin()
Search_Way(iCode, "Code")
Return sTmpRegion
End Function
''' -----------------------------------------------------------------------------
''' <summary>
''' 按名称查询
''' </summary>
''' <param name="iName">名称</param>
''' <returns>区划集</returns>
''' <remarks>
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-24 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Function SearchByName()Function SearchByName(ByVal iName As String) As Regional()
Search_Begin()
Search_Way(iName, "Name")
Return sTmpRegion
End Function
''' -----------------------------------------------------------------------------
''' <summary>
''' 按类型查询
''' </summary>
''' <param name="iKind">类型</param>
''' <returns>区划集</returns>
''' <remarks>
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-24 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Function SearchByKind()Function SearchByKind(ByVal iKind As String) As Regional()
Search_Begin()
Search_Way(iKind, "Kind")
Return sTmpRegion
End Function
''' -----------------------------------------------------------------------------
''' <summary>
''' 按类型查询
''' </summary>
''' <param name="iKind">类型</param>
''' <returns>区划集</returns>
''' <remarks>
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-24 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Function SearchByKind()Function SearchByKind(ByVal iKind As Regional.KindType) As Regional()
Search_Begin()
Search_Way(iKind)
Return sTmpRegion
End Function
#End Region
基本定义#Region "基本定义"
''' -----------------------------------------------------------------------------
''' Project : LzmTW.Common
''' Class : Common.RegionalCodeClass.RegionalCompare
'''
''' -----------------------------------------------------------------------------
''' <summary>
''' 按区划的代码排序
''' </summary>
''' <remarks>
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-24 Created
''' </history>
''' -----------------------------------------------------------------------------
Private Class RegionalCompareClass RegionalCompare
Implements System.Collections.IComparer
Public Function Compare()Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
Return CType(x, Regional).Code.CompareTo(CType(y, Regional).Code)
End Function
End Class
''' -----------------------------------------------------------------------------
''' Project : LzmTW.Common
''' Class : Common.RegionalCodeClass.RegionalCollection
'''
''' -----------------------------------------------------------------------------
''' <summary>
''' 数据字典
''' </summary>
''' <remarks>
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-24 Created
''' </history>
''' -----------------------------------------------------------------------------
Private Class RegionalCollectionClass RegionalCollection
Inherits System.Collections.DictionaryBase
Public Sub Add()Sub Add(ByVal iItem As Regional)
Me.Dictionary.Add(iItem.Code, iItem)
End Sub
Public Sub Remove()Sub Remove(ByVal Code As String)
Me.Dictionary.Remove(Code)
End Sub
Default Public ReadOnly Property Item()Property Item(ByVal Code As String) As Regional
Get
Return CType(Me.Dictionary.Item(Code), Regional)
End Get
End Property
End Class
''' -----------------------------------------------------------------------------
''' Project : LzmTW.Common
''' Class : Common.RegionalCodeClass.Regional
'''
''' -----------------------------------------------------------------------------
''' <summary>
''' 区划定义
''' </summary>
''' <remarks>
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-24 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Class RegionalClass Regional
Private _Code As String
Private _Name As String
Private _FullName As String
Private _Kind As KindType
''' -----------------------------------------------------------------------------
''' <summary>
''' New
''' </summary>
''' <param name="iCode">区划码</param>
''' <param name="iName">名称</param>
''' <remarks>
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-23 Created
''' </history>
''' -----------------------------------------------------------------------------
Sub New()Sub New(ByVal iCode As String, ByVal iName As String)
_Code = iCode
_Name = iName
_Kind = GetKind(iCode) '取类型
End Sub
''' -----------------------------------------------------------------------------
''' <summary>
''' 区划码
''' </summary>
''' <value></value>
''' <remarks>
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-23 Created
''' </history>
''' -----------------------------------------------------------------------------
Public ReadOnly Property Code()Property Code() As String
Get
Return _Code
End Get
End Property
''' -----------------------------------------------------------------------------
''' <summary>
''' 名称
''' </summary>
''' <value></value>
''' <remarks>
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-23 Created
''' </history>
''' -----------------------------------------------------------------------------
Public ReadOnly Property Name()Property Name() As String
Get
Return _Name
End Get
End Property
''' -----------------------------------------------------------------------------
''' <summary>
''' 全名
''' </summary>
''' <value></value>
''' <remarks>
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-23 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Property FullName()Property FullName() As String
Get
Return _FullName
End Get
Set(ByVal Value As String)
_FullName = Value
End Set
End Property
''' -----------------------------------------------------------------------------
''' <summary>
''' 区划类型
''' </summary>
''' <value></value>
''' <remarks>
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-23 Created
''' </history>
''' -----------------------------------------------------------------------------
Public ReadOnly Property Kind()Property Kind() As KindType
Get
Return _Kind
End Get
End Property
''' -----------------------------------------------------------------------------
''' <summary>
''' 转换数组
''' </summary>
''' <returns></returns>
''' <remarks>
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-23 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Function ToArray()Function ToArray() As Array
Return New String() {_Code, _Name, _FullName, _Kind.ToString}
End Function
''' -----------------------------------------------------------------------------
''' <summary>
''' 基本信息
''' </summary>
''' <returns></returns>
''' <remarks>
''' 如:110107 北京市石景山区
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-23 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Overrides Function ToString()Function ToString() As String
Return _Code & " " & _FullName
End Function
''' -----------------------------------------------------------------------------
''' <summary>
''' 取区划类型
''' </summary>
''' <param name="iCode"></param>
''' <returns></returns>
''' <remarks>
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-23 Created
''' </history>
''' -----------------------------------------------------------------------------
Private Function GetKind()Function GetKind(ByVal iCode As String) As KindType
Dim Result As KindType = KindType.未定义
Select Case Convert.ToInt16(iCode.Substring(2, 2)) '中组
Case 0 'XX00XX
Select Case Convert.ToInt16(iCode.Substring(4, 2)) '尾组
Case 0 'XX0000
Result = KindType.省
Case Else 'XX00--
'未定义
End Select
Case Else 'XX--XX
Select Case Convert.ToInt16(iCode.Substring(4, 2)) '尾组
Case 0 'XX--00
Select Case Convert.ToInt16(iCode.Substring(2, 2)) '中组
Case 1 To 20
Result = KindType.省直辖市
Case 21 To 50
Result = KindType.地区含州或盟
Case 51 To 99
Result = KindType.省直辖市
End Select
'XX----
Case 1 To 20
Result = KindType.市辖区或地辖区
Case 21 To 80
Result = KindType.县或旗
Case 81 To 99
Result = KindType.省直辖县级市
Case Else
'未定义
End Select
End Select
Return Result
End Function
''' -----------------------------------------------------------------------------
''' <summary>
''' 区划类型
''' </summary>
''' <remarks>
''' </remarks>
''' <history>
''' [lzmtw] 2005-10-23 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Enum KindTypeEnum KindType
省
省直辖市
地区含州或盟
市辖区或地辖区
县或旗
省直辖县级市
未定义
End Enum
End Class
#End Region
 End Class
测试代码：
数据文件: 全国行政区划代码.txt
Feedback
类的写法以及此文的页面布置都有问题,得重新组织一下
临潭县新城历史文化游览区，距县城30公里，主要景点有明代洮州卫城、烽墩、李家坟古墓群、红堡子城堡等。1936年，中国工农红军四方面军在朱德、徐向前等率领下长征途径临潭新城，在这里建立了甘南地区第一个苏维埃政权，召开了著名的洮州会议，会议否定了张国焘西渡计划，坚持继续北上的方针。现在的苏维埃政府旧址是省级文物保护单位，甘南爱国主义教育基地，省国防教育先进单位，具有学术考察与研究价值，是古城遗迹凭吊和红色旅游之胜地，也是我州仅次于腊子口红色旅游的又一大景区。同时，已申报历史文化名城。 1936年8月，红军北上抗日途经临潭，朱德同志曾经作过整 军报告的新城隆庙，因为在此建立过甘南境内的第一个工农政 权——临潭县苏维埃政府，已成为人们缅怀革命历史的纪念地， 1991年10月，由省、州、县领导同导亲自主持举行了隆重的“苏 维埃旧址”挂匾仪式。
甘肃省临潭县新城扁都乡张旗 新城旅游网www.xclyw.9126.com
我的名字王挺 1978.12.27 江苏 苏州的 怎么样才可以查我的我编号和地此呢?
思念
天寒地冻，容易思念某个人;
孤独寂寞，容易思念某个人；
疲惫劳苦，容易思念某个人……
思念一个人；往往会觉得，多年前的旧事，宛若昨天；千万里的距离，如隔咫尺。时光逆流了，空间压缩了，这一刻，月圆了，花绽了，人痴了，天地间似乎弥漫着一股神秘的气息，而对一个人的思念不再时，便油然而起恍若隔世之感，遥不可及的慨叹。
思念中绽放了一张笑脸，那是心醉；思念里浮现出一双泪眼，那是心碎。思念中的气息最浪漫，思念里的歌谣最伤感。旧日的恩恩怨怨，人生的烦烦恼恼，都化作了眉梢间的微微一蹙，嘴角边的幽幽一笑。
思念，来如大浪汹汹，去似细流潺潺。独倚窗前或漫步幽径，突如其来想起一个人，思念便如长河破堤般泛滥成灾。这时候，也许旭日初升，也许斜阳正浓，也许满城华灯。身后一剪清影，心头思绪翻涌。思念来时，恍如沉醉；思念去时，犹似酒醒。一醉一醒之间，记忆的度数便浓了三分，当再度思念时，便会醉的更快，醒的更迟。
思念往往是不平衡的。杜甫常常思念李白，李白却鲜提杜甫；黄忠称关羽为“关公”，关羽却呼黄忠为“老卒”。这时候的思念是尴尬的。爱情的最高境界是“两情相悦”，思念的最高境界是“彼此思念”。失衡的思念与伟大的情谊永远无缘。
思念一个人，这个人便永远活着，活在你的心头上;淡漠一个人，这个人便永远死了，死在你的记忆里。谁都不思念了，并非无牵无挂，而是槁木死灰。那是相当可怕的一种境况。
思念
天寒地冻，容易思念某个人;
孤独寂寞，容易思念某个人；
疲惫劳苦，容易思念某个人……
思念一个人；往往会觉得，多年前的旧事，宛若昨天；千万里的距离，如隔咫尺。时光逆流了，空间压缩了，这一刻，月圆了，花绽了，人痴了，天地间似乎弥漫着一股神秘的气息，而对一个人的思念不再时，便油然而起恍若隔世之感，遥不可及的慨叹。
思念中绽放了一张笑脸，那是心醉；思念里浮现出一双泪眼，那是心碎。思念中的气息最浪漫，思念里的歌谣最伤感。旧日的恩恩怨怨，人生的烦烦恼恼，都化作了眉梢间的微微一蹙，嘴角边的幽幽一笑。
思念，来如大浪汹汹，去似细流潺潺。独倚窗前或漫步幽径，突如其来想起一个人，思念便如长河破堤般泛滥成灾。这时候，也许旭日初升，也许斜阳正浓，也许满城华灯。身后一剪清影，心头思绪翻涌。思念来时，恍如沉醉；思念去时，犹似酒醒。一醉一醒之间，记忆的度数便浓了三分，当再度思念时，便会醉的更快，醒的更迟。
思念往往是不平衡的。杜甫常常思念李白，李白却鲜提杜甫；黄忠称关羽为“关公”，关羽却呼黄忠为“老卒”。这时候的思念是尴尬的。爱情的最高境界是“两情相悦”，思念的最高境界是“彼此思念”。失衡的思念与伟大的情谊永远无缘。
思念一个人，这个人便永远活着，活在你的心头上;淡漠一个人，这个人便永远死了，死在你的记忆里。谁都不思念了，并非无牵无挂，而是槁木死灰。那是相当可怕的一种境况。
思念
天寒地冻，容易思念某个人;
孤独寂寞，容易思念某个人；
疲惫劳苦，容易思念某个人……
思念一个人；往往会觉得，多年前的旧事，宛若昨天；千万里的距离，如隔咫尺。时光逆流了，空间压缩了，这一刻，月圆了，花绽了，人痴了，天地间似乎弥漫着一股神秘的气息，而对一个人的思念不再时，便油然而起恍若隔世之感，遥不可及的慨叹。
思念中绽放了一张笑脸，那是心醉；思念里浮现出一双泪眼，那是心碎。思念中的气息最浪漫，思念里的歌谣最伤感。旧日的恩恩怨怨，人生的烦烦恼恼，都化作了眉梢间的微微一蹙，嘴角边的幽幽一笑。
思念，来如大浪汹汹，去似细流潺潺。独倚窗前或漫步幽径，突如其来想起一个人，思念便如长河破堤般泛滥成灾。这时候，也许旭日初升，也许斜阳正浓，也许满城华灯。身后一剪清影，心头思绪翻涌。思念来时，恍如沉醉；思念去时，犹似酒醒。一醉一醒之间，记忆的度数便浓了三分，当再度思念时，便会醉的更快，醒的更迟。
思念往往是不平衡的。杜甫常常思念李白，李白却鲜提杜甫；黄忠称关羽为“关公”，关羽却呼黄忠为“老卒”。这时候的思念是尴尬的。爱情的最高境界是“两情相悦”，思念的最高境界是“彼此思念”。失衡的思念与伟大的情谊永远无缘。
思念一个人，这个人便永远活着，活在你的心头上;淡漠一个人，这个人便永远死了，死在你的记忆里。谁都不思念了，并非无牵无挂，而是槁木死灰。那是相当可怕的一种境况。
思念
天寒地冻，容易思念某个人;
孤独寂寞，容易思念某个人；
疲惫劳苦，容易思念某个人……
思念一个人；往往会觉得，多年前的旧事，宛若昨天；千万里的距离，如隔咫尺。时光逆流了，空间压缩了，这一刻，月圆了，花绽了，人痴了，天地间似乎弥漫着一股神秘的气息，而对一个人的思念不再时，便油然而起恍若隔世之感，遥不可及的慨叹。
思念中绽放了一张笑脸，那是心醉；思念里浮现出一双泪眼，那是心碎。思念中的气息最浪漫，思念里的歌谣最伤感。旧日的恩恩怨怨，人生的烦烦恼恼，都化作了眉梢间的微微一蹙，嘴角边的幽幽一笑。
思念，来如大浪汹汹，去似细流潺潺。独倚窗前或漫步幽径，突如其来想起一个人，思念便如长河破堤般泛滥成灾。这时候，也许旭日初升，也许斜阳正浓，也许满城华灯。身后一剪清影，心头思绪翻涌。思念来时，恍如沉醉；思念去时，犹似酒醒。一醉一醒之间，记忆的度数便浓了三分，当再度思念时，便会醉的更快，醒的更迟。
思念往往是不平衡的。杜甫常常思念李白，李白却鲜提杜甫；黄忠称关羽为“关公”，关羽却呼黄忠为“老卒”。这时候的思念是尴尬的。爱情的最高境界是“两情相悦”，思念的最高境界是“彼此思念”。失衡的思念与伟大的情谊永远无缘。
思念一个人，这个人便永远活着，活在你的心头上;淡漠一个人，这个人便永远死了，死在你的记忆里。谁都不思念了，并非无牵无挂，而是槁木死灰。那是相当可怕的一种境况。
人的一生中要面临很多次选择，而在每
一次需要争取的时候，我总是选择放弃。
其实，有时候选择放弃意味着更好的
得到。缘浓未必情浓，缘去未必情逝！
————情浓缘薄！！！！！！！！！
友谊的坚定，爱情的迷离！
我来自邵阳隆回县桃洪镇，是中国教育电视台《音乐伙伴》的节目主持人丁叮。《音乐伙伴》开播以来，全国的许多学生和歌谜们纷纷打电话或来信对我表示鼓励，在此我表示感谢// 《音乐伙伴》的播出时间：星期六19点30分；星期一10点50分。 音乐引领人生，音乐成就梦想。《音乐伙伴》伴随着大家健康成长// 登录丁叮个人网站 561109.icpcn.com 和丁叮面对面。// 祝同学们学习进步，天天快乐——你们的快乐天使丁叮哥哥。
我来自山西省太原市人,是伊达实业有限公司一职员?有
请求博友：寻找一位失散多年的同学，姓名：杨贤敏 性别：女 江苏省常州市溧阳人 具体地址就不祥了，请求博友查询
我的邮箱：a55227633◎126.com QQ: 503126996
谁认识新河县的孟小娜.六户的知道的请回复.QQ392738050
你地面们受到大量决的年考虑 没,就地方外交 了考虑考虑没么考虑。
只知道她的生日和大概地方能查到她的具体信息吗？比如她出生在四川广元剑阁生日是１９８２年３月２４日叫梁艳能够具体查出她在哪里吗？
--引用--------------------------------------------------
忘彭: 马玲彦
--------------------------------------------------------
白向冰，你好！我是火车上的那个男孩，我的联系方式QQ:704317183加我就行，罗继平！
我怎样才可以知道她的详细住址啊？我现在只知道她名字；郭爱茵 身份证也知道前几位数４１２８２２ 是河南驻马店泌阳县的！！！谢谢
如今民不与官斗*
承包耕地强收购，
野蛮殴打又诅咒。
应得补偿干部扣，
装腰包、为亲友。
耕地占完难糊口，
贫民百姓犯忧愁。
忍饥挨饿肥变瘦，
还说为民多优厚。
如今民不与官斗，
掌权在手似猛兽。
吃人喝血吞骨头，
剩余毛皮还榨油。
这样官吏民恨透，
掇刀政府千古臭。
*：2008-3-9日上午掇刀区房管局副局长赵平所说，
事实如此，外校强迫拆迁非法占地，毁良田240多亩
长期闲置荒芜。拆迁20户4年无新居，一张欠条4年
欠帐不还钱，房管局局长张兴国把失地农民刘金华
（50岁妇女）骗到区政府关门殴伤住医院。这就是民不与官斗。
湖北省荆门市掇刀区双泉村失地农民：吴官海
二00八年三月十日
张锦华（男）,1982年生,想要他的全部资料，地址，家庭状况等等，越详细越好，谁能帮我查到，谢谢！！！
麻烦帮忙找一同学
袁小飞，男．1985年出生,江西分宜县人,初中在分宜县钤阳中学毕业!
想知道他现在的联系方式!
|