UC知道急急 在线等啊 asp代码问题啊
来源：百度知道 编辑：UC知道 时间：2024/05/17 12:51:54
<!--#include file="admin_conn.asp"-->
<%
if (int(session("VCodes"))<>int(request("VCodes"))) then
response.write "<script language=javascript> alert('提示:\n\n验证码错误，请重新输入黄色区域内的数字!');location.replace('guestbookadd.asp'); </script>"
response.end
end if
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from Feedback "
rs.open sql,conn,1,3
if rs.eof then
response.end()
end if
username=server.HTMLEncode(replace(request.Form("username"),"'","''"))
title=server.HTMLEncode(replace(request.Form("title"),"'","''"))
comments=replace(request.Form("comments"),"'","''")
usermail=server.HTMLEncode(replace(request.Form("usermail&qu
<%
if (int(session("VCodes"))<>int(request("VCodes"))) then
response.write "<script language=javascript> alert('提示:\n\n验证码错误，请重新输入黄色区域内的数字!');location.replace('guestbookadd.asp'); </script>"
response.end
end if
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from Feedback "
rs.open sql,conn,1,3
if rs.eof then
response.end()
end if
username=server.HTMLEncode(replace(request.Form("username"),"'","''"))
title=server.HTMLEncode(replace(request.Form("title"),"'","''"))
comments=replace(request.Form("comments"),"'","''")
usermail=server.HTMLEncode(replace(request.Form("usermail&qu
1.文本框只能输入数字代码(小数点也不能输入)
<input onkeyup="this.value=this.value.replace(/\D/g,'')" onafterpaste="this.value=this.value.replace(/\D/g,'')">
2.只能输入数字,能输小数点.
<input onkeyup="if(isNaN(value))execCommand('undo')" onafterpaste="if(isNaN(value))execCommand('undo')">
<input name=txt1 onchange="if(/\D/.test(this.value)){alert('只能输入数字');this.value='';}">
3.数字和小数点方法二
<input type=text t_value="" o_value="" onkeypress="if(!this.value.match(/^[\+\-]?\d*?\.?\d*?$/))this.value=this.t_value;else this.t_value=this.value;if(this.value.match(/^(?:[\+\-]?\d+(?:\.\d+)?)?$/))this.o_value=this.value" onkeyup="if(!this.value.match(/^[\+\-]?\d*?\.?\d*?$/))this.value=this.t_value;else this.t_value=this.value;if(this.value.match(/^(?:[\+\-]?