<!--#INCLUDE FILE="setup.asp" -->
<!--#include file=checkuser.asp-->
<title><%=StrVar(1)%>--管理页面</title>
<link href="css.asp" rel="stylesheet" type="text/css">
<!--#include file=theme.css-->
<body alink=#333333 vlink=#333333 link=#333333 topmargin=0 class=adminbody>
<%

Dim pName(25)

if  not SysAdmin or session("adminlogin")<>"0K" Then
	ErrMsg=ErrMsg+"<br>"+"<li>本页面为管理员专用，请<a href=superindex.asp target=_top>登陆</a>后进入。"
	Call Error("Information",ErrMsg)
Else
	Call main()
End if

Call endconnection()


Sub main()

%>
<table cellpadding=5 cellspacing=1 border=0 width=100% Class=TableBorder align=center>
<tr>
	<th>欢迎<b><%=membername%></b>进入管理页面</th>
</tr>
</table>

		<%
		Call getpointinfo()	
		if Request("action")="update" Then
			Call updatepara()
		Else
			Call paraform()
		End if
		
End Sub



Sub paraform()
%>
<BR>
<form method="POST" action=sysadm_point.asp>
<input type=hidden name=action value=update>
<table width=80% Class=TableBorder cellspacing=1  cellpadding=5 align=center>
<tr Class=LightTableBody><th colspan=4>用户积分设置</th></tr>
<%
dim i
for i=0 to ubound(PointSet)
	if i mod 2=0 Then Response.Write "<tr Class=LightTableBody>"
	%>
	<td width="25%"><%=pName(i)%></td>
	<td width="25%"> 
	<input type="text" name="PointSet<%=i%>" size="15" value="<%=PointSet(i)%>" maxlength=9>
	</td>
	<%
	if i mod 2=1 Then Response.Write "</tr>"

next

if i mod 2=1 Then Response.Write "<td colspan=2>&nbsp;</td></tr>"
%>
<tr Class=DarkTableBody> 
<td height="23" colspan="4" align=right >
<input type="submit" name="submit" value="修&nbsp;&nbsp;改" style="width:75px" class=button>
</td>
</tr>
</table>
</form>
<br>
<%

End Sub



Sub updatepara()

	Dim strpointset,pval
	Dim ErrMsg,FoundErr
	for i=0 to ubound(PointSet)
		pval=trim(Request("PointSet"&i))

		if not isnumeric(pval) Then 
			ErrMsg = ErrMsg + "<br>" + "<li>"&pName(i)&"应该填写数字！</li>"
			Founderr=True
		ElseIf cint(pval)>32000 or cint(pval)<-32000 Then
			ErrMsg = ErrMsg + "<br>" + "<li>"&pname(i)&"超过了系统允许的范围！</li>"
			Founderr=True
		Else
			if i=0 Then
				strpointset=pval
			Else
				strpointset=strpointset&","&pval
			End if
		End if
	next

	if founderr=True Then
		Call Error("Information",ErrMsg)
	Else
		conn.execute("update config Set point='"&strpointset&"'")
		%>
		<center><p><b>更新同学录参数成功！</b>
		<%
	End if

End Sub


Sub getpointinfo()

	pName(0)="用户注册"
	pName(1)="用户登录"
	pName(2)="添加教师通讯录"
	pName(3)="编辑教师通讯录"
	pName(4)="删除教师通讯录"
	pName(5)="添加附加通讯录"
	pName(6)="编辑附加通讯录"
	pName(7)="删除附加通讯录"
	pName(8)="添加好友"
	pName(9)="删除好友"
	pName(10)="加入班级"
	pName(11)="退出班级"
	pName(12)="担任班级管理员"
	pName(13)="辞去班级管理员"
	pName(14)="修改个人信息"
	pName(15)="发表留言"
	pName(16)="回复留言"
	pName(17)="编辑留言"
	pName(18)="删除留言"
	pName(19)="添加相片"
	pName(20)="编辑相片"
	pName(21)="删除相片"
	pName(22)="发表相片评论"
	pName(23)="删除相片评论"
	pName(24)="投票"
	pName(25)="推荐用户加入"

End Sub%>



