📄 admin_change.asp

📁 一个asp写的论坛源代码,论坛所需要的功能都有
💻 ASP
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
</table>
<br>
<form method="post" action="?action=announcementsok">
  <table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
    <tr class="a1">
      <td colspan="7">论坛公告编辑</td>
    </tr>
    <tr align="center" class="a3">
      <td width="48"><input type="checkbox" name="chkall" onClick="checkall(this.form)">
        删?</td>
      <td>作者</td>
      <td>标题</td>
      <td>内容</td>
      <td>起始时间</td>
      <td>终止时间</td>
    </tr>
    <%
	Dim Rs
	Set Rs=team.execute("Select ID,Affichetitle,Affichecontent,Afficheman,Afficheinfo,Lifetime,Affichetime From ["&Isforum&"Affiche] order By Id Asc")
	Do While Not Rs.Eof
	%>
    <tr align="center">
      <td bgcolor="#F8F8F8"><input type="checkbox" name="deleteid" value="<%=RS(0)%>"></td>
      <td bgcolor="#FFFFFF"><a href="./Profile.asp?username=<%=RS(3)%>" target="_blank"><%=RS(3)%></a></td>
      <td bgcolor="#F8F8F8"><a href="?action=announcements&uid=<%=rs(0)%>&edit=1" title="点击编辑此公告"><span Style="<%=Rs(4)%>"><%=RS(1)%></span></a></td>
      <td bgcolor="#FFFFFF"><a href="?action=announcements&uid=<%=rs(0)%>&edit=1" title="点击编辑此公告"><%=CutStr(RS(2),15)%></a></td>
      <td bgcolor="#F8F8F8"><%=RS(6)%></td>
      <td bgcolor="#FFFFFF"><% If RS(5)&"" = "" Then:Echo "无限制": Else:Echo RS(4):End If%></td>
    </tr>
    <%	Rs.MoveNext
	Loop
	Rs.close:set Rs=nothing%>
  </table>
  <br>
  <center>
    <input type="submit" name="announcesubmit" value="提 交">
  </center>
