28,406
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
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>
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>
我的代码如下，怎么加入？
<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%>
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
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
