<%
dim objRegExp
set objRegExp = new RegExp '建立正则表达式对象
function HTMLEncode(strStrIn)

if strStrIn<>"" then
HTMLEncode = Server.HTMLEncode(strStrIn)
'先用HTMLEncode把字符串过滤一下，可以把诸如"<"之类的换成">"
objRegExp.Global = true '设置搜索模式为全局匹配
objRegExp.Pattern = "\r" '当前匹配模式为回车
HTMLEncode=objRegExp.Replace(HTMLEncode,"
") '替换回车为'
'
objRegExp.Pattern = " " '当前匹配模式为空格
HTMLEncode=objRegExp.Replace(HTMLEncode," ") '替换空格为' '
objRegExp.Global = false '设置搜索模式为默认的单字匹配
end if

end function
%>


<%

title=request("title")

set cn=server.createobject("adodb.connection")
dbpath=server.mappath("data/shiye.mdb")
cn.open "driver={microsoft access driver (*.mdb)};dbq="&dbpath

sql="select * from tgao where 主题='"&title&"'"

set rs=server.createobject("adodb.recordset")
rs.open sql,cn
%>

<%
if not rs.eof then
%>

---

作者: <%=rs(1)%>

主题: <%=rs(2)%>

<%end if%>



我想请教大家，我的这个asp的目的是输出文章的标题，及内容
但是遇到一个问题，在输出内容时候，出错了。
运行是，前面的定义的HTMLEncode的函数，第7行。
原因：我的数据库是用access，rs（3）是文章的内容，是备注形的。
如果我把他该为是文本形就不会出问题，但是备注就出错，第7行。
前面title的值是通过连接传递过来的。