唉~~~请问关于表单中的"<"和">"

nc2015 2004-01-12 11:46:57

为什么那么多人回复都不明白我的意思？

(1)bbs.asp
=--==-=-=-=-=-=-=-=-=-=-=-=
<%
set conn=server.CreateObject("adodb.connection")
set cs=server.CreateObject("adodb.recordset")
dbpath=server.MapPath("one.mdb")
conn.open"driver={microsoft access driver (*.mdb)};dbq="&dbpath
sql="select * from bbs order by ID desc"
cs.open sql,conn,3,2
%>
<html>
<body>
<table><%=cs("text")%></table>
<form action="bbs2.asp" method="post">
<textarea name="text" cols="100" rows="6"></textarea>
<input type="submit" value="发表" name="ok">
</form>
</body>
</html>
<%
ds.close
set ds=nothing
set conn=nothing
%>
=-=-=-=-=-=-=-=-=-=-=-=-=-=

(2)bbs2.asp
-=-=-=-=-=-=-=-=-=-=-=-=-=
<%
set conn=server.CreateObject("adodb.connection")
set ds=server.CreateObject("adodb.recordset")
dbpath=server.MapPath("one.mdb")
conn.open"driver={microsoft access driver (*.mdb)};dbq="&dbpath
sql="select * from bbs"
ds.open sql,conn,3,2
ds.addnew
ds("text")=request.Form("text")
ds.update
response.Redirect("bbs.asp")
ds.close
set ds=nothing
set conn=nothing
%>
=-=-=-=-=-=-=-=-=-=-=-=-=-=

我在bbs.asp中的表单中输入:<font color="red">123</font>，然后点发表。结
果是在bbs.asp中显示的是红色的123.我想做的是怎样才能使bbs.asp发表后在b
bs.asp中显示的是:<font color="red">123</font>，而不是红色的123.也就是转
换一下"<"和">"。

好，有大侠回复我一个这个：

save.asp
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


<%
dim content
content=htmlencode2(request.form("txtcontent"))
%>
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

articlechar.inc
-=-=-=-=--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
<%
function htmlencode2(str)
dim result
dim l
if isNULL(str) then
htmlencode2=""
exit function
end if
l=len(str)
result=""
dim i
for i = 1 to l
select case mid(str,i,1)
case "<"
result=result+"<"
case ">"
result=result+">"
case chr(13)
result=result+"<br>"
case chr(34)
result=result+"""
case "&"
result=result+"&"
case chr(32)
'result=result+" "
if i+1<=l and i-1>0 then
if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then
result=result+" "
else
result=result+" "
end if
else
result=result+" "
end if
case chr(9)
result=result+" "
case else
result=result+mid(str,i,1)
end select
next
htmlencode2=result
end function
%>
可以我根本不知道articlechar.inc应该怎么用。
这些东西应该加在我原来的bbs.asp和bbs2.asp中的什么位置上？谢谢了

...全文

80 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

PPLUNCLE 2004-01-14

打赏
举报

http://www.6to23.com/s11/s11d3/2003613153721.htm

whyy0 2004-01-14

打赏
举报

就是转换大部分HTML的特殊的字符，比如说<>，回车等
你使用的时候
只要在你的页面里加这么一句话

然后在程序里你输入的数据（比如添加内容）做如下的处理
content=htmlencode2(request("表单名"))
然后把content存进数据库里就可以了

nc2015 2004-01-14