📄 sysadm_point.asp

📁 功能非常完整的校友录
💻 ASP
字号:
<%response.expires=0%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp" -->
<!--#include file=char.asp-->
<!--#include file=checkuser.asp-->
<title><%=SchoolmateName%>--管理页面</title>
<link rel="stylesheet" type="text/css" href="txl.css">

<body alink=#333333 vlink=#333333 link=#333333 topmargin=0 bgcolor=<%=bodycolor%>>
<%

dim plist(20)

	if  issystemadmin(0)=false or session("adminlogin")<>"OK" then
		Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=sysadm_index.asp target=_top>登陆</a>后进入。"
		call Error(errmsg)
	else
		call main()
		set rs=nothing
		call endconnection()
end if

	sub main()
%><BR>
<table cellpadding=0 cellspacing=0 border=0 width=<%=tablewidth%> bgcolor=<%=tablebordercolor%> align=center>
  <tr>
    <td>
      <table cellpadding=3 cellspacing=1 border=0 width=100%>
        <tr bgcolor='<%=Tabletitlecolor%>'>
        <td><font color="<%=TablefontColor%>">欢迎<b><%=membername%></b>进入管理页面</font>
        </td>
        </tr>
            <tr bgcolor=<%=tablebodycolor2%>>
              <td width="100%" valign=top><font color="<%=TableContentColor%>">
<%
if request("action")="update" then
	call updatepara()
else
	call paraform()
end if
%></font>
	      </td>
            </tr>
        </table>
        </td>
    </tr>
</table>
<%
end sub




sub paraform()
call getpointinfo()
sql="Select * from [config]" 
set rs=conn.execute(sql)
if not rs.eof then
%>
<BR>
<form method="POST" action=sysadm_point.asp>
<input type=hidden name=action value=update>
<table width=95% bgcolor=<%=tablebordercolor%> cellspacing=1  cellpadding=5>
<tr bgcolor=<%=tablebodycolor1%>><td colspan=2><B>用户积分设置</B></td></tr>
<%
'response.write ubound(plist)
for i=0 to ubound(plist)
	tmplist=split(plist(i),",")
	pvar=tmplist(0)
	pname=tmplist(1)
%>
<tr bgcolor=<%=tablebodycolor2%>>
<td width="40%"><font color="<%=TablefontColor%>"><%=pname%></td>
<td width="60%"> 
<input type="text" name="<%=pvar%>" size="35" value="<%=rs(pvar)%>">
</td>
</tr>
<%next%>
<tr bgcolor=<%=Tabletitlecolor%>> 
<td height="23" colspan="3" align=right >
<input type="submit" name="submit" value="修改">
</td>
</tr>
</table>
</form>
<br>
<%
end if

end sub

sub updatepara()

call getpointinfo()	
	
	
	set rs=server.createobject("adodb.recordset")
	sql="Select * from [config]" 
	rs.open sql,conn,1,3
if not rs.eof then
for i=0 to ubound(plist)
	tmplist=split(plist(i),",")
	pvar=tmplist(0)
	pname=tmplist(1)
	if Request(pvar)="" then 
		errmsg = errmsg + "<br>" + "<li>请填写"&pname&"！</li>"
		Founderr=true
	elseif not isnumeric(Request(pvar)) then
		errmsg = errmsg + "<br>" + "<li>"&pname&"填写错误！</li>"
		Founderr=true
	else
		rs(pvar) = Request(pvar)
	end if
next

if founderr=true then
	call error(errmsg)
	exit sub
end if
	rs.update
    rs.close
	set rs=nothing

%>
<center><p><b>更新同学录参数成功！</b>
<%
end if

end sub


sub getpointinfo()
plist(0)="pReg,用户注册积分"
plist(1)="pLogin,用户登录积分"
plist(2)="pAddTeacher,添加教师通讯录积分"
plist(3)="pEditTeacher,编辑教师通讯录积分"
plist(4)="pDelTeacher,删除教师通讯录积分"
plist(5)="pAddAppend,添加附加通讯录积分"
plist(6)="pEditAppend,编辑附加通讯录积分"
plist(7)="pDelAppend,删除附加通讯录积分"
plist(8)="pAddFriend,添加好友积分"
plist(9)="pDelFriend,删除好友积分"
plist(10)="pJoinClass,加入班级积分"
plist(11)="pExitClass,退出班级积分"
plist(12)="pApplyAdmin,担任班级管理员积分"
plist(13)="PResignAdmin,辞去班级管理员积分"
plist(14)="pModifyInfo,修改个人信息积分"
plist(15)="pSignBoard,发表留言积分"
plist(16)="pReplyBoard,回复留言积分"
plist(17)="pEditBoard,编辑留言积分"
plist(18)="pDelBoard,删除留言积分"
plist(19)="pAddPhoto,添加相片积分"
plist(20)="pDelPhoto,删除相片积分"
end sub


%>
⌨️ 快捷键说明

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