📄 admin_change.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="const.asp"-->
<%
Public boards
Dim Admin_Class,Uid
Call Master_Us()
Uid = Cid(Request("uid"))
Header()
Admin_Class=",8,"
Call Master_Se()
Select Case Request("action")
Case "medals"
Call medals
Case "medalsok"
Call medalsok
Case "announcements"
Call announcements
Case "newsannouncements"
Call newsannouncements
Case "announcementsok"
Call announcementsok
Case "forumlinks"
Call forumlinks
Case "forumlinksok"
Call forumlinksok
Case "adv"
Call adv
Case "advadd"
Call advadd
Case "advaddok"
Call advaddok
Case "advok"
Call advok
Case "advedit"
Call advedit
Case "onlinelist"
Call onlinelist
Case "onlinelistok"
Call onlinelistok
End Select
Sub onlinelistok
Dim ho,newid,i
for each ho in request.form("deleteid")
team.execute("Delete from ["&Isforum&"OnlineTypes] Where ID="&ho)
next
If Request.form("deleteid")="" Then
newid=Split(Replace(Request.Form("newid")," ",""),",")
For i=0 To Ubound(newid)
team.Execute("Update ["&Isforum&"OnlineTypes] set Sorts="&Cid(Request.Form("sorts"&i+1))&",OnlineName='"&Replace(Request.Form("titles"&i+1),"'","")&"',Onlineimg='"&Replace(Request.Form("urls"&i+1),"'","")&"' Where ID="&newid(i))
Next
if Request.Form("newMembers")<>"" and Request.Form("newurl")<>"" Then
team.execute("insert into ["&Isforum&"OnlineTypes] (Sorts,OnlineName,Onlineimg) values ("&Cid(Request.Form("newsorts"))&",'"&Replace(Request.Form("newMembers"),"'","")&"','"&Replace(Request.Form("newurl"),"'","")&"' ) ")
End if
End If
team.SaveLog ("在线图列设置完成")
SuccessMsg " 在线图列设置完成，请等待系统自动返回到 <a href=Admin_Change.asp?action=onlinelist>在线列表定制 </a> 页面 。<meta http-equiv=refresh content=3;url=Admin_Change.asp?action=onlinelist>。 "
End Sub
Sub onlinelist%>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<br>
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<tr class="a1">
<td>技巧提示</td>
</tr>
<tr class="a3">
<td><br>
<ul>
<li>本功能用于自定义首页及主题列表页显示的在线会员分组及图例，只在在线列表功能打开时有效。
</ul>
<ul>
<li>所有未添加显示的用户组成员将不显示在在线列表处。
</ul>
<ul>
<li>用户组图例中请填写图片文件名，并将相应图片文件上传到 Skins/下面的相应风格目录中。
</ul></td>
</tr>
</table>
<br>
<form method="post" action="?action=onlinelistok">
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<tr align="center" class="a1">
<td><input type="checkbox" name="chkall" onClick="checkall(this.form)"> 删</td>
<td>显示顺序</td>
<td>组头衔</td>
<td>用户组图例</td>
</tr>
<%
Dim Rs,Imgs,i,Styleurl
Set Rs = team.execute("Select Styleurl From ["&Isforum&"Style] Where ID= "& INT(team.Forum_setting(18)))
If Not Rs.Eof Then
Styleurl = Rs(0)
Else
Styleurl = "skins/teams"
End If
Rs.close:Set Rs=Nothing
Set Rs = team.execute("Select ID,Sorts,OnlineName,Onlineimg From ["&isforum&"OnlineTypes] Order By Sorts Asc")
If Rs.Eof Then
SuccessMsg " 未找到数据表，请确认数据库已经升级。"
End if
i=0
Do While Not Rs.Eof
i=i+1
If Rs(3)<>"" Then
Imgs = "<img src=../"&Styleurl&"/"&RS(3)&" align=""absmiddle"">"
Else
Imgs = ""
End if
Echo " <tr align=""center""> <td bgcolor=""#FFFFFF""><input Name=""newid"" type=""hidden"" value="&RS(0)&"> <input type=""checkbox"" name=""deleteid"" value="&RS(0)&"></td> "
Echo " <td bgcolor=""#F8F8F8""><input type=""text"" size=""3"" name=""sorts"&i&""" value="&Rs(1)&"></td>"
Echo " <td bgcolor=""#FFFFFF""><input type=""text"" size=""15"" name=""titles"&i&""" value="&Rs(2)&"></td>"
Echo " <td bgcolor=""#F8F8F8"" align=""left""><input type=""text"" size=""40"" name=""urls"&i&""" value="&Rs(3)&"> "
Echo " "&Imgs&"</td></tr>"
Rs.moveNext
Loop
Rs.Close:Set Rs=Nothing
%>
<tr align="center" class="a1">
<td> 新增 </td>
<td>显示顺序</td>
<td>组头衔</td>
<td>用户组图例</td>
</tr>
<tr align="center" class="a3">
<td> </td>
<td> <input type="text" size="3" name="newsorts" value="0"> </td>
<td><select name="newMembers" style="width:100%">
<option value=""> 请选择用户组 </option>
<%
Dim Gs
Set Gs = team.execute("Select ID,GroupName,Members From "&IsForum&"UserGroup Where MemberRank<=1 Order By ID ASC")
Do While Not Gs.Eof
If Gs(2)="注册用户" Then
Echo " <option value="""&Gs(2)&"""> "&Gs(2)&" </option> "
Else
Echo " <option value="""&Gs(1)&"""> "&Gs(1)&" </option> "
End if
Gs.MoveNext
Loop
Gs.Close:Set Gs=Nothing
%>
</select></td>
<td align="left"> <input type="text" size="40" name="newurl" value=""> </td>
</tr>
</table>
<br>
<center>
<input type="submit" name="onlinesubmit" value="提 交">
</center>
</form>
</td>
</tr>
<br>
<br>
<%
End Sub
Sub advedit
Dim Rs
If Uid = "" Or Not IsNumeric(Uid) Then
SuccessMsg " 参数错误。 "
Else
Set Rs = team.execute("Select Titles,Types,Boards,StarTime,StopTime,bodys From ["&Isforum&"AdvList] Where ID="& uid)
If Rs.Eof Then
SuccessMsg " 参数错误。 "
Else
%>
<br>
<Script>
function findobj(n, d) {
var p, i, x;
if(!d) d = document;
if((p = n.indexOf("?"))>0 && parent.frames.length) {
d = parent.frames[n.substring(p + 1)].document;
n = n.substring(0, p);
}
if(x != d[n] && d.all) x = d.all[n];
for(i = 0; !x && i < d.forms.length; i++) x = d.forms[i][n];
for(i = 0; !x && d.layers && i < d.layers.length; i++) x = findobj(n, d.layers[i].document);
if(!x && document.getElementById) x = document.getElementById(n);
return x;
}
</Script>
<BR>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<form method="post" name="settings" action="?action=advaddok&edit=1">
<input type="hidden" name="uid" value="<%=UID%>">
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<tr class="a1">
<td colspan="2">编辑广告 - <%=RS(1)%></td>
</tr>
<tr>
<td width="50%" bgcolor="#F8F8F8" ><b>广告标题(必填):</b><br>
<span class="a3">注意: 广告标题只为识别辨认不同广告条目之用，并不在广告中显示</span></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="advtitle" value="<%=RS(0)%>">
</td>
</tr>
<tr>
<td width="50%" bgcolor="#F8F8F8" valign="top"><b>广告投放范围(必选):</b><br>
<span class="a3">设置本广告投放的页面或论坛范围，可以按住 CTRL 多选，选择“全部”为不限制选择广告投放的范围</span></td>
<td bgcolor="#FFFFFF"><select name="advtargets" size="10" multiple="multiple">
<%
Dim IsOk
If Instr(Rs(2),",")>0 or IsNumEric(Rs(2)) Then
boards = Split(Rs(2),",")
Else
IsOk = Rs(2)
End if
Response.Write "<option value=""all"" "
If IsOk ="all" Then Response.Write "selected=""selected"" "
Response.Write " > > 全部</option> "
Response.Write "<option value=""index"" "
If IsOk ="index" Then Response.Write "selected=""selected"" "
Response.Write " > > 首页</option> "
Call BBsList(0)
%>
</select>
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>生效时间:</b><br>
<span class="a3">设置广告广告结束的时间，格式 yyyy-mm-dd，留空为不限制结束时间</span></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="startime" value="<%=RS(3)%>">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>到期时间:</b><br>
<span class="a3">设置广告广告结束的时间，格式 yyyy-mm-dd，留空为不限制结束时间</span></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="stoptime" value="<%=RS(4)%>">
</td>
</tr>
<tr>
<td width="50%" bgcolor="#F8F8F8" ><b>广告 html 代码:</b><br>
<span class="a3">请直接输入需要展现的广告的 html 代码</span></td>
<td bgcolor="#FFFFFF"><textarea rows="5" name="advcode" cols="40" style="height:70;overflow-y:visible;"><%=RS(5)%></textarea>
</td>
</tr>
</table>
<br>
<center>
<input type="submit" name="advsubmit" value="提 交">
</center>
</form>
<br>
<br>
<% End If
End if
End Sub
Sub advaddok
Dim Bodys,textsize,imagewidth,imageheight,imagealt
If Request.Form("advtitle")&""="" Then SuccessMsg "请输入标题。"
If Request("edit") = 1 Then
If Uid = "" Or Not IsNumeric(Uid) Then
SuccessMsg " 参数错误。 "
Else
team.execute("Update ["&Isforum&"AdvList] set Titles='"&Replace(Request.Form("advtitle"),"'","")&"',bodys='"&Replace(Request.Form("advcode"),"'","")&"',Boards='"&Replace(Request.form("advtargets")," ","")&"',StarTime='"&Replace(Request.form("startime")," ","")&"',StopTime='"&Replace(Request.form("stoptime")," ","")&"' Where ID="& UID )
End if
Else
Select Case Request.Form("advnewstyle")
Case "code"
If Request.Form("advcode")&""="" Then
SuccessMsg "请输入内容。"
Else
Bodys = Request.Form("advcode")
End If
Case "text"
If Request.Form("textlink")&""="" or Request.Form("texttitle")&""="" Then
SuccessMsg "请输入必填内容。"
End if
If Request.Form("textsize") <> "" Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -