UC知道200高分~~~~~求关于限制字数的代码
来源：百度知道 编辑：UC知道 时间：2024/06/01 19:33:25
ASP程序:要求实现功能:限制400字以内,否则出现提示,请加在下面的程序中,谢谢!
<!--#include file="config.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<%
name=request.form("name")
tel=request.form("tel")
remark=request.form("remark")
if name=""or tel="" or remark="" then
Response.Write("<script>alert(""错误：\信息输入不完全，请重新输入完整!"&Copyright&""");location.href=""index.asp"";</script>")
else
buttom="ture"
set rs1 = server.createobject("adodb.recordset")
sql1="select * from system where buttom='"&buttom&"'"
rs1.open sql1,conn,1,3
exec="insert into form(name,tel,remark)values('"+name+"','"+tel+"','"+remark+"')"
<!--#include file="config.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<%
name=request.form("name")
tel=request.form("tel")
remark=request.form("remark")
if name=""or tel="" or remark="" then
Response.Write("<script>alert(""错误：\信息输入不完全，请重新输入完整!"&Copyright&""");location.href=""index.asp"";</script>")
else
buttom="ture"
set rs1 = server.createobject("adodb.recordset")
sql1="select * from system where buttom='"&buttom&"'"
rs1.open sql1,conn,1,3
exec="insert into form(name,tel,remark)values('"+name+"','"+tel+"','"+remark+"')"
把zherose说的稍微改动一下即可：
<!--#include file="config.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<%
name=request.form("name")
tel=request.form("tel")
remark=request.form("remark")
if name=""or tel="" or remark="" then
Response.Write("<script>alert(""错误：\信息输入不完全，请重新输入完整!"&Copyright&""");location.href=""index.asp"";</script>")
else
If Len(remark)>400 Then
Response.Write("<script>alert(""错误：\信息输入不允许超过400字!"&Copyright&""");location.href=""index.asp"";</script>")
else
buttom="ture"
set rs1 = server.createobject("adodb.recordset")
sql1="select * from system where buttom=&#