📄 admin_action.asp
字号:
document.form.usernum.disabled=true;
document.form.topicnum.disabled=true;
document.form.maxessaynum.disabled=true;
document.form.allessaynum.disabled=true;
document.form.maxonlinenum.disabled=true;
document.form.maxonlinetime.disabled=true;
document.form.hits.disabled=true;
}}
</SCRIPT>
<%Rs.Close
End Sub
Sub GapAd
Response.Write GoForm("GapAd")%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE">
<tr><td bgcolor="#4D65A4" height="25" colspan="2" ><b><font color="#FFFFFF">贴间广告管理 </font></b></td></tr>
<%Dim Temp,I,FSO,OpenFile,TmpStr,ad_num,ad_Tmp,BgColor
Set FSO = server.CreateObject("Scr"&"ipting"&".Fil"&"eSy"&"stemOb"&"ject")
Set OpenFile=FSO.OpenTextFile(Server.MapPath("inc/ads.js"))
tmpstr=OpenFile.Readall
Temp=split(tmpstr,chr(13)&chr(10))
ad_num=replace(Temp(1),";if(a==0){a=1}","")
ad_num=Int(replace(ad_num,"a=",""))
i=0
for i=1 to ad_num
ad_Tmp=replace(temp(i+8),"b["&i&"].under=","")
ad_Tmp=replace(ad_Tmp,"'","")
IF i/2>i\2 then
BgColor="#DEF0FE"
Else
BgColor="#E8F4EF"
End If
response.write"<tr bgcolor='"&BgColor&"'><td width='10%'>显示效果：</td><td width='80%' >"&ad_tmp&"</td></tr><tr bgcolor='"&BgColor&"'><td >相应代码：</td><td><textarea rows=3 name=ad_v"&i&">"&ad_tmp&"</textarea></td></tr>"
Next%>
<tr bgcolor="#D7DAEA">
<td>增加广告：</td>
<td><textarea name=ad_v<%=ad_num+1%> rows="3"></textarea><br>[注]将代码清空则删除相关广告。</td></tr><tr bgcolor="#D7DAEA"><td colspan="2" align="center"> <input type="submit" value="确定修改"> <input type="reset" value="重 置"></td>
</tr></table></form>
<%OpenFile.close
Set FSO=Nothing
End Sub
Sub BbsLink
Dim BgColor,I,Rs%>
<%=GoForm("AddLink")%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td colspan="2" height="25"><b><font color="#FFFFFF">添加论坛联盟</font></b></td></tr>
<tr><td>论坛名称：</td><td><input type="text" name="bbsname" size="20"></td></tr>
<tr><td>论坛地址：</td><td><input type="text" name="url" size="38"></td></tr>
<tr><td>论坛站长：</td><td><input type="text" name="admin" size="20">(可以留空)</td></tr>
<tr><td>论坛图片：</td><td><input type="text" name="pic" size="38">(留空则显示文字连接)</td></tr>
<tr><td>论坛说明：</td><td><input type="text" name="Readme" size="38">(可以留空)</td></tr>
<tr><td>图片显示：</td><td><input type="radio" name="ispic" value="yes" checked> 是 <input type="radio" name="ispic" value="no" > 否</td></tr>
<tr bgcolor="#E8F4EF"><td colspan="5" align="center"><input type="submit" value=" 提 交 "> <input type="reset" value=" 重 置 "></td>
</tr></table>
</form><br>
<%=GoForm("UpdateLink")%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td height="25" ><b><font color="#FFFFFF">论坛联盟信息</font></b></td><td><b><font color="#FFFFFF">网站站长</font></b></td><td align="center"><b><font color="#FFFFFF">排序</font></b></td><td align="center"><b><font color="#FFFFFF">显示图片</font></b></td><td align="center"><b><font color="#FFFFFF">通过审查</font></b></td><td align="center"><b><font color="#FFFFFF">操作</font></b></td></tr>
<%i=0
Set Rs=BBS94KK.Execute("Select ID,Ispic,Orders,BbsName,Admin,Url,Readme,pass From[KK_Link] order by orders")
Do while Not Rs.eof
i=i+1
IF i/2>i\2 then
BgColor="#DEF0FE"
Else
BgColor="#E8F4EF"
End If%>
<tr bgcolor="<%=BgColor%>"><td><a href="<%=Rs("Url")%>" target="_blank" title="<%=Rs("Readme")%>"><%=Rs("BbsName")%></a></td><td> <%=Rs("Admin")%></td><td align="center"><input name="id" value="<%=Rs("ID")%>" type="hidden"><input type="text" name="orders" value="<%=Rs("Orders")%>" size="2"></td><td align="center"><input type="radio" name="ispic<%=i%>" value="yes" <%if Rs("isPic") then%> checked <%end if%>> 是 <input type="radio" name="ispic<%=i%>" value="no" <%if Not Rs("Ispic") then%> checked <%end if%>> 否</td><td align="center"><input type="radio" name="pass<%=i%>" value="yes" <%if Rs("pass") then%> checked <%end if%>> <font color=red>√ </font> <input type="radio" name="pass<%=i%>" value="no" <%if Not Rs("pass") then%> checked <%end if%>> ×</td>
<td align="center"><a href="?Action=EditLink&ID=<%=Rs("ID")%>"><img src="Images/edit.gif" width="18" height="13" border="0" align="absmiddle"> 编辑</a> <a onclick=checkclick('删除后将不能恢复！您确定要删除吗？') href="Admin_Confirm.asp?Action=DelLink&ID=<%=Rs("ID")%>"><img src="Images/del.gif" width="18" height="18" border="0" align="absmiddle"> 删除</a></td>
</tr>
<%Rs.movenext
Loop
Rs.Close
%>
<tr bgcolor="#E8F4EF"><td colspan="6" align="center"><input type="submit" value=" 更 新 "> <input type="reset" value=" 重 置 "></td></tr></table></form>
<%End Sub
Sub EditLink
Response.Write GoForm("EditLink")
Set Rs=BBS94KK.Execute("Select ID,Orders,IsPic,Pic,BbsName,Admin,Url,Readme,pass From[KK_Link]where ID="&ID&"")
IF Rs.eof Then
Call GoBack("这条论坛联盟不存在！")
Exit Sub
End If
%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td colspan="2" height="25"><b><font color="#FFFFFF">修改论坛联盟</font></b></td></tr>
<tr><td>论坛名称：</td><td><input name="id" value="<%=Rs("ID")%>" type="hidden"><input type="text" name="bbsname" size="20" value="<%=Rs("BbsName")%>"></td></tr>
<tr><td>论坛地址：</td><td><input type="text" name="url" size="38" value="<%=Rs("Url")%>"></td></tr>
<tr><td>论坛站长：</td><td><input type="text" name="admin" size="20" value="<%=Rs("Admin")%>">(可以留空)</td></tr>
<tr><td>论坛图片：</td><td><input type="text" name="pic" size="38" value="<%=Rs("Pic")%>">(可以留空)</td></tr>
<tr><td>论坛说明：</td><td><input type="text" name="Readme" size="38" value="<%=Rs("Readme")%>">(可以留空)</td></tr>
<tr><td>图片显示：</td><td><input type="radio" name="ispic" value="yes" <%if Rs("isPic") then%> checked <%end if%>> 是 <input type="radio" name="ispic" value="no" <%if Not Rs("Ispic") then%> checked <%end if%>> 否</td></tr>
<tr><td>通过审核：</td><td><input type="radio" name="pass" value="yes" <%if Rs("pass") then%> checked <%end if%>> <font color=red>√ </font> <input type="radio" name="pass" value="no" <%if Not Rs("pass") then%> checked <%end if%>> ×</td></tr>
<tr bgcolor="#E8F4EF"><td colspan="5" align="center"><input type="submit" value=" 提 交 "> <input type="reset" value=" 重 置 "></td></tr></table>
</form>
<%Rs.close
End Sub
Sub SqlTable
Dim AllTable,i
%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td colspan="4" height="25"><b><font color="#FFFFFF">数据表管理</font></b></td></tr>
<tr><td colspan="4" height="25"><b>说明：</b><br>默认选中的为当前论坛所使用来保存帖子数据的表，<br>删除数据表将同时全部删除该数据表的所有帖子，请注意！！！<br>一般帖子数量超过4万左右，请再添加一个数据表，这样您会发现论坛会快很多。</td></tr></tbody></table><br>
<%=GoForm("AuteSqlTable")%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td colspan="4" height="25"><b><font color="#FFFFFF">设置默认数据表</font></b></td></tr> <tr bgcolor="#D7DAEA"><td height="25"><b>数据表</b></td><td><b>帖数</b></td><td><b>默认</b></td><td><b>操作</b></td></tr>
<%AllTable=Split(BBS94KK.BBSTable(0),",")
For i=0 To uBound(AllTable)
Response.Write"<tr><td height='25'>KK_Bbs"&AllTable(i)&"</td><td>"&BBS94KK.execute("Select Count(BBSID) From[KK_bbs"&AllTable(i)&"]")(0)&"</td><td><input name='Aute' type='radio' value='"&AllTable(i)&"'"
If BBS94KK.BBSTable(1)=AllTable(i) Then
Response.Write" checked></td><td><a onclick=alert('该数据表为默认数据表，不能删除默认的数据表！') href='#'>"
Else
Response.Write"></td><td><a onclick=checkclick('注意！删除将包括数据表的所有帖子！\n\n删除后将不能恢复！您确定要删除吗？') href='Admin_Confirm.asp?Action=DelSqlTable&ID="&AllTable(i)&"'>"
End If
Response.Write"<img src='Images/del.gif' width='15' height='15' border='0' align='absmiddle'> 删除</a></td></tr>"
Next
%>
<tr bgcolor="#E8F4EF"><td colspan="5" align="center"><input type="submit" value=" 提 交 "> <input type="reset" value=" 重 置 "></td></tr></tbody></table>
</form><br>
<%=GoForm("AddSqlTable")%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td height="25"><b><font color="#FFFFFF">增加数据表</font></b></td></tr>
<tr><td colspan="4" height="35">新数据表名称：KK_bbs<input type="text" name="TableName" size="2" value="<%=int(uBound(AllTable)+2)%>" ONKEYPRESS='event.returnValue=(event.keyCode >= 48) && (event.keyCode <= 57);'> （只填写数字，不能和现有的数据表相同。)</td></tr>
<tr bgcolor="#4D65A4"><td align="center" bgcolor="#E8F4EF"><input type="submit" value=" 提 交 "> <input type="reset" value=" 重 置 "></td></tr></tbody></table>
</form>
<%End Sub
Sub LockIp
Response.Write GoForm("AddIp")%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td height="25" colspan="2"><b><font color="#FFFFFF">IP封锁</font></b></td></tr>
<tr><td width="20%" height="25">起始IP：<br>(必填)</td><td width="80%"><input name='StartIp' type='text'></td></tr>
<tr><td height="25">结束IP：<br>(封锁单个IP时不必填写)</td><td><input name='EndIp' type='text'></td></tr>
<tr><td height="25">封禁说明：<br>(最大255个字符)</td><td><input name='Readme' type='text' style="width:90%"></td></tr>
<tr bgcolor="#E8F4EF"><td colspan="2" align="center"><input type="submit" value=" 提 交 "> <input type="reset" value=" 重 置 "></td></tr></tbody></table>
</form><br>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td colspan="3" height="25"><b><font color="#FFFFFF">已经被封的IP记录</font></b></td></tr>
<tr bgcolor="#D7DAEA"><td height="25" align='center' width="40%"><b>网段</b></td><td width="40%"><b>说明</b></td><td align='center' width="20%"><b>操作</b></td></tr>
<%
Set Rs=BBS94KK.Execute("Select StartIp,EndIp,Readme,Lock,ID From[KK_LockIp] where Lock")
If Rs.eof Then
Response.Write"<tr><td colspan='4'>没有封锁记录</td></tr>"
Else
Do while not Rs.eof
Response.Write"<tr><td align='center'>"&BBS94KK.Fun.IpDecode(Rs("StartIp"))&" ～ "&BBS94KK.Fun.IpDecode(Rs("EndIp"))&"</td><td> "&Rs("Readme")&"</td><td align='center'><a href=?Action=EditIp&Id="&rs("ID")&"><img src=Images/edit.gif border=0 align='absmiddle'> 修改<a> <a href=Admin_Confirm.asp?Action=LockIp&ID="&rs("ID")&"><img src=Images/Lock.GIF align='absmiddle' border=0> 解除</a></td></tr>"
Rs.MoveNext
Loop
End If
Rs.Close
%>
</table><br>
<%=GoForm("LockIp")%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td colspan="3" height="25"><b><font color="#FFFFFF">未被封的IP记录</font></b></td></tr>
<tr bgcolor="#D7DAEA"><td height="25" align='center' width="40%"><b>网段</b></td><td width="40%"><b>说明</b></td><td align='center' width="20%"><b>管理</b></td></tr>
<%
Set Rs=BBS94KK.Execute("Select StartIp,EndIp,Readme,Lock,ID From[KK_LockIp] where not Lock")
If Rs.eof Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -