<%
if Request.ServerVariables("REQUEST_METHOD")="POST" then
if request.form("providername")<>"" then
sql="select * from gongying where gname='"&request.form("providername")&"'"
rs.open sql,conn,3,2
if rs.eof then
  rs.addnew
  rs("gname")=request.form("providername")
  rs("memo")=request.form("memo")
  rs.update
  response.write "<p align=center>添加成功,请<a href='viewgong.asp'>返回</a><br><br>"
else
  response.write "<p align=center>该供应商已存在,请<a href='addgong.asp'>重新输入</a><br><br>"
end if
rs.close
else
   response.write "<p align=center>请<a href='addgong.asp'>输入供应商名称</a><br><br>"
end if
else
%>


我的conn.asp文件
<%
   dim conn,str  
   on error resume next
   str="PROVIDER=SQLOLEDB;DATA SOURCE=127.0.0.1;UID=sa;PWD=123;DATABASE=kucun"
   set conn=server.createobject("ADODB.CONNECTION")
   Set rs = Server.CreateObject("ADODB.Recordset")
   Set rs2 = Server.CreateObject("ADODB.Recordset")
   Set rs3 = Server.CreateObject("ADODB.Recordset")
   if err then
      err.clear
      response.Write("数据库连接错误！")
   else
        conn.open str
        if err then
           err.clear
           response.Write("数据库打开错误！")
        end if
   end if
%>


大家帮帮我啊。。。急需。。。

我问了老师，老师居然不能解决。。。

有没有高手能帮我解决下。。。

明天就得检查课程设计啦。。。

这样还是不行。。。
不知道为什么，理论上应该没问题啊？？？？

还是改用SQL语句吧。。。还是得谢谢版主哈。。。。

谢谢斑竹啊。。。

我现在搞定啦。。