📄 admin1.asp

📁 网趣系统时尚版8（支付宝）
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!--#include file="Check.Asp"-->
<%
Dim Action,ID
ID=Request.QueryString("ID")
If ID="" Then ID=0

Action=Request.QueryString("Action")
Select case Action
Case"ExecuteSql"
	ExecuteSql
Case"SqlTable"
	SqlTable
Case"SaveAuteSqlTable"
	Response.flush
	SaveAuteSqlTable
Case"SaveAddSqlTable"
	Response.flush
	SaveAddSqlTable
Case"DelSqlTable"
	Response.flush
	DelSqlTable
Case"CompressData"
	Call CompressData()
Case"BackupDate"
	Call BackupDate()
Case"RestoreData"
	Call RestoreData()
Case"SpaceSize"
	SpaceSize
Case"SaveLock"
	SaveLock
Case"DelIp"
	DelIp
Case"SaveAddip"
	SaveAddip
Case"SaveEditip"
	SaveEditip
Case"EditIp"
	EditIp
Case"LockIp"
	LockIp
Case"SaveAdd"
	SaveAdd
Case"Edit"
	Edit
Case"SaveEdit"
	SaveEdit
Case"Update"
	UpdateLink
Case"Del"
	DelLink
Case Else
	Link
End select
AdminFooter()

Sub Link
	Dim Rs,I%>
	<form method=POST name=form style='margin:0' action=?Action=SaveAdd>
	<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
	<tr bgcolor="#CCCCCC"><td height="25" colspan="2"><b><font color="#FFFFFF">添加论坛联盟</font></b></td>
	</tr>
	<tr bgcolor="#DEDEDE"><td>论坛名称：</td>
	<td><input type="text" name="bbsname" size="20"></td></tr>
	<tr bgcolor="#DEDEDE"><td>论坛地址：</td>
	<td><input type="text" name="url" size="38"></td></tr>
	<tr bgcolor="#DEDEDE"><td>论坛图片：</td>
	<td><input type="text" name="pic" size="38">(留空则显示文字连接)</td></tr>
	<tr bgcolor="#DEDEDE"><td>论坛说明：</td>
	<td><input type="text" name="Readme" size="38">(可以留空)</td></tr>
	<tr bgcolor="#DEDEDE"><td>图片显示：</td>
	<td><input type="radio" name="ispic" value="yes"  checked>  是 <input type="radio" name="ispic" value="no" > 否</td></tr>
	<tr bgcolor="#CCCCCC"><td colspan="5"  align="center"><input type="submit" value=" 提 交 ">&nbsp;&nbsp;<input type="reset" value=" 重 置 "></td>
</tr></table>
	</form><br>
	<form method=POST name=form style='margin:0' action=?Action=Update>
	<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
	<tr bgcolor="#CCCCCC"><td height="25" ><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=YxBBs.Execute("Select ID,Ispic,Orders,BbsName,Url,Readme From[YX_Link] order by orders")
	Do while Not Rs.eof
		i=i+1
	%>
	<tr bgcolor="#DEDEDE"><td><a href="<%=Rs("Url")%>" target="_blank" title="<%=Rs("Readme")%>"><%=Rs("BbsName")%></a></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"><a href="?Action=Edit&ID=<%=Rs("ID")%>"><img src="../images/edit.gif" width="18" height="13" border="0" align="absmiddle"> 编辑</a> <a onclick=checkclick('删除后将不能恢复！您确定要删除吗？') href="?Action=Del&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="#CCCCCC"><td colspan="6"  align="center"><input type="submit" value=" 更 新 ">&nbsp;&nbsp;<input type="reset" value=" 重 置 "></td></tr></table></form>
<%
End Sub

Sub Edit
	Set Rs=YxBBs.Execute("Select ID,Orders,IsPic,Pic,BbsName,Url,Readme From[YX_Link]where ID="&ID&"")
	IF Rs.eof Then
		Call GoBack("这条论坛联盟不存在！")
		Exit Sub
	End If
	%>
	<form method=POST name=form style='margin:0' action=?Action=SaveEdit>
	<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
	<tr bgcolor="#CCCCCC"><td height="25" colspan="2"><b><font color="#FFFFFF">修改论坛联盟</font></b></td>
	</tr>
	<tr bgcolor="#DEDEDE"><td>论坛名称：</td>
	<td><input name="id" value="<%=Rs("ID")%>" type="hidden"><input type="text" name="bbsname" size="20" value="<%=Rs("BbsName")%>"></td></tr>
	<tr bgcolor="#DEDEDE"><td>论坛地址：</td>
	<td><input type="text" name="url" size="38" value="<%=Rs("Url")%>"></td></tr>
	<tr bgcolor="#DEDEDE"><td>论坛图片：</td>
	<td><input type="text" name="pic" size="38" value="<%=Rs("Pic")%>">(可以留空)</td></tr>
	<tr bgcolor="#DEDEDE"><td>论坛说明：</td>
	<td><input type="text" name="Readme" size="38" value="<%=Rs("Readme")%>">(可以留空)</td></tr>
	<tr bgcolor="#DEDEDE"><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 bgcolor="#CCCCCC"><td colspan="5"  align="center"><input type="submit" value=" 提 交 ">&nbsp;&nbsp;<input type="reset" value=" 重 置 "></td></tr></table>
	</form>
	<%Rs.close
End Sub

Sub UpdateLink
	Dim ID,I,Orders,IsPic
	For i=1 to Request.form("id").count
	ID = Replace(Request.form("id")(i),"'","")
	Orders = Replace(Request.form("orders")(i),"'","")
	IsPic= Replace(Request.form("ispic"&i&""),"'","")
	IF Not isnumeric(ID) or Not isnumeric(Orders) Then
		Call GoBack("","请用数字填写!")
		Exit Sub
	End IF
	YxBBs.Execute("Update [YX_Link]Set Orders="&Orders&",IsPic="&IsPic&" where ID="&ID&"")
	Next
	Cache.name="Link_List":Cache.clean()
	Call Suc("","更新论坛联盟信息成功！","?")
End Sub

Sub SaveAdd
	Dim BbsName,Url,Pic,Readme,Admin,Orders,IsPic
	BbsName=YxBBs.Fun.GetStr("bbsname")
	Url=YxBBs.Fun.ubbg(YxBBs.Fun.GetStr("url"))
	Pic=YxBBs.Fun.GetStr("pic")
	Readme=YxBBs.Fun.GetStr("Readme")
	IsPic=YxBBs.Fun.GetStr("ispic")
	If BbsName=""  or url=""  then
		Call GoBack("","")
		Exit Sub
	ElseIf Not YxBBs.Fun.CheckName(BbsName) Or (Admin<>"" And Not YxBBs.Fun.CheckName(Admin)) Then
		Call GoBack("","请不要使用了非法字符")
		Exit Sub
	End if
	Orders=YxBBs.execute("select Count(ID) From[YX_Link]")(0)
	Orders=Int(Orders+1)
	YxBBs.execute("insert into[YX_Link](Bbsname,Url,Pic,Readme,Orders,IsPic)values('"&BbsName&"','"&Url&"','"&Pic&"','"&Readme&"',"&Orders&","&IsPic&")")
	Cache.name="Link_List":Cache.clean()
	Call Suc("","添加论坛联盟连接成功！","?")
End Sub

Sub SaveEdit
	Dim BbsName,Url,Pic,Readme,ID,IsPic
	ID=YxBBs.Fun.GetStr("id")
	BbsName=YxBBs.Fun.GetStr("bbsname")
	Url=YxBBs.Fun.ubbg(YxBBs.Fun.GetStr("url"))
	Pic=YxBBs.Fun.GetStr("pic")
	Readme=YxBBs.Fun.GetStr("Readme")
	IsPic=YxBBs.Fun.GetStr("ispic")	
	If BbsName=""  or url=""  then
		Call GoBack("","")
		Exit Sub
	ElseIf Not YxBBs.Fun.CheckName(BbsName) Then
		Call GoBack("","请不要使用了非法字符")
		Exit Sub
	End if
	YxBBs.execute("Update [YX_Link]Set Url='"&Url&"',Pic='"&Pic&"',BbsName='"&BbsName&"',Readme='"&Readme&"',IsPic="&IsPic&" where ID="&ID&"")
	Cache.name="Link_List":Cache.clean()
	Call Suc("","修改论坛联盟连接成功！","?")
