==求ASP代码,增删改查的功能,建立ACCESE表,里面两个字段,USERID,USERNAME!就可以了==
越快越好,弄完请发到select2005@163.com邮箱里,谢谢!
参考答案:sub SaveAdd()
classname=Trim(Request.Form("classname"))
Set Rs=Server.CreateObject("ADODB.Recordset")
Sql="Select * From 表 where USERNAME='"&classname&"'"
Rs.Open Sql,Conn,1,3
if not(rs.eof and rs.bof) then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请不要重复提交!</li>"
exit sub
else
Rs.AddNew
rs("Classname")=Classname
Rs.UpDate
Rs.close
Set Rs=Nothing
end sub