addsk2.asp

标准的小型企业网站程序

<!--#include file=conn.asp-->
<%
dim name,bclass,sql,count,sql2
  count=0
  name=request("name")
   bclass=request("bclass")
if name<>"" and bclass<>""  then
   sql="select * from sclass where name='"&name&"'"
    set rs=server.CreateObject("adodb.recordset")
    rs.open sql,conn,1,1
    if not rs.eof and bof then count=count+1
	rs.close
      if count>0 then
     message="对不起,此小类已经存在!"
     else 
     sql="insert into sclass(name,bclass)values('"&name&"','"&bclass&"')"
	 conn.execute(sql)
	 message="成功加入!"
   end if
else 
message="你的某个输入为空!"&name&count
end if
response.redirect"addsk.asp?message="&message

%>