<% Dim Content,Action,Page_Url Action=Request.querystring("Action") If Action <> "" Then Page_Url = "?Action="&Action Else Page_Url = "" End If If Action="mygrade" then MNBoard.Position=MNBoard.Position&" → 用户控制面版" MNBoard.Head "Help.asp"&Page_Url,"","查看等级权限" Else MNBoard.Head "Help.asp"&Page_Url,"","查看Pantone China论坛帮助" End if If Len(Action)>13 Then MNBoard.GotoErr(1) Select Case lcase(Action) Case "what" what Case "upload" Upload Case "sms" Sms Case"forget" Forget Case"grade" Grade Case"usersetup" UserSetup Case"say" Say Case"ubb" Ubb Case"MNBoard" Info Case"gradestring","mygrade" GradeString Case Else Main End Select MNBoard.Footer() Set MNBoard =Nothing Sub Main Content="

====== 色彩论坛帮助目录 ======
Pantone china Pantone china论坛帮助
关于用户等级的帮助
关于遗忘密码的帮助
关于文件上传的帮助
关于PANTONE论坛信箱的帮助
关于更改信息的帮助
关于发表帖子的帮助
关于UBB功能的帮助

" MNBoard.ShowTable "色彩技术论坛帮助",Content End Sub Sub GradeString() Dim Rs,ID,GradeName,Pic,Spic,Grouping,EssayNum,Title Dim S,GS,T,Y,N ID=MNBoard.Checknum(request.querystring("ID")) Title="等级权限" If ID=0 Then If Not MNBoard.FoundUser Then MNBoard.GoToerr(26) Else Title="我的等级权限" Response.Write MNBoard.ReadSkins("用户控制面版") ID=SESSION(CacheName & "MyInfo")(15) End If End If Y="" Set Rs=MNBoard.Execute("Select ID,GradeName,PIC,Spic,Strings,EssayNum,Grouping,Flag From [i_Grade] where ID="&ID&"") If Not Rs.eof Then Gs=Split(Rs(4),"|") GradeName=Rs(1) Pic=MNBoard.Fun.GetSqlStr(Rs(2)) Spic=MNBoard.Fun.GetSqlStr(Rs(3)) Grouping=Rs(6) EssayNum=MNBoard.Fun.GetSqlStr(Rs(5)) Else MNBoard.GotoErr(1) End If Rs.close Set Rs=Nothing S=MNBoard.Row("等级名称:",""&GradeName&"","65%","") If Grouping=0 Then S=S&MNBoard.Row("必需达到帖数:",EssayNum&" 篇","65%","") If len(Pic)>3 Then T="" Else T="无" S=S&MNBoard.Row("等级图片:",T,"65%","18px") If len(SPic)>3 Then T="" Else T="无" S=S&MNBoard.Row("身份标志图片",T,"65%","18px") S=S&"
基本权限
" S=S&MNBoard.Row("帖子显示名字颜色","
 