</form>
<br>
<%
If request("edit")=1 Then
	Dim Rs1
	If UID="" Or Not IsNumeric(UID) Then
		SuccessMsg " 参数错误。"
	Else
		Set Rs1=team.execute("Select ID,Affichetitle,Affichecontent,Afficheman,Afficheinfo,Lifetime,Affichetime From ["&Isforum&"Affiche] Where ID="& UID)
		If Rs1.eof Then 
			SuccessMsg " 参数错误。"
		Else
			Echo " <form method=""post"" action=""?action=newsannouncements&edit=1&uid="&UID&"""> "
		End If
	End if
Else
	Echo "<form method=""post"" action=""?action=newsannouncements"">"
End If
If request("edit")=1 Then
%>
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
  <tr class="a1">
    <td colspan="2">编辑论坛公告</td>
  </tr>
  <tr>
    <td width="40%" bgcolor="#F8F8F8"><b>标题:</b></td>
    <td width="60%" bgcolor="#FFFFFF"><input type="text" size="45" name="newsubject" Value = "<%=RS1(1)%>"></td>
  </tr>
  <tr>
    <td width="40%" bgcolor="#F8F8F8" valign="top"><b>标题颜色:</b><BR>
      <span class="a3">支持使用CSS效果</span></td>
    <td width="60%" bgcolor="#FFFFFF"><input type="text" size="45" name="newcss" Value = "<%=RS1(4)%>"></td>
  </tr>
  <tr>
    <td width="40%" bgcolor="#F8F8F8"><b>过期时间:</b><br>
      格式: yyyy-mm-dd</td>
    <td width="60%" bgcolor="#FFFFFF"><input type="text" size="45" name="newendtime" Value = "<%=RS1(5)%>">
      留空为不限制</td>
  </tr>
  <tr>
    <td width="40%" bgcolor="#F8F8F8" valign="top"><b>内容:</b><br>
      公告内容支持UBB代码<BR>
      UBB代码使用请查看<a href="../Help.asp?page=mise#1"> <B>UBB指南</B> </a>
    <td width="60%" bgcolor="#FFFFFF"><textarea name="newmessage" cols="60" rows="10"><%=Server.htmlEncode(RS1(2))%></textarea></td>
  </tr>
</table>
<%Else%>
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
  <tr class="a1">
    <td colspan="2">添加论坛公告</td>
  </tr>
  <tr>
    <td width="40%" bgcolor="#F8F8F8"><b>标题:</b></td>
    <td width="60%" bgcolor="#FFFFFF"><input type="text" size="45" name="newsubject"></td>
  </tr>
  <tr>
    <td width="40%" bgcolor="#F8F8F8" valign="top"><b>标题颜色:</b><BR>
      <span class="a3">支持使用CSS效果</span></td>
    <td width="60%" bgcolor="#FFFFFF"><input type="text" size="45" name="newcss"></td>
  </tr>
  <tr>
    <td width="40%" bgcolor="#F8F8F8"><b>过期时间:</b><br>
      格式: yyyy-mm-dd</td>
    <td width="60%" bgcolor="#FFFFFF"><input type="text" size="45" name="newendtime">
      留空为不限制</td>
  </tr>
  <tr>
    <td width="40%" bgcolor="#F8F8F8" valign="top"><b>内容:</b><br>
      公告内容支持UBB代码<BR>
      UBB代码使用请查看<a href="../Help.asp?page=mise#1"> <B>UBB指南</B> </a>
    <td width="60%" bgcolor="#FFFFFF"><textarea name="newmessage" cols="60" rows="10"></textarea></td>
  </tr>
</table>
<%End if%>
<br>
<center>
<input type="submit" name="addsubmit" value="提 交">
</form>
<br>
<br>
<%
End Sub

Sub medalsok
	Dim MedalName,MedalSet,Medalimg
	Dim ho,newid,i
	for each ho in request.form("deleteid")
		team.execute("Delete from ["&Isforum&"Medals] 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&"Medals] set MedalName='"&Request.Form("MedalName"&i+1)&"',Medalimg='"&Request.Form("Medalimg"&i+1)&"',MedalSet="&Cid(Request.Form("MedalSet"&i+1))&" Where ID="&newid(i))
		Next
		If Request.Form("newname")<>"" and Request.Form("newimage")<>"" Then
			team.execute("insert into ["&Isforum&"Medals] (MedalName,Medalimg,MedalSet) values ('"&Request.Form("newname")&"','"&Request.Form("newimage")&"',"&CID(Request.Form("availablenew"))&" ) ")
		End if
	End If
	team.SaveLog ("勋章设置")
	SuccessMsg " 勋章设置完成 。 "
End Sub

Sub medals	
%>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
  <tr class="a1">
    <td>技巧提示</td>
  </tr>
  <tr class="a4">
    <td><br>
      <ul>
        <li>本功能用于设置可以颁发给用户的勋章信息，勋章图片中请填写图片文件名，并将相应图片文件上传到 ../images/plus 目录中。
      </ul></td>
  </tr>
</table>
<br>
<form method="post" action="?action=medalsok">
  <table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
    <tr class="a1">
      <td colspan="5">勋章编辑</td>
    </tr>
    <tr align="center" class="a3">
      <td><input type="checkbox" name="chkall" class="a4" onClick="checkall(this.form, 'delete')">
        删?</td>
      <td>名称</td>
      <td>图片地址</td>
      <td>勋章图片</td>
      <td>可用</td>
    </tr>
    <%
	Dim Rs,i
	i=0
	Set Rs=team.execute("Select ID,MedalName,Medalimg,MedalSet From ["&Isforum&"Medals] Order By ID asc")
	Do While Not Rs.Eof
		i = i+1
	%>
    <tr bgcolor="#FFFFFF" align="center">
      <td bgcolor="#F8F8F8" width="48"><input type="checkbox" name="deleteid" value="<%=RS(0)%>">
        <Input Name="newid" type="hidden" value="<%=RS(0)%>"></td>
      <td bgcolor="#FFFFFF"><input type="text" size="30" name="MedalName<%=i%>" value="<%=RS(1)%>"></td>
      <td bgcolor="#F8F8F8"><input type="text" size="30" name="Medalimg<%=i%>" value="<%=RS(2)%>"></td>
      <td bgcolor="#FFFFFF"><img src="../images/plus/<%=RS(2)%>" align="absmiddle"> </td>
      <td bgcolor="#F8F8F8"><input type="checkbox" name="MedalSet<%=i%>" value="1" <%If Rs(3)=1 then%>checked<%end if%>></td>
    </tr>
    <%
		Rs.MoveNext
	Loop
	Rs.close:Set Rs=Nothing
	%>
    <tr>
      <td colspan="5" class="a4" height="2"></td>
    </tr>
    <tr bgcolor="#F8F8F8" align="center">
      <td>新增:</td>
      <td><input type="text" size="30" name="newname"></td>
      <td><input type="text" size="30" name="newimage"></td>
      <td>&nbsp;</td>
      <td><input type="checkbox" name="availablenew" value="1"></td>
    </tr>
  </table>
  <br>
  <center>
    <input type="submit" name="medalsubmit" value="提 交">
  </center>
</form>
<%
End Sub
Sub BBsList(V)
	Dim SQL,ii,RS,i
	Set Rs=Team.Execute("Select ID,BBSname,Followid From "&IsForum&"Bbsconfig Where Followid="&V&" Order By SortNum")
	Do While Not RS.Eof
		If RS(2)=0 Then 
			Echo "<optgroup label="""&Rs(1)&""">"
		Else
			Echo "<option value="&RS(0)&" " 
			If Isarray(boards) Then
				for i=0 to ubound(boards)
					If RS(0) = int(boards(i)) Then Echo "selected=""selected"" " 
				next
			end if
			Echo " >"&String(ii,"　") & RS(1)&"</option>"
		End if
		ii=ii+1
		BBsList RS(0)
		ii=ii-1
		RS.MoveNext
	loop
	Rs.close: Set Rs = Nothing
End Sub

Sub Menus()
	Dim SQL,RS,Style,S,T,sty
	Set Rs=team.Execute("Select ID,Name,url,followid,SortNum,Newtype From "&IsForum&"Menu Where Followid=0 Order By SortNum")
	If Rs.Eof Then
		Echo "<BR><ul><center> 目前没有添加任何菜单 </center></ul> "
	End if
	Do While Not RS.Eof
		Echo "<tr class=""a4"" align=""center""><td width=""10""> <Input Name=UID value="&RS(0)&" type=hidden> <input type=""checkbox"" name=""deleteid"" value="&RS(0)&"></td><td width=""100""> 排序：  <input type=text name=SortNum Value="&RS(4)&" Size=""1""> </td><td width=""50%"" align=""left""> ┝ <a target=_blank href=../"&RS(2)&"><b>"&RS(1)&"</b></a> </td><td> "
		If Rs(5)=1 Then	
			Echo "前台菜单"
		Else
			Echo "后台菜单"
		End if
		Echo " </td><td> <a href=""?action=menuadd&fid="&RS(0)&"&Mid="&Rs(5)&""" title=""添加本分类或下级菜单"">[添加]</a> <a href=""?action=menuadd&uid="&RS(0)&"&edit=1&Mid="&Rs(5)&""" title=""编辑本菜单设置"">[编辑]</a> </td></tr>"
		Call Menus_1(Rs(0))
		Echo " "
		RS.MoveNext
	loop
	RS.Close:Set Rs = Nothing
