📄 admin_link.asp

📁 应用于高等院校党团思想教育
💻 ASP
字号:
<%@ LANGUAGE="VBSCRIPT" %>

<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file=inc/char.asp-->
<!--#include file="admin_left.asp"-->

<title><%=ForumName%>--管理页面</title>
<link rel="stylesheet" type="text/css" href="forum.css">

<BODY bgcolor="#ffffff" alink="#333333" vlink="#333333" link="#333333" topmargin="20">
<%
	if session("masterlogin")<>"superadmin" then
		Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=elogin.asp>登陆管理</a>后进入。"
		call Error()
	else
		dim body
		set rs= server.createobject ("adodb.recordset")
		call main()
		set rs=nothing
		conn.close
		set conn=nothing
	end if

	sub main()
%>
<table cellpadding=0 cellspacing=0 border=0 width=95% bgcolor=<%=atablebackcolor%> align=center>
  <tr>
    <td>
      <table cellpadding=3 cellspacing=1 border=0 width=100%>
        <tr bgcolor='<%=aTabletitlecolor%>'>
        <td align=center colspan="2">欢迎<b><%=session("mastername")%></b>进入管理页面
        </td>
        </tr>
            <tr bgcolor=<%=tablebodycolor%>>
              
          <td width="20%" valign=top> 
            <% call left()%>
            </td>
              
          <td width="80%" valign=top>
<%
	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")="updateorders" then
		call updateorders()
	else
		call linkinfo()
	end if
%>     <p><%=body%></p>
        </td>
    </tr>
</table>

<%
end sub

sub addlink()
%>
<form action="admin_link.asp?action=savenew" method = post>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="30%">论坛名称： </td>
    <td width="70%"> 
      <input type="text" name="name" size=40>
    </td>
  </tr>
  <tr> 
    <td width="30%">连接URL： </td>
    <td width="70%"> 
      <input type="text" name="url" size=40>
    </td>
  </tr>
  <tr> 
    <td height="15" width="30%">论坛简介： </td>
    <td height="15" width="70%"> 
      <input type="text" name="readme" size=40>
    </td>
  </tr>
  <tr> 
    <td height="15" colspan="2"> 
      <div align="center"> 
        <input type="submit" name="Submit" value="添加">
      </div>
    </td>
  </tr>
</table>
</form>
<%
end sub

sub editlink()
	sql = "select * from bbslink where id="+cstr(Request("id"))
	rs.open sql,conn,1,1
%>
<form action="admin_link.asp?action=savedit" method=post>
<input type=hidden name=id value=<%=Request("id")%>>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="30%">论坛名称： </td>
    <td width="70%"> 
      <input type="text" name="name" size=40 value=<%=rs("boardname")%>>
    </td>
  </tr>
  <tr> 
    <td width="30%">连接URL： </td>
    <td width="70%"> 
      <input type="text" name="url" size=40 value=<%=rs("url")%>>
    </td>
  </tr>
  <tr> 
    <td height="15" width="30%">论坛简介： </td>
    <td height="15" width="70%"> 
      <input type="text" name="readme" size=40 value=<%=rs("readme")%>>
    </td>
  </tr>
  <tr> 
    <td height="15" colspan="2"> 
      <div align="center"> 
        <input type="submit" name="Submit" value="修改">
      </div>
    </td>
  </tr>
</table>
</form>
<%
	rs.close
end sub

sub linkinfo()
%>
            <table width="100%" border="0" cellspacing="3" cellpadding="0">
              <tr>
                <td>注意事项： <br>
                  在下面，您将看到目前所有的联盟论坛。您可以编辑联盟论坛名或是增加一个新的联盟论坛。 也可以编辑或删除目前存在的联盟论坛。您可以对目前的联盟重新进行排列。 
                </td>
              </tr>
            </table>
<%
	sql = " select * from bbslink order by id"
	rs.open sql,conn,1,1
%> 
<br>
            <table width="100%" border="0" cellspacing="3" cellpadding="0">
              <tr bgcolor="<%=atabletitlecolor%>"> 
                <td height="22"><a href="admin_link.asp?action=add">增加新的联盟论坛</a></td>
              </tr>
            </table>
