<% dim admin_flag admin_flag="15" if not master or instr(session("flag"),admin_flag)=0 then Errmsg=Errmsg+"
"+"
  • 本页面为管理员专用，请登陆后进入。
  • 您没有管理本页面的权限。" call dvbbs_error() else dim body dim readme,Tlink call main() set rs=nothing conn.close set conn=nothing end if sub main() if request("action") = "add" then call addlink() elseif request("action")="edit" then call editlink() elseif request("action")="savenew" then call savenew() elseif request("action")="savedit" then call savedit() elseif request("action")="del" then call del() elseif request("action")="orders" then call orders() elseif request("action")="updatorders" then call updateorders() else call linkinfo() end if response.write body end sub sub addlink() %>
    添加联盟论坛
    论坛名称
    连接URL
    连接LOGO地址
    论坛简介
    在首页是文字连接还是LOGO连接 文字连接  LOGO连接
    <% end sub sub editlink() set rs= server.createobject ("adodb.recordset") sql = "select * from bbslink where id="&Request("id") rs.open sql,conn,1,1 %>
    >
    编辑联盟论坛
    论坛名称： >
    连接URL： >
    连接LOGO地址： ">
    论坛简介： >
    在首页是文字连接还是LOGO连接 文字连接checked<%end if%>>  LOGO连接checked<%end if%>>
    <% rs.close set rs=nothing end sub sub linkinfo() set rs= server.createobject ("adodb.recordset") sql = " select * from bbslink order by id" rs.open sql,conn,1,1 %> <% do while not rs.eof Tlink=split(rs(2),"$") %> <% rs.movenext loop rs.Close set rs=nothing %>
    联盟论坛列表 | 增加新的联盟论坛
    序号 名称 是否LOGO 编辑
    <%=rs("id")%> target=_blank><%=rs("boardname")%> <%if rs("islogo")=1 then%>是<%else%>否<%end if%> ">排序 ">编辑 ">删除
    <% end sub sub savenew() if Request("url")<>"" and Request("readme")<>"" and request("name")<>"" then dim linknum set rs= server.createobject ("adodb.recordset") sql = "select * from bbslink order by id desc" rs.Open sql,conn,1,3 if rs.eof and rs.bof then linknum=1 else linknum=rs("id")+1 end if sql="insert into bbslink(id,boardname,readme,logo,url,islogo) values("&linknum&",'"&Trim(Request.Form ("name"))&"','"&Trim(Request.Form ("readme"))&"','"&trim(request.Form("logo"))&"','"&Request.Form ("url")&"','"&request.Form("islogo")&"')" 'response.write sql conn.execute(sql) 'rs("id")=linknum 'rs("boardname") = Trim(Request.Form ("name")) 'rs("readme") = Trim(Request.Form ("readme")) 'rs("logo") = trim(request.Form("logo")) 'rs("url") = Request.Form ("url") 'rs("islogo")=request.Form("islogo") 'rs.AddNew 'rs.Update rs.Close set rs=nothing call cache_link() body=body+"
    "+"更新成功，请继续其他操作。" else body=body+"
    "+"请输入完整联盟论坛信息。" end if end sub sub savedit() set rs= server.createobject ("adodb.recordset") sql = "select * from bbslink where id="&request("id") rs.Open sql,conn,1,3 if rs.eof and rs.bof then body=body+"
    "+"错误，没有找到联盟论坛。" else rs("boardname") = Trim(Request.Form ("name")) rs("readme") = Trim(Request.Form ("readme")) rs("logo")=trim(request.Form("logo")) rs("url") = Request.Form ("url") rs("islogo")=request.Form("islogo") rs.Update end if rs.Close set rs=nothing call cache_link() body=body+"
    "+"更新成功，请继续其他操作。" end sub sub del dim id id = request("id") sql="delete from bbslink where id="+id conn.Execute(sql) body=body+"
    "+"删除成功，请继续其他操作。" call cache_link() end sub sub orders() %>
    联盟论坛重新排序
    注意：请在相应论坛的排序表单内输入相应的排列序号，注意不能和别的联盟论坛有相同的排列序号。
    增加新的联盟论坛
    <% set rs= server.createobject ("adodb.recordset") sql="select * from bbslink where id="&cstr(request("id")) rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "没有找到相应的联盟论坛。" else response.write "
    " response.write ""&rs("boardname")&" " response.write "" response.write "
    " end if rs.close set rs=nothing %>
    增加新的联盟论坛
    <% end sub sub updateorders() if isnumeric(request("id")) and isnumeric(request("newid")) and request("newid")<>request("id") then set rs=conn.execute("select id from bbslink where id="&request("newid")) if rs.eof and rs.bof then sql="update bbslink set id="&request("newid")&" where id="&cstr(request("id")) conn.execute(sql) response.write "更新成功！" else response.write "更新失败，您指定了和其他联盟论坛相同的序号！" end if else response.write "更新失败！您输入的字符不合法，或者输入了和原来相同的序号！" end if end sub sub cache_link() myCache.name="bbslink" Dim linkinfo i=7 sql="select boardname,readme,url from bbslink where islogo=0 order by id" set rs=conn.execute(sql) if not rs.eof and not rs.bof then do while not rs.eof if i>6 then linkinfo = linkinfo & "" i=1 else linkinfo = linkinfo & "" end if linkinfo = linkinfo & ""&rs(0)&"" rs.movenext linkinfo = linkinfo & "" if i=6 then linkinfo = linkinfo & "" i=i+1 loop end if i=7 sql="select boardname,readme,url,logo from bbslink where islogo=1 order by id" set rs=conn.execute(sql) if not rs.eof and not rs.bof then linkinfo = linkinfo & "
    " do while not rs.eof if i>6 then linkinfo = linkinfo & "" i=1 else linkinfo = linkinfo & "" end if linkinfo = linkinfo & "" rs.movenext linkinfo = linkinfo & "" if i=6 then linkinfo = linkinfo & "" i=i+1 loop end if set rs=nothing if isnull(linkinfo) or linkinfo="" then linkinfo=" " myCache.add linkinfo,dateadd("n",9999,now) end sub %>