<%
'============================================================
' Copyright 2007-09 燃点真情. All Rights Reserved.
' Last Update: 2007-12-16 13:28
' E-Mail: xivn@163.com QQ:531233814
'============================================================
%>
<%dim Rs,Sql,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()%><%
Set RS=server.createobject("adodb.recordset")
Sql="select * from [linkclass] Where classid="&ID
RS.open sql,conn,1,3
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%>