","65%","") If Gs(1)="1" Then T=Y Else T="×" S=S&MNBoard.Row("是否可以修改自己资料:",T,"65%","") If Gs(2)="1" Then T=Y Else T="×" S=S&MNBoard.Row("是否可以自定义头衔:",T,"65%","") S=S&MNBoard.Row("发帖子最大的字符数:",""&Gs(3)&" 字节","65%","") If Gs(4)="1" Then T=Y Else T="×" S=S&MNBoard.Row("是否可以发表醒目标题:",T,"65%","") If Gs(5)="1" Then T=Y Else T="×" S=S&MNBoard.Row("是否可以参加投票活动:",T,"65%","") If Gs(6)="1" Then T=Y Else T="×" S=S&MNBoard.Row("是否可以发表投票主题:",T,"65%","") If Gs(8)="1" Then T=Y Else T="×" S=S&MNBoard.Row("是否可以上传:",T,"65%","") S=S&MNBoard.Row("一天的上传个数:",""&GS(9)&" 个","65%","") S=S&MNBoard.Row("每个上传大小:",""&GS(10)&" KB","65%","") If Gs(11)="1" Then T=Y Else T="×" S=S&MNBoard.Row("是否可以上传头像:",T,"65%","") S=S&MNBoard.Row("PANTONE论坛信箱最大条数:",""&GS(12)&" 条","65%","") S=S&MNBoard.Row("限制每天发送信件的次数:",""&GS(7)&" 次","65%","") S=S&MNBoard.Row("限制每封信字符数",""&GS(13)&" 字节","65%","") If Gs(14)="1" Then T=Y Else T="×" S=S&MNBoard.Row("是否可以搜索PANTONE论坛:",T,"65%","") If Gs(15)="1" Then T=Y Else T="×" S=S&MNBoard.Row("是否可以查看他人信息:",T,"65%","") If Gs(16)="1" Then T=Y Else T="×" S=S&MNBoard.Row("可以不受时间限制编辑自己帖子:",T,"65%","") If Gs(17)="1" Then T=Y Else T="×" S=S&MNBoard.Row("开启可以删除自己的帖子:",T,"65%","") S=S&"
管理权限
" If Gs(18)="1" Then T=Y Else T="×" S=S&MNBoard.Row("可以编辑帖子:",T,"65%","") If Gs(19)="1" Then T=Y Else T="×" S=S&MNBoard.Row("编辑帖子可以不留下蛛迹:",T,"65%","") If Gs(20)="1" Then T=Y Else T="×" S=S&MNBoard.Row("可以删除帖子:",T,"65%","") If Gs(21)="1" Then T=Y Else T="×" S=S&MNBoard.Row("可以屏蔽帖子:",T,"65%","") If Gs(22)="1" Then T=Y Else T="×" S=S&MNBoard.Row("可以移动帖子:",T,"65%","") If Gs(23)="1" Then T=Y Else T="×" S=S&MNBoard.Row("可以提升主题:",T,"65%","") If Gs(24)="1" Then T=Y Else T="×" S=S&MNBoard.Row("可以沉底主题:",T,"65%","") If Gs(25)="1" Then T=Y Else T="×" S=S&MNBoard.Row("可以(设/解)置顶主题:",T,"65%","") If Gs(26)="1" Then T=Y Else T="×" S=S&MNBoard.Row("可以(设/解)区置顶主题:",T,"65%","") If Gs(27)="1" Then T=Y Else T="×" S=S&MNBoard.Row("可以(设/解)总置顶主题:",T,"65%","") If Gs(28)="1" Then T=Y Else T="×" S=S&MNBoard.Row("可以(设/解)精华主题:",T,"65%","") If Gs(29)="1" Then T=Y Else T="×" S=S&MNBoard.Row("可以(设/解)锁定主题:",T,"65%","") If Gs(30)="1" Then T=Y Else T="×" S=S&MNBoard.Row("可以进行评帖奖罚操作:",T,"65%","") If Gs(31)="1" Then T=Y Else T="×" S=S&MNBoard.Row("可以不需要投票可查投票详情:",T,"65%","") If Gs(32)="1" Then T=Y Else T="×" S=S&MNBoard.Row("可以编辑投票的选项:",T,"65%","") If Gs(33)="1" Then T=Y Else T="×" S=S&MNBoard.Row("可以不受特殊帖限制:",T,"65%","") If Gs(34)="1" Then T=Y Else T="×" S=S&MNBoard.Row("可以发布pantonechina论坛公告:",T,"65%","") If Gs(35)="1" Then T=Y Else T="×" S=S&MNBoard.Row("可以删除评帖记录:",T,"65%","") S=S&"
高级管理权限
" If Gs(36)="1" Then T=Y Else T="×" S=S&MNBoard.Row("可以查看用户IP:",T,"65%","") If Gs(37)="1" Then T=Y Else T="×" S=S&MNBoard.Row("可以查看pantonechina论坛日志:",T,"65%","") 'If Gs(38)="1" Then T=Y Else T="×" 'S=S&MNBoard.Row("开启可以批量操作主题:",T,"65%","") If lcase(Action)<>"mygrade" Then S=S&"
【返回】【返回帮助目录】
" End If MNBoard.ShowTable Title,S End Sub Sub Grade() Dim ARs,i,S,AdminGrade,EssayGrade,otherGrade,EssayNum,Temp ARs=MNBoard.SetGradeInfoCache() For i=0 To Ubound(ARs,2) If ARs(1,i)=0 Then EssayNum="必需达到帖数:"&ARs(5,i)&"" Else EssayNum="" Temp=ARs(4,i) If Temp<>"" Then Temp="" S="
"&ARs(2,i)&"
"&Temp&"
"&EssayNum&"
" If ARs(7,i)=2 Then AdminGrade=AdminGrade&S ElseIf ARs(7,i)=1 Then otherGrade=otherGrade&S Else EssayGrade=EssayGrade&S End If Next S="
系统等级组
"&AdminGrade&"
特殊等级组
"&otherGrade&"
常规等级组
"&EssayGrade S=S&"
【返回帮助目录】
" MNBoard.ShowTable"pantonechina论坛等级",S End sub Sub Upload() Content="

====== pantonechina论坛上传帮助 ======
  • 发表帖子时,点击功能按纽上的“浏览”找到要上传的文件,选定后,然后点击“上传”按纽即可上传。
  • 每日的上传大小和次数限制,本Pantone china论坛根据每个会员等级做不同的规定。
  • Pantone china允许上传的文件:"&Replace(MNBoard.Info(34)&"|"&MNBoard.Info(35),"|","、")&"
    【返回帮助目录】
  • " MNBoard.ShowTable"Pantone china论坛帮助",Content End Sub Sub Sms() Content="

    ====== pantone china论坛信箱帮助 ======
    pantone china论坛信箱功能也相当于留言,所不同的是他可以在用户登录社区的情况下即时收发消息,方便简洁。
    【返回帮助目录】
    " MNBoard.ShowTable"PANTONE论坛帮助",Content End sub Sub Forget() Content="

    ====== 关于遗忘密码的帮助 ======
    【返回帮助目录】
    " MNBoard.ShowTable"pantone论坛帮助",Content End sub Sub What() Content="

    ====== PANTONE官方论坛常规帮助 ======
    "&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ "
    【返回帮助目录】
    " MNBoard.ShowTable"PANTONE论坛帮助",Content End sub Sub UserSetup() Content="

    ====== 更改个人信息帮助 ======
    "&_ "只有登录用户才能进行此项操作,原注册用户名不可修改,请在PANTONE论坛顶部“助手”下找到“修改资料”进入,可以更新的信息如下:"&_ "
  • 密码:登录PANTONE论坛所用"&_ "
  • Email地址:必须填入正确合法的邮箱地址"&_ "
  • 生日:在你的生日那天在PANTONE论坛会出现你生日的提示(面向所有会员)"&_ "
  • 个人主页:可选项(有的话建议填上,让大家见识下)"&_ "
  • OICQ:可选项(为方便联系,建议填上)"&_ "
  • 个性头像:所选择头像将在帖子中出现,可自行连接图片url或QQ形象作为头像"&_ "
  • 个性签名:支持ubb,如果填入,将出现在文章的结尾

    【返回帮助目录】
  • " MNBoard.ShowTable"PANTONE论坛帮助",Content End sub Sub Say() Content="

    ====== 发表帖子帮助 ======
    "&_ "
    【返回帮助目录】
    " MNBoard.ShowTable"PANTONE论坛帮助",Content End Sub Sub Ubb() Content="

    ====== UBB标签帮助 ======
    "&_ "
    " MNBoard.ShowTable"PANTONE论坛帮助",Content End sub %>