如何将脚本按原样显示出来？请大家多多指点：）

2004-04-05 04:37:20 125 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Elasticsearch 索引迁移优化实战：从合并索引到原样导入不要盲目增加并发数：ES 的写入能力受限于多个因素，不是并发数越多越好建议并发数：对于 3 节点集群，建议并发数不超过 2-3。阅读详情

我做了一个留言版，其中有几个文本框和一个文本区；请问如何把在这些区域输入的html代码和javascript代码按原样输出。

或者只要能屏蔽也可以。我试图用下面的函数
<%
Function HTMLEncode(fString)
if not isnull(fString) and fString <> "" then
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), " ")
fString = Replace(fString, CHR(10), " ")
HTMLEncode = fString
end if
End Function
%>
来屏蔽，但是当在任何一个区域输入<script language="javascript">
时部分页面就不能正常显示。

望高手们指点，在线等。

...全文

工业相机TEC散热技术：从原理到高精度成像的实战解析本文深入解析了工业相机TEC散热技术的核心原理与实战应用。通过阐述热电制冷器如何利用帕尔帖效应实现精准温控，有效抑制图像传感器暗电流噪声，从而保障高精度成像的稳定性。文章结合工业场景痛点，提供了从TEC选型、系统集成到控制逻辑的完整设计指南，并分享了不同应用场景下的实战案例，是提升工业视觉系统成像质量的关键技术解析。阅读详情

sure9961

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

sure9961 2004-04-06

打赏
举报

哦，终于明白了——我的content=server.htmlencode(request.form("content"))放的位置不对，该在
writer=request.form("writer")
unit=request.form("unit")
email=request.form("email")
tel=request.form("tel")
ip=request.servervariables("remote_addr")
title=request.form("title")

content=server.htmlencode(request.form("content"))－－－注意这里

谢谢各位的关注和指点，谢谢大家。

叮咚叮咚叮叮咚 2004-04-06

打赏
举报

Function HTMLEncode(fString)

你写的这个函数好像也没有用上啊~~~~
rs("content")=hemlencode(content)

zjg791015 2004-04-06

打赏
举报

用你贴出来的那个函数加上一楼朋友补充的那几条就应该可以实现了啊！不就是对< > " " 空格回车等进行一下过滤就可以了，有那么复杂吗？

sure9961 2004-04-06

打赏
举报

其中addok.asp会给用户一个留言成功的提示，然后通过链接进入all.asp查看。

sure9961 2004-04-06

打赏
举报

下面是我的源文件：
'add.asp用于添加新纪录
'--------------------------------
<%@ language=vbscript%>




<%
dim title,content,writer,tel,email,unit,ip

writer=request("writer")
unit=request("unit")
email=request("email")
tel=request("tel")
ip=request.servervariables("remote_addr")

title=request("title")
content=request("content")

dim rs
set rs=server.createobject("adodb.recordset")
rs.cursortype=adopenkeyset
rs.locktype=adlockoptimistic
rs.open"message",conn,1,3
%>

<%
if writer="" then
response.write"请写上您的尊称！"
response.end
end if
%>

<%
if title="" then
response.write"请填写留言标题！"
response.end
end if
%>

<%
if content="" then
response.write"请填写留言内容！"
response.end
end if
%>

<%
Function HTMLEncode(fString)
if not isnull(fString) and fString <> "" then
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), " ")
fString = Replace(fString, CHR(10), " ")
HTMLEncode = fString
end if
End Function
%>

<%
rs.addnew
rs("title")=title
rs("content")=content
rs("writer")=writer
rs("unit")=unit
rs("email")=email
rs("tel")=tel
rs("ip")=ip
rs.update
%>

<%
conn.close
set rs=nothing
set conn=nothing
%>

<%
response.redirect"addok.asp"
%>
---------------------------------------------
'all.asp——用于显示所有留言
'--------------------------------------------
<%@ LANGUAGE="VBSCRIPT"%>




<%
dim objrst,strSQL,iPageCount,CurPage,strUrl,recordnums,answer
SET objRst=Server.CreateObject("ADODB.RECORDSET")

strSQL="SELECT * FROM message order by id desc"
objRst.Open strSQL,conn,3,3
' 打开数据记录
%>

<%
if objRst.eof or objRst.bof then
response.write"sorry,当前留言为空！"
response.end
end if
%>

<%
objRst.PageSize=3
' 设置单页的数据记录数
iPageCount=objRst.PageCount
' 定义了一个页码数量的变量
If Len(Request.QueryString("Page"))=0 Then
CurPage=1
Else
CurPage=CInt(Request.Querystring("Page"))
End If
' 得到当前的页码
objRst.AbsolutePage=CurPage
' 设置记录集中的当前页
' 开始调用显示翻页的函数,显示页数栏
' 函数原型:ShowPageBar(TotalPage,CurPage,strUrl)
strUrl="all.asp"
' 定义连接的URL,可以用我们自己的页面地址
ShowPageBar iPageCount,CurPage,strUrl
' 调用完成
%>

<%
for recordnums=1 to objRst.pagesize
%>

<center>
<table width=760 border=1 align="center" cellspacing=1 bordercolor="#999999" bgcolor="#f0f0e6" style="border-collapse: collapse">
<tr>
<td width="100" height="28" align="center" > 标题</td>
<td width="160" height="28" align="center" ><%=objRst("title")%></td>
<td width="100" height="28" align="center"> 作者</td>
<td width="150" height="28" align="center"><%=objRst("writer")%></td>
<td width="100" height="28" align="center">IP地址</td>
<td width="150" height="28" align="center" >
<%=objRst("ip")%>
</td>
</tr>
<tr>
<td align="center" height="28" width="100"> 内容</td>
<td height="28" colspan="5" align="center" ><div align="left"><%=objRst("content")%>
</div></td>
</tr>
</table>

 
<%
objRst.movenext
if objRst.eof then
exit for
end if
next
conn.Close
SET objRst=NOTHING
SET conn=NOTHING
%>

'-------------------------------------------------------

wj253 2004-04-06

打赏
举报

把HTML标记转义输出

jiank 2004-04-06

打赏
举报

楼主贴的方法是正确的，可能其它处理环节有问题，检查其他环节，不行的话可以贴出来大家看。我写了BBS，就这样处理的，没问题

chendongqiang 2004-04-06

打赏
举报

Function FilterJS(v)
if not isnull(v) then
dim t
dim re
dim reContent
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(&#)"
t=re.Replace(v,"&#")
re.Pattern="(javascript)"
t=re.Replace(t,"&#106avascript")
re.Pattern="(jscript:)"
t=re.Replace(t,"&#106script:")
re.Pattern="(js:)"
t=re.Replace(t,"&#106s:")
re.Pattern="(value)"
t=re.Replace(t,"&#118alue")
re.Pattern="(about:)"
t=re.Replace(t,"about:")
re.Pattern="(file:)"
t=re.Replace(t,"file:")
re.Pattern="(document.cookie)"
t=re.Replace(t,"documents&#46cookie")
re.Pattern="(vbscript:)"
t=re.Replace(t,"&#118bscript:")
re.Pattern="(vbs:)"
t=re.Replace(t,"&#118bs:")
re.Pattern="(on(mouse|exit|error|click|key))"
t=re.Replace(t,"&#111n$2")
FilterJS=t
set re=nothing
end if
End Function
调用这个函数就可以了。

sure9961 2004-04-06

打赏
举报

大家帮忙看看吧，这个问题很难吗？

sure9961 2004-04-06

打赏
举报

尽管用server.htmlencode(request.form("textarea"))的方法做了处理，但显示页面上凡是输入<script language="javascript">的文本框和文本区的内容都显示为空白，而且该页后面的记录也显示不出来了。

iloveyaner 2004-04-06

打赏
举报

出什么问题？

sure9961 2004-04-06

打赏
举报

s1ihome(i believe i can fly)说server.htmlencode(request.form("textarea"))的方法可以，是不是我的输出方法又问题呢
我用的是
<%=rs("name1")%>
<%=rs("name2")%>
<%=rs("name3")%>

请大家多多指点呀

sure9961 2004-04-06

打赏
举报

server.htmlencode(request.form("textarea"))的方法我试过了，不行。

不知道老四的方法怎么，不知道该怎么用？
请高手们多指点啊

在线等。

sure9961 2004-04-06

打赏
举报

fgfgfg

lhdnxx 2004-04-05

打赏
举报

想学习，顶一下。

叮咚叮咚叮叮咚 2004-04-05

打赏
举报

在这部分提交的时候用server.htmlencode(request.form("textarea"))

这个问题应该主要出在双引号部分吧,

sure9961 2004-04-05

打赏
举报

chendongqiang(老四) ，能说得具体点吗？不好意思，我太菜了不知道该怎么用。

dayanmao 2004-04-05

打赏
举报

楼主的办法还解决不了的话我只好学习了...

chendongqiang 2004-04-05

打赏
举报

re.Pattern="(javascript)"
t=re.Replace(t,"&#106avascript")
re.Pattern="(jscript:)"
t=re.Replace(t,"&#106script:")
re.Pattern="(js:)"
t=re.Replace(t,"&#106s:")

如何将脚本按原样显示出来？请大家多多指点：）

相关推荐