<%
'============================================================
' Copyright 2007-09 燃点真情. All Rights Reserved.
' Last Update: 2007-12-16 13:28
' E-Mail: xivn@163.com QQ:531233814
'============================================================
%>
<%
dim classs,pid,br,ID
ID=request.QueryString("ID")
classs=LCase(Request.Form("class"))
pid=LCase(Request.Form("pid"))
br=LCase(Request.Form("br"))
if classs="" or classs=" " then
Noclass
else
IF Not IsEmpty(Pid) and Not IsNumeric(Pid) Then
Nopid
else
classsave
end if
end if
%><%sub classsave()%>
<%dim Rs,Sql
Set RS=server.createobject("adodb.recordset")
Sql="select * from [linkclass]"
RS.open sql,conn,1,3
RS.addnew
RS("class")=classs
RS("pid")=pid
RS("br")=br
RS.update()
response.write ("友链类别添加成功
")%>
[分类管理]
[友链管理]
<%Response.End%><%End Sub%>
<%call ALLClose()%>
<%sub Noclass()%>
<%response.write ("友链类别名称好像不可以为空吧?
")%>
<%response.write ("返回修改
")%>
[分类管理]
[友链管理]
<%Response.End%><%End Sub%>
<%sub Nopid()%>
<%response.write ("排序这样写也行呀?
")%>
<%response.write ("返回修改
")%>
[分类管理]
[友链管理]
<%Response.End%><%End Sub%>