asp下如何在 access 数据库里寸取带格式的文本

<%

Function FormatHTML(fString)

If fString<>"" Then

fString = trim(fString)

fString = replace(fString, ";", "；") '分号过滤

fString = replace(fString, "--", "——") '--过滤

fString = replace(fString, "%20", "") '特殊字符过滤

fString = replace(fString, "==", "") '==过滤

fString = replace(fString, ">", ">")

fString = replace(fString, "<", "<")

fString = Replace(fString, CHR(32), " ") ' 

fString = Replace(fString, CHR(9), " ") ' 

fString = Replace(fString, CHR(34), """)

fString = Replace(fString, CHR(39), "'") '单引号过滤

fString = Replace(fString, CHR(13), "")

fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")

fString = Replace(fString, CHR(10), "<BR> ")

FormatHTML = fString

End If

End Function

%>

存：

用这个函数，

比如说你要提交的内容为：

requestform("content")

那就将FormatHTML(requestform("content")) 存到数据库中。

读：

responsewrite rs("content")

'写出来的自然是带格式的。

你的代码中Dim sql As String="select 密码 from 会员表 where 昵称='" & zhText & "' and 姓名='" & xmText ""有错！最后""中间少了个'

应该是：Dim sql As String="select 密码 from 会员表 where 昵称='" & zhText & "' and 姓名='" & xmText "'"

具体代码应该是这样的：

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1Click

Dim myconnection As OleDbConnection

Dim mycnstr As String = "Provider=MicrosoftJetOLEDB40;Data Source=" & ServerMapPath("App_data/db1mdb")

myconnection = New OleDbConnection(mycnstr)

Dim sql As String = "select 密码 from 会员表 where 昵称='" & zhText & "' and 姓名='" & xmText & "'"

Dim mycommand As OleDbCommand

mycommand = New OleDbCommand(sql, myconnection)

mycommandConnectionOpen()

Dim myrd As OleDbDataReader = Nothing

myrd = mycommandExecuteReader()

If (myrdRead()) Then

TextBox1Text = myrd(0)ToString

End If

myrdClose()

mycommandDispose()

myconnectionClose()

End Sub

不知道你具体的要求是什么，应该可以用获得或失去焦点事件代码实现。下面是一个根据输入的身份z号码计算年龄的失去焦点事件过程代码例子，身份z输入完成失去焦点时运行代码计算年龄，希望能帮到你：

Private Sub 身份z_LostFocus()

[年龄] = IIf(IsNull([身份z]), Nz([年龄]), Year(Date) - Val(Mid(Nz([身份z]), 7, 4)))

End Sub

在查询中油缸编号字段条件输入[Forms]![生产打印报表]![油缸编号1] Or [Forms]![生产打印报表]![油缸编号2] or，然后在窗体中添加运行查询 *** 作的按钮，最后将查询结果生成报表。

这是因为窗体和窗体中的文本框控件未正确与数据表绑定造成的。控件来源只要填写字段名就行了，不要再添加其它信息，否则画蛇添足导致出错。

正确绑定数据表，首先要让窗体绑定“表1”

窗体转到设计视图，将窗体属性的“记录源”(RecordSource)属性设置为: 表1

跟着将相应的文本框控件与对应的表字段绑定

具体做法是依次选择窗体上“ID”、“姓名”、“班级”这3个文本框控件，分别将它们的“控件来源”（ControlSource）属性值设置为：ID、姓名、班级

这样就完成了窗体与数据表、文本框控件与数据表字段之间的绑定，保存设计后，转回窗体视图，现在就可以通过窗体编辑、维护数据表中的记录了

用数组试试,分隔符是空隔或将空隔替换成其它字符"/"后再取值

例:

if not Isnull(rs("字段1")) Then

字段1=replace(rs("字段1")," ","/")

字段1=split(字段1,"/")

for i=0 to ubound(字段1)

responseWrite 字段1(1)

Next

end if

以上就是关于asp下如何在 access 数据库里寸取带格式的文本全部的内容，包括:asp下如何在 access 数据库里寸取带格式的文本、如何将ACCESS数据库中一个数据读取到文本框中,本人较笨,请详细一点,万分感激、access怎样获得焦点文本框内容，捉急在线等等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！