<% '============================================================ ' Copyright 2007-09 燃点真情. All Rights Reserved. ' Last Update: 2007-12-16 13:28 ' E-Mail: xivn@163.com QQ:531233814 '============================================================ %> <% dim rs,sql,p p=request.Querystring("p") if p="" then p=1 set rs=server.CreateObject("adodb.recordset") sql="select * from admin" rs.open sql,conn,1,1 %> <%if p=1 then%>

首页动态设置:

友链显示个数:
" size="2"/>
友链首页排版:

审核设置:

无链入自动隐藏天数:
" size="2"/>
保存修改
[友链后台]
[后台管理] <%elseif p=2 then%>

<%dim links,linktop,linknum,Active,linkact links=Request.Form("links") linktop=Request.Form("linktop") linknum=Request.Form("linknum") linkact=Request.Form("linkact") Active=Request.Form("Active") if linknum="" or IsNumeric(linknum) = False then Call Error("显示个数错误！") end if if linkact="" or IsNumeric(linkact) = False then Call Error("隐藏天数错误！") end if set rs=server.CreateObject("adodb.recordset") sql="select * from admin" rs.open sql,conn,1,3 if not (rs.bof and rs.eof) then rs("linknum")=linknum rs("linkindex")=linktop rs("linkactive")=linkact rs("links")=links rs("Active")=Active rs.update() Response.Write "成功设置！
" end if %> [友链后台]
[后台管理] <%END IF%><%call ALLClose()%>