这些是管理里面添加联盟页的全部代码(modify_allyforum.asp)...
---------------------------------------------------
<%
'================================================
' 【版权声明】 =
' 这一程序是自由软件，本软件受自由 =
' 软件基金会出版的GNU通用公共许可证 =
' 条款的保护。发布这一程序的目的是 =
' 希望它有用，但没有任何担保。甚至 =
' 没有适合特定目的的隐含的担保。更 =
' 详细的情况请参阅GNU通用公共许可证 =
' 。 你应该已经和程序一起收到一份 =
' GNU通用公共许可证的副本。 =
'================================================
%><!--#include file="../forum_generally.asp" -->
<%if not CheckAdmin(-1,"")="true" then Response.Redirect("welcome.asp")%>
<%
iplist=request("iplist")
iplist=Split(iplist,chr(13)&chr(10))
action=request("action")
dj = npath&"allyforum.txt"
if action<>"" then
'Set fobj = CreateObject("Scripting.FileSystemObject")
Set djf = fobj.CreateTextFile(dj,true)
for i=0 to ubound(iplist)
iplist(i)=Trim(iplist(i))
if not iplist(i)="" then djf.WriteLine(iplist(i))
next
djf.close
end if
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<!--#include file="../styles.css" -->
</head>
<body bgcolor="#6699CC" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#000000">
<tr>
<td bgcolor="#316395">
.:: 极限论坛--控制面板 v5000+</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="50"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="6">
<tr>
<td align="center">
<form name="form1" method="post" action="">
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#000000" width="400">
<tr>
<td bgcolor="#336699">
设置联盟论坛</td>
</tr>
<tr>
<td bgcolor="#7C96B8" align="center">
<table border="0" cellspacing="0" cellpadding="4">
<tr>
<td>
说明:
每个联盟论坛为3行
第一行是连接
第二行是名称
第三行是简介，如果不想显示简介则用#代替
以此类推每3行为一各联盟论坛
不要多打回车
也可以直接修改论坛目录下的allyforum.txt文件 <textarea name="iplist" cols="40" rows="10" wrap="OFF" class="bk"><%
'Set fobj = CreateObject("Scripting.FileSystemObject")
Set djf = fobj.OpenTextFile(dj)
if not djf.AtEndOfStream then
response.write covhtml(djf.readall)
end if
djf.close
%>