End Sub

Sub DelLink
	Dim ID
	ID=Request.QueryString("ID")
	IF  Not isnumeric(ID) Then
		Call GoBack("","提交的参数不正确！")
	Else
		YxBBs.execute("delete from [YX_link] where ID="&ID&"")
		Cache.name="Link_List":Cache.clean()
		Call Suc("","删除论坛联盟连接成功！","?")
	End If
End Sub
%>


<%Sub LockIp%>
	<form method=POST name=form style='margin:0' action=?Action=SaveAddip>
	<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
	<tr bgcolor="#CCCCCC"><td height="25" colspan="2"><b><font color="#FFFFFF">IP封锁</font></b></td>
	</tr>
	<tr bgcolor="#DEDEDE"><td width="20%" height="25">起始IP：<br>
	  (必填)</td><td width="80%"><input name='StartIp' type='text'></td></tr>
	<tr bgcolor="#DEDEDE"><td height="25">结束IP：<br>
	  (封锁单个IP时不必填写)</td><td><input name='EndIp' type='text'></td></tr>
	<tr bgcolor="#DEDEDE"><td height="25">封禁说明：<br>
	  (最大255个字符)</td><td><input name='Readme' type='text' style="width:90%"></td></tr>
<tr bgcolor="#CCCCCC"><td colspan="2" align="center"><input type="submit" value=" 提 交 ">&nbsp;&nbsp;<input type="reset" value=" 重 置 "></td></tr></table>
	</form><br>
	<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
	<tr bgcolor="#CCCCCC"><td height="25"  colspan="3"><b><font color="#FFFFFF">已经被封的IP记录</font></b></td>
	</tr>
	<tr bgcolor="#DEDEDE"><td width="40%" height="25" align='center'><b>网段</b></td>
	<td width="40%"><b>说明</b></td>
	<td width="20%" align='center'><b>操作</b></td>
	</tr>
	<% 
	Set Rs=YxBBs.Execute("Select StartIp,EndIp,Readme,Lock,ID From[YX_LockIp] where Lock")
	If Rs.eof Then
	Response.Write"<tr bgcolor=""#DEDEDE""><td colspan='4'>没有封锁记录</td></tr>"
	Else
	Do while not Rs.eof
		Response.Write"<tr bgcolor=""#DEDEDE""><td align='center'>"&YxBBs.Fun.IpDecode(Rs("StartIp"))&" - "&YxBBs.Fun.IpDecode(Rs("EndIp"))&"</td><td>&nbsp;"&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=?Action=SaveLock&ID="&rs("ID")&"><img src=../images/Lock.GIF align='absmiddle' border=0> 解除</a></td></tr>"
	Rs.MoveNext
	Loop
	End If
	Rs.Close
	%>
</table><br>
	<form method=POST name=form style='margin:0' action=?Action=LockIp>
	<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
	<tr bgcolor="#CCCCCC"><td height="25"  colspan="3"><b><font color="#FFFFFF">未被封的IP记录</font></b></td>
	</tr>
	<tr bgcolor="#DEDEDE"><td width="40%" height="25" align='center'><b>网段</b></td>
	<td width="40%"><b>说明</b></td>
	<td width="20%" align='center'><b>管理</b></td>
	</tr>
	<% 
	Set Rs=YxBBs.Execute("Select StartIp,EndIp,Readme,Lock,ID From[YX_LockIp] where not Lock")
	If Rs.eof Then
	Response.Write"<tr bgcolor=""#DEDEDE""><td colspan='4'>没有IP记录</td></tr>"
	Else
12 3 下一页
💿 文件大小 3853 K
👤 上传用户 wlflove123
📂 所属分类其他行业
🏷️ 相关标签

#支付宝
⌨️ 快捷键说明

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