
<!-- #include file="../conn.asp" -->
<!-- #include file="admin.asp" -->
<%call ling()
Call Head
call saycardd("添加栏目")

dim classid,test,title
        classid=LCase(Request("classid"))

if classid="" or IsNumeric(classid) = False then
  Response.write "ID错误！"
  Response.write "<br/><anchor><prev/>返回</anchor>"
  call head3()
  Response.end
end if
        test=LCase(Request("test"))
        title=LCase(Request("title"))
if test="" or title=""  then
  Response.write "各项都不可以为空！"
  Response.write "<br/><anchor><prev/>返回</anchor>"
  call head3()
  Response.end
end if
        set rs=server.createobject("adodb.recordset")
	sql="select * from sms"
	rs.open sql,conn,1,3
        rs.addnew
        rs("classid")=classid
        rs("test")=test
        rs("YD_date")=now()
        rs("title")=title
        rs.update
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
response.write "记录添加成功!"
%>
<br/>----------<br/>
<a href="add.asp?sid=<%=sid%>&amp;id=<%=classid%>&amp;saytk=<%=saytk%>">[继续增加]</a>
<br/>
<a href="adminsmscl.asp?sid=<%=sid%>&amp;id=<%=classid%>&amp;saytk=<%=saytk%>">[返回文章]</a><br/>
<a href="wzclass.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[文章分类]</a>
<br/><a href="../index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[后台管理]</a>
<%response.write""
call head3()%>
