editclasscl.asp

燃点真情的WAP整站程序,WAP建站系统,,更多WAP源码再登陆http://xywap.cn

<!--#include file="Head.asp"-->
<%
'============================================================
' Copyright 2007-09 燃点真情. All Rights Reserved.
' Last Update: 2007-12-16  13:28
' E-Mail: [e-mail]  QQ:531233814
'============================================================
%>
<!--#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()%><card title="修改友链类别"><p><%
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%>">返回分类管理</a><br/>
<a href='Admin_index.asp?sid=<%=sid%>'>返回友链后台</a><br/>
<a href="../index.asp?sid=<%=sid%>">[后台管理]</a>
</p></card></wml>
<%Response.End%><%End Sub%>
<%call ALLClose()%>
<%sub Noclass()%><card title="修改友链类别"><p>
<%response.write ("友链类别名称好像不可以为空吧?<br/>")%>
<%response.write ("<a href='Link_add.asp?sid="&sid&"'>返回修改</a><br/>")%>
<a href="Link_class.asp?sid=<%=sid%>">返回分类管理</a><br/>
<a href='Admin_index.asp?sid=<%=sid%>'>返回友链后台</a><br/>
<a href="../index.asp?sid=<%=sid%>">[后台管理]</a>
</p></card></wml>
<%Response.End%><%End Sub%>
<%sub Nopid()%><card title="修改友链类别"><p>
<%response.write ("排序这样写也行呀?<br/>")%>
<%response.write ("<a href='Link_add.asp?sid="&sid&"'>返回修改</a><br/>")%>
<a href="Link_class.asp?sid=<%=sid%>">返回分类管理</a><br/>
<a href='Admin_index.asp?sid=<%=sid%>'>返回友链后台</a><br/>
<a href="../index.asp?sid=<%=sid%>">[后台管理]</a>
</p></card></wml>
<%Response.End%><%End Sub%>