UC知道Asp怎样查询数据库(Access)中的非HTML字符串?
来源：百度知道 编辑：UC知道 时间：2024/05/01 18:50:54
我的数据库中表diary的字段content中的内容是HTML和文字混合的,检索的时候我只想检索文字,不要把HTML代码检索出来!应该怎样写asp呢?
比如:
检索条件是:abc
字段内容是:<html>
<body id="abc"> ←//不要检索到这里的abc
abc ←//只检索这里的abc
</body>
</html>
那麻烦这位大哥告诉我SQL语句怎么写？
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
REPLY:sssays，你写的是对读出来的记录进行处理，我要的是选择记录的sql语句！
我的字段中的内容是HTML代码和中英文字符混合的内容，我只要把中英文中含有关键字的记录读出来，HTML代码中含关键字的记录不要！
比如:
检索条件是:abc
字段内容是:<html>
<body id="abc"> ←//不要检索到这里的abc
abc ←//只检索这里的abc
</body>
</html>
那麻烦这位大哥告诉我SQL语句怎么写？
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
REPLY:sssays，你写的是对读出来的记录进行处理，我要的是选择记录的sql语句！
我的字段中的内容是HTML代码和中英文字符混合的内容，我只要把中英文中含有关键字的记录读出来，HTML代码中含关键字的记录不要！
给你两个函数，能去去掉所有<xxx>标签，包括html标签和你内容中出现的累死<xxx>的内容，如果你正文中也包括这些标签那就无能为力了，用的时候<%=Remove_HTML(rs("diary"))%>就行了
Function RemoveHTMLTag(fString)
Dim re
Set re = New RegExp
re.IgnoreCase = True
re.Pattern = "<(.[^>]*)>"
fString = re.Replace(fString, "")
Set re = Nothing
RemoveHTMLTag = fString
End Function
Function Remove_HTML(Str)
Dim ilen1, ilen2
Do While InStr(1, Str, "<", 1) >0
ilen1 = InStr(1, Str, "<", 1)
ilen2 = InStr(1, Str, ">", 1)
Str = Left(Str, ilen1 -1) & Mid(Str, ilen2 + 1)
Loop
Remove_HTML = Str
End Function
_______________________________________
你说的检索是查询字段中是否存在某关键字，还是把字段的内容去除html标签后打印出来？
我估计你的意