End Sub

Sub Menus_1(a)
	Dim SQL,RS,Style,S,T,sty
	Set Rs=team.Execute("Select ID,Name,url,followid,SortNum,Newtype From "&IsForum&"Menu Where Followid="&a&" Order By SortNum")
	Do While Not RS.Eof
		Echo "<tr class=""a4"" align=""center""><td width=""10""> <Input Name=UID value="&RS(0)&" type=hidden> <input type=""checkbox"" name=""deleteid"" value="&RS(0)&"></td><td width=""100""> 排序：  <input type=text name=SortNum Value="&RS(4)&" Size=""1""> </td><td width=""50%"" align=""left"">　　 ┕<a target=_blank href=../"&RS(2)&"><b>"&RS(1)&"</b></a> </td><td> "
		If Rs(5)=1 Then	
			Echo "前台菜单"
		Else
			Echo "后台菜单"
		End if
		Echo " </td><td> <a href=""?action=menuadd&uid="&RS(0)&"&edit=1&Mid="&Rs(5)&""" title=""编辑本菜单设置"">[编辑]</a> </td></tr>"
		Call Menus_1(Rs(0))
		Echo " "
		RS.MoveNext
	loop
	RS.Close:Set Rs = Nothing
End Sub

footer()
%>
上一页 1 2 34
⌨️ 快捷键说明

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