怎样在留言本中屏蔽html语法和限制篇幅大小?--------92分

freeally 2002-01-13 01:52:43
请给出具体代码!谢谢!
...全文
146 13 打赏 收藏 转发到动态 举报
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
freeally 2002-01-13
  • 打赏
  • 举报
回复
t
freeally 2002-01-13
  • 打赏
  • 举报
回复
哪位朋友帮我把add.asp加入屏蔽html.限制输入长度的代码亚?谢谢!
lanying 2002-01-13
  • 打赏
  • 举报
回复
防止html代码的方法是用server.htmlencode,判断长度的方法是用len函数
freeally 2002-01-13
  • 打赏
  • 举报
回复
lea1981(泡泡虫oO○) 
add.asp程序代码如下:怎么加?lea1981(泡泡虫oO○) 
<%@ Language=VBScript %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 2</title>
<meta http-equiv='content-type' content='text/html; charset=gb2312'>
<title>关闭窗口</title>
</head>

<!--#INCLUDE FILE="config.asp" -->

<%

name=trim(Request.form("name"))


main=trim(Request.Form("main"))

if name="" then
%>
<script language=vbscript>
MsgBox "错误:姓名不能为空!"
location.href = "javascript:history.back()"


</script>




<%
Response.End
end if

if main="" then
%>
<script language=vbscript>
MsgBox "要留言还是填点内容吧!"
location.href = "javascript:history.back()"
</script>

<%
Response.End
end if




sql="select * from guest"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("名字")=Server.HtmlEncode(name)



rs("留言")=Server.HtmlEncode(main)

rs("留言日期")=now()
rs("ip")=Request.servervariables("REMOTE_ADDR")

rs.update
rs.close
%>
<p align="center"><font size="2"><font color="#FF0000"> <br>
<br>
<br>
你以留言成功,请关闭本窗口!</font></font></p>
</html>
hongyou 2002-01-13
  • 打赏
  • 举报
回复
学习学习~~
lea1981 2002-01-13
  • 打赏
  • 举报
回复
加到add.asp中啦~
freeally 2002-01-13
  • 打赏
  • 举报
回复
谢谢大家,能不能给个完整的代码?
我的代码如下,怎么加入?
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 2</title>
<style language="JavaScript" type="text/css">A {
COLOR: #000000; TEXT-DECORATION: none; TEXT-TRANSFORM: none
}
A:hover {
COLOR: #ffffff; TEXT-DECORATION: underline
}
</style>
<style type="text/css">TD {
FONT-SIZE: 9pt
}
P {
FONT-SIZE: 9pt
}
A:active {
TEXT-DECORATION: none
}
A:hover {
TEXT-DECORATION: underline
}
A:link {
TEXT-DECORATION: none
}
A:visited {
TEXT-DECORATION: none
}
</style>
</head>

<body>

<form action="add.asp" method="post" align="center">
<table align="center" bgColor="#777777" border="0" cellPadding="0" cellSpacing="0"
width="95%">
<tbody>
<tr>
<td bgcolor="#FFFFFF"><table border="0" cellPadding="3" cellSpacing="1" width="100%"
bgcolor="#000000">
<tbody>
<tr align="middle">
<td bgColor="#EDC254" colSpan="2" width="100%"><b><font size="2">签写留言</font></b></td>
</tr>
<tr bgColor="#ffffff">
<td width="30%" bgcolor="#FFFFFF"><font size="2">姓 名*</font></td>
<td width="70%" bgcolor="#FFFFFF"><font size="2"><input maxLength="50" name="name"
size="30"></font></td>
</tr>
<tr bgColor="#ffffff">
<td vAlign="top" width="30%" bgcolor="#FFFFFF"><font size="2">留言内容*<br>
<br>
文字将出现在您发表的文章的结尾处。</font></td>
<td width="70%" bgcolor="#FFFFFF"><font size="2"><textarea cols="28" name="main" rows="4"
wrap="PHYSICAL"></textarea></font></td>
</tr>
</table>
</td>
</tr>
<tr align="middle">
<td bgColor="#EEBE66" width="100%"><input name="Submit"" type="submit"
value="更 新">   <input name="Clear" type="reset" value="清 除"></td>
</tr>
</tbody>
</table>
</form>
</body>
</html>
sichuanwww 2002-01-13
  • 打赏
  • 举报
回复
比较有用。谢谢!
lea1981 2002-01-13
  • 打赏
  • 举报
回复
baggio785(狗狗)说的对,不好意思弄错了.
baggio785 2002-01-13
  • 打赏
  • 举报
回复
lea1981(泡泡虫oO○),content=HTMLencode(request.form("content"))应该是content=server.HTMLEncode(request.form("content"))

lea1981 2002-01-13
  • 打赏
  • 举报
回复
<%
content=HTMLencode(request.form("content"))
if len(content)>你要限制的大小 then
%>
<script language=JavaScript>
{
alert("不能写短一点吗?");
window.history.go(-1);
}
</script>
<%else
......
end if%>
希偌 2002-01-13
  • 打赏
  • 举报
回复
过滤“<”“>”以及空格和换行符号
content= replace(content, ">", ">")
content = replace(content, "<", "<")
content = Replace(content, CHR(10) & CHR(13), "<br>")
content = Replace(content, CHR(32), " ")
限制篇幅:
if lenb(content)>你要限制的大小 then
response.write "篇幅过大了!"
end if

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