下面代码如何加过滤英文功能,点提交时如果Gcontent中有英文则提示不可录入
复制内容到剪贴板
代码:
<% dim gcontent
Gcontent=request.form("GuestContent")
sql="select * from Guestb"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
rs.addnew
rs("GuestContent")=Gcontent
rs.update
response.write "<script language='javascript'>" & chr(13)
response.write "alert('提交成功!');" & Chr(13)
response.write "window.document.location.href='Guest.asp';"&Chr(13)
response.write "</script>" & Chr(13)
Response.End
%>