我跟她这个世界会好吗起来吗

来源：蜘蛛抓取(WebSpider) 时间：2011-10-14 18:15 标签： 这个世界会好吗
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "[dbo].[Get_news_cqlb] " & newsid ,Fconn,0,1
if not rs.eof then
title=rs("title")
body=rs("body")
hdate=rs("date")
pname=rs("source")
writer=rs("writer")
Set rs = Nothing
CloseConn()
Function LoseDivTag(ContentStr)
Dim ClsTempLoseStr,RegEx
ClsTempLoseStr = Cstr(ContentStr)
Set RegEx = New RegExp
RegEx.Pattern = "<(\/){0,1}div[^]*>"
RegEx.IgnoreCase = True
RegEx.Global = True
ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
LoseDivTag = ClsTempLoseStr
Set RegEx = Nothing
End Function
Function LoseSpanTag(ContentStr)
Dim ClsTempLoseStr,RegEx
ClsTempLoseStr = Cstr(ContentStr)
Set RegEx = New RegExp
RegEx.Pattern = "<(\/){0,1}span[^]*>"
RegEx.IgnoreCase = True
RegEx.Global = True
ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
LoseSpanTag = ClsTempLoseStr
Set RegEx = Nothing
End Function
Function LoseTableTag(ContentStr)
Dim ClsTempLoseStr,RegEx
ClsTempLoseStr = Cstr(ContentStr)
Set RegEx = New RegExp
RegEx.Pattern = "<(\/){0,1}table[^]*>"
RegEx.IgnoreCase = True
RegEx.Global = True
ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
LoseTableTag = ClsTempLoseStr
Set RegEx = Nothing
End Function
Function LoseTDTag(ContentStr)
Dim ClsTempLoseStr,RegEx
ClsTempLoseStr = Cstr(ContentStr)
Set RegEx = New RegExp
RegEx.Pattern = "<(\/){0,1}td[^]*>"
RegEx.IgnoreCase = True
RegEx.Global = True
ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
LoseTDTag = ClsTempLoseStr
Set RegEx = Nothing
End Function
Function LoseTRTag(ContentStr)
Dim ClsTempLoseStr,RegEx
ClsTempLoseStr = Cstr(ContentStr)
Set RegEx = New RegExp
RegEx.Pattern = "<(\/){0,1}tr[^]*>"
RegEx.IgnoreCase = True
RegEx.Global = True
ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
LoseTRTag = ClsTempLoseStr
Set RegEx = Nothing
End Function
Function LoseTBODYTag(ContentStr)
Dim ClsTempLoseStr,RegEx
ClsTempLoseStr = Cstr(ContentStr)
Set RegEx = New RegExp
RegEx.Pattern = "<(\/){0,1}tbody[^]*>"
RegEx.IgnoreCase = True
RegEx.Global = True
ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
LoseTBODYTag = ClsTempLoseStr
Set RegEx = Nothing
End Function
<meta name="keywords" content=""/><meta name="description" content=""/>——人民网·重庆视窗—重庆权威新闻门户
发布于：　 来源：　 编辑：安慰别人不要说 “一切都会好起来的” 要说 “我他妈的比你还要惨” 对方才会真正高兴起来
喜欢就猛击分享!
个性网内容精选：我喜欢的那个女孩不理我了怎么办？而且发短信她也回复的很少？我该怎么办才好？希望一切会好起来_百度知道
我喜欢的那个女孩不理我了怎么办？而且发短信她也回复的很少？我该怎么办才好？希望一切会好起来
我有更好的答案
按默认排序
我经过我知道，因为她可以放得下你了，就算你再哄她发短信打电话送她礼貌都没用，一般女孩子喜欢你的话你不理她她也会理你，你越理她她越更加放得下你。也许可能是自己的感情不顺利吧？或者是感情坎坷？感情不顺利就是爱遇到这样的女孩。
尽你最大的爱让她知道你真的很爱她！
其他类似问题
发短信的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 这个世界会好吗 的文章

 

随机推荐