我不知道那里出了错误~请指教~
<!--#include file="conn.asp"--><%
dim rs,sql,exec
dim strgsname,strgsadd,strgsperson,strgstel,strgsnet,strusername
strgsname=request.form("gsname")
strgsadd=request.form("gsadd")
strgsperson=request.form("gsperson")
strgstel=request.form("gstel")
strgsnet=request.form("gsnet")
strusername=session("username")
if strgsname="" then
response.Write"<script language=javascript>alert('公司名称不能为空');history.back();</script>"
end if
if strgsadd="" then
response.Write"<script language=javascript>alert('公司地址不能为空');history.back();</script>"
end if
if strgsperson="" then
response.Write"<script language=javascript>alert('公司负责人不能为空');history.back();</script>"
end if
if strgstel="" then
response.Write"<script language=javascript>alert('公司电话不能为空');history.back();</script>"
end if
set rs=server.CreateObject("adodb.recordset")
sql="select gsname from gongsi where gsname='"&strgsname&"'"
rs.open sql,conn,2.3
if not rs.eof then
response.write "<script language=javascript>alert('您输入的公司名称已经存在!');history.back()</script >"
else
rs.addnew
rs("gsname")=strgsname
rs("gsadd")=strgsadd
rs("gsperson")=strgsperson
rs("gstel")=strgstel
rs("genet")=strgsnet
rs("username")=strusername
rs.update
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