<%
	do while not rs.eof
%>
<hr width=60% align=left color=black height=1>
            <table width="100%" border="0" cellspacing="3" cellpadding="0">
              <tr> 
                <td>联盟论坛名称：<%=rs("boardname")%></td>
              </tr>
              <tr> 
                <td>联盟论坛 URL：<%=rs("url")%></td>
              </tr>
              <tr> 
                <td>联盟论坛简介：<%=rs("readme")%></td>
              </tr>
              <tr align="left" valign="bottom"> 
                <td height="27"><a href="admin_link.asp?action=edit&id=<%=rs("id")%>">编辑此联盟论坛</a> | <a href="admin_link.asp?action=del&id=<%=rs("id")%>">删除此联盟论坛</a> | <a href="admin_link.asp?action=orders&id=<%=rs("id")%>">联盟论坛重新排序</a></td>
              </tr>
            </table>

<%
	rs.movenext
	loop
	rs.Close
%>
<hr width=60% align=left color=black height=1>
            <table width="100%" border="0" cellspacing="3" cellpadding="0">
              <tr bgcolor=<%=atabletitlecolor%>> 
                <td height="20"><a href="admin_link.asp?action=add">增加新的联盟论坛</a></td>
              </tr>
            </table>
            <br>
            <br>
          </td>
            </tr>
        </table>
<%
end sub

sub savenew()
if Request("url")<>"" and Request("readme")<>"" and request("name")<>"" then
	dim linknum
	sql = "select * from bbslink"
	rs.Open sql,conn,1,3
	linknum=rs.recordcount
	rs.AddNew 
	rs("id")=linknum+1
	rs("boardname") = Trim(Request.Form ("name"))
	rs("readme") =  Trim(Request.Form ("readme"))
	rs("url") = Request.Form ("url")
	rs.Update 
	rs.Close
	body=body+"<br>"+"更新成功，请继续其他操作。"
else
	body=body+"<br>"+"请输入完整联盟论坛信息。"
end if
end sub

sub savedit()
	sql = "select * from bbslink where id="+Cstr(request("id"))
	rs.Open sql,conn,1,3
	if rs.eof and rs.bof then
	body=body+"<br>"+"错误，没有找到联盟论坛。"
	else
	rs("boardname") = Trim(Request.Form ("name"))
	rs("readme") =  Trim(Request.Form ("readme"))
	rs("url") = Request.Form ("url")
	rs.Update
	end if 
	rs.Close
	body=body+"<br>"+"更新成功，请继续其他操作。"
end sub

sub del
	id = request("id")
	sql="delete from bbslink where id="+id
	conn.Execute(sql)
	body=body+"<br>"+"删除成功，请继续其他操作。"
end sub

sub orders()
%><br>
            <table width="95%" border="0" cellspacing="3" cellpadding="0" align=center>
              <tr> 
                <td height="22"><b>联盟论坛重新排序</b><br>
注意：请在相应论坛的排序表单内输入相应的排列序号，注意不能和别的联盟论坛有相同的排列序号。
		</td>
              </tr>
	      <tr>
              <tr bgcolor="<%=atabletitlecolor%>"> 
                <td height="22" align=center><a href="admin_link.asp?action=add">增加新的联盟论坛</a></td>
              </tr>
	      <tr>
		<td>
<%
	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 "<form action=admin_link.asp?action=updateorders method=post>"
		response.write ""&rs("boardname")&"  <input type=text name=newid size=2 value="&rs("id")&">"
		response.write "<input type=hidden name=id value="&request("id")&">"
		response.write "<input type=submit name=Submit value=修改></form>"
	end if
	rs.close
%>
		</td>
	      </tr>
              <tr bgcolor="<%=atabletitlecolor%>"> 
                <td height="22" align=center><a href="admin_link.asp?action=add">增加新的联盟论坛</a></td>
              </tr>
            </table>
<%
end sub

sub updateorders()
	sql="update bbslink set id="&request("newid")&" where id="&cstr(request("id"))
	conn.execute(sql)
	response.write "<p align=center>更新成功！</p>"
end sub
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -