<%
Function Deal(exp1)
dim exp2
exp2=Replace(exp2,Chr(13),"<br>")
exp2=Replace(exp2,Chr(10),"</p><p>")
exp2=Replace(exp2,Chr(32)," ")'还有空格哦
Deal=exp2
End Function
%>
在提交的时候直接用textarea=Deal(request.Form("textarea"))就可以了
2.就是在读取的时候,过滤一下.
<%
dim msg
msg=rs("text")
msg=replace(msg,vbcrlf,"<br>")
msg=replace(msg," "," ")
response.write msg
%>
3.用
function HTMLEncode(fString)
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString,"'", "''")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(10) &CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode = fString
end function
'这个函数包括过滤单引号,替换空格、换行、替换"<>"等等使用这个函数,只需要提数据的时候上HTMLEncode,如
title=HTMLEncode(request("text"))
低级版本的access(2007以下)保存时自动是cdb格式的,但是2007和2010一保存就是accdb格式了。这时候你想用另存为存为cdb格式,发现选不了cdb格式的(至少我的2010是选不了的),这点和别的软件不一样。
但是点了文件以后,在下面,还有一个选项“保存并发布”,选这个选项,再选数据库另存为,然后就可以选项成3000-2003版本的.cdb格式了。
1.打开控制面板——管理工具——数据源(ODBC)。
2.在d出的对话框中双击——MS Access Database.
3.复制数据源名MS Access Database。然后确定,返回。
4.选择“MS Access Database”——删除。点击添加。
5.在d出的对话框中,选择Microsoft Access Driver——完成。
6.在数据源名粘贴。
7.点击确定。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)