If action = "save" Then
Call RegStr("^\s*[.A-Za-z0-9]\s*[.@]{4,30}\s*$",user,"通行证输入有误!")
Set Rs = Server.CreateObject("Adodb.Recordset")
Rs.Open "Select * From Info",Conn,1,3
Rs.AddNew
-----------------------------
输入@这个符号就 说通行证有错误
If action = "save" Then
Call RegStr("^\s*[.A-Za-z0-9]\s*[.@]{4,30}\s*$",user,"通行证输入有误!")
Set Rs = Server.CreateObject("Adodb.Recordset")
Rs.Open "Select * From Info",Conn,1,3
Rs.AddNew
-----------------------------
输入@这个符号就 说通行证有错误
1.是不是输入时的全角半角有误。
2.打上IE的补丁。
3.刷新网页后再输入。
可能是你的表有问题,你看看你的表