<!--#include file="Head.asp"-->

<!--#include file="Config.asp"-->
<!--#include file="admin.asp"-->
<%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()
call saycardd("修改友链类别")

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 ("修改友链类别成功<br/>")%>
<a href="Link_class.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">返回分类管理</a><br/>
<a href='Admin_index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>返回友链后台</a><br/>
<a href="../index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[后台管理]</a>
<%response.write"<br/><a href='http://8ggg.net/bbs/cjj.asp?cjj="&Request.ServerVariables("SERVER_NAME")&"&amp;ztt="&ppo&"'>进入WAP龙门网查看最新升级功能免费升级</a><br/>"
call headsay()%>
<%Response.End%><%End Sub%>
<%call ALLClose()%>
<%sub Noclass()
call saycardd("修改友链类别")
response.write ("友链类别名称好像不可以为空吧?<br/>")%>
<%response.write ("<a href='Link_add.asp?sid="&sid&"&amp;saytk="&saytk&"'>返回修改</a><br/>")%>
<a href="Link_class.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">返回分类管理</a><br/>
<a href='Admin_index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>返回友链后台</a><br/>
<a href="../index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[后台管理]</a>
<%response.write"<br/><a href='http://8ggg.net/bbs/cjj.asp?cjj="&Request.ServerVariables("SERVER_NAME")&"&amp;ztt="&ppo&"'>进入WAP龙门网查看最新升级功能免费升级</a><br/>"
call headsay()%>
<%Response.End%><%End Sub%>
<%sub Nopid()
call saycardd("修改友链类别")
response.write ("排序这样写也行呀?<br/>")%>
<%response.write ("<a href='Link_add.asp?sid="&sid&"&amp;saytk="&saytk&"'>返回修改</a><br/>")%>
<a href="Link_class.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">返回分类管理</a><br/>
<a href='Admin_index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>返回友链后台</a><br/>
<a href="../index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[后台管理]</a>

<%call headsay()%>
<%Response.End%><%End Sub%>
