Ⅰ 怎样把sql中的数据输出到HTML页面,数据库用的是mysql。
在 html 规范里，与换行有关的标签之一是<br />标签。由此分析，给文本区里的文字的每一行头尾加入<br />标签即可以 html 的方式达到存储其换行状态的目的。php接受文本区内容的方式是把文本区的全部字符当作一个单一的 string 变量来实现，因此，行的概念并不直接，好在来自文本区的字符包含有回车符，一个回车符代表一行的结束，我们可以通过整个字符串的回车符识别该文本所包含的行，从而给各行尾加入<br />标签以便将段落分开。
另外，在将文本区的数据发送到Mysql之前，其中的敏感字符如空格、单引号、双引号、大于号、小于号也要经过处理。
以下代码
假设文本区的文本被视作变量 ＄str 。
function text_dowith($str)
{
//将文本区的数据格式化为Mysql能接受的Html数据格式（去除容易引起Mysql误解的敏感字符）。
$str = ereg_replace(" "," ", $str); //将空格转化为html格式
$str = ereg_replace("'","'",$str);//将单引号转化为html格式
$str = ereg_replace('"','"',$str);//将双引号转化为html格式
$str = ereg_replace("<","<",$str);//将'<'转化为html格式
$str = ereg_replace('>','>',$str);//将'>'转化为html格式
$str = ereg_replace(chr(13),'<br />',$str);//将换行符转化为html格式，,根据Textarea的wrap属性确定是否有此行，如chr（13）和“/n/r”两种格式都有，则将其中一个替换为“”
$str = ereg_replace(‘/n/r’,'<br />',$str);//将换行符转化为html格式,根据Textarea的wrap属性确定是否有此行，如chr（13）和“/n/r”两种格式都有，则将其中一个替换为“”
return $str;
}
将Myslq中包含html的数据输出并显示在文本区中的过程与输入的过程相反。
function text_display($str)
{
//将Mysql中的html格式的数据进行格式处理（用于显示在文本区中显示）
$str = ereg_replace("<br />",chr(13), $str);
$str = str_replace(" ", " ", $str);
$str = ereg_replace("'","'",$str);
$str = ereg_replace('"','"',$str);
$str = ereg_replace("<","<",$str);
$str = ereg_replace('>','>',$str);
return $str;
}
如果只是显示在表格中，则Mysql中的数据可以不经处理直接输出。
Ⅱ 如何在SQL语句中清除HTML标签
<%
db="data.mdb"
set conn=server.createobject("Adodb.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db)
conn.open connstr
set rs=server.createobject("adodb.recordset")
sql="select * from 表"
rs.open sql,conn,1,3
do while rs.eof=false
rs("字段一")=Html2Ubb(rs("字段一")) '在这里使用Html2Ubb函数将字段的数据转换成纯文本形式后写入数据库
rs("字段二")=Html2Ubb(rs("字段二"))
rs("字段三")=Html2Ubb(rs("字段二"))
rs.update
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
Public Function Html2Ubb(ByVal strContent)
On Error Resume Next
If Len(strContent) > 0 Then
Dim re
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
'--清除script脚本
If CInt(ArrayCodes(0)) = 1 Then
re.Pattern = "(<s+cript(.+?)<\/s+cript>)"
strContent = re.Replace(strContent, "")
End If
'--清除所有iframe框架
If CInt(ArrayCodes(1)) = 1 Then
re.Pattern = "(<iframe(.+?)<\/iframe>)"
strContent = re.Replace(strContent, "")
End If
'--清除所有object对象
If CInt(ArrayCodes(2)) = 1 Then
re.Pattern = "(<object(.+?)<\/object>)"
strContent = re.Replace(strContent, "")
End If
'--清除所有java applet
If CInt(ArrayCodes(3)) = 1 Then
re.Pattern = "(<applet(.+?)<\/applet>)"
strContent = re.Replace(strContent, "")
End If
'--清除所有div标签
If CInt(ArrayCodes(4)) = 1 Then
re.Pattern = "(<DIV>)|(<DIV(.+?)>)"
strContent = re.Replace(strContent, "")
re.Pattern = "(<\/DIV>)"
strContent = re.Replace(strContent, "")
End If
'--清除所有font标签
If CInt(ArrayCodes(5)) = 1 Then
re.Pattern = "(<FONT>)|(<FONT(.+?)>)"
strContent = re.Replace(strContent, "")
re.Pattern = "(<\/FONT>)"
strContent = re.Replace(strContent, "")
End If
'--清除所有span标签
If CInt(ArrayCodes(6)) = 1 Then
re.Pattern = "(<SPAN>)|(<SPAN(.+?)>)"
strContent = re.Replace(strContent, "")
re.Pattern = "(<\/SPAN>)"
strContent = re.Replace(strContent, "")
End If
'--清除所有A标签
' If CInt(ArrayCodes(7)) = 1 Then
re.Pattern = "(<A>)|(<A(.+?)>)"
strContent = re.Replace(strContent, "")
re.Pattern = "(<\/A>)"
strContent = re.Replace(strContent, "")
' End If
'--清除所有img标签
If CInt(ArrayCodes(8)) = 1 Then
re.Pattern = "(<IMG(.+?)>)"
strContent = re.Replace(strContent, "")
End If
'--清除所有FORM标签
If CInt(ArrayCodes(9)) = 1 Then
re.Pattern = "(<FORM>)|(<FORM(.+?)>)"
strContent = re.Replace(strContent, "")
re.Pattern = "(<\/FORM>)"
strContent = re.Replace(strContent, "")
End If
'--清除所有HTML标签
If CInt(ArrayCodes(10)) = 1 Then
re.Pattern = "<(.[^>]*)>"
strContent = re.Replace(strContent, "")
End If
re.Pattern = "(" & Chr(8) & "|" & Chr(9) & "|" & Chr(10) & "|" & Chr(13) & ")"
strContent = re.Replace(strContent, vbNullString)
re.Pattern = "(<!--(.+?)-->)"
strContent = re.Replace(strContent, vbNullString)
re.Pattern = "(<TBODY>)"
strContent = re.Replace(strContent, "")
re.Pattern = "(<\/TBODY>)"
strContent = re.Replace(strContent, "")
re.Pattern = "(<" & Chr(37) & ")"
strContent = re.Replace(strContent, "<%")
re.Pattern = "(" & Chr(37) & ">)"
strContent = re.Replace(strContent, "%>")
Set re = Nothing
Html2Ubb = strContent
Else
Html2Ubb = ""
End If
Exit Function
End Function
%>
Ⅲ sql字段中如何替换特定的html标签
update表set字段=replace(字段,'字符','替换字符')