<%
'Dim Start
'start=timer

Dim SchoolmateURL

Dim PointSet

Dim IntVar,StrVar
Dim BoolVar(9)

Dim ClassNum,UserNum
Dim bbsnum,topicnum,todaynum

Dim TableBorderColor,LightTBColor,DarkTBColor

TableBorderColor="#ffffff"
LightTBColor="#ecf2fc"
DarkTBColor="#E6ecf9"
BodyColor="#fafaff"

'on error resume next
Dim Conn,ConnStr
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/fhs200m.mdb")&";Jet OLEDB:Database Password=f2y0t0x3l"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr

Call getconst()

Sub getconst()

	Dim ConfigRs
	Dim pageurl,tmpstr
	set ConfigRs=Conn.Execute("select point,IntVar,StrVar,BoolVar,UserNum,ClassNum,bbsNum,topicNum,TodayNum from config")


	pageurl=Request.ServerVariables("server_name")&Request.ServerVariables("URL")
	tmpstr=Split(pageurl,"/")
	schoolmateurl="http://"&replace(pageurl, tmpstr(ubound(tmpstr)), "")


	PointSet=split(ConfigRs(0),",")
	IntVar=split(ConfigRs(1),",")
	StrVar=split(ConfigRs(2),vbCr)

	for i=0 to ubound(BoolVar)
		BoolVar(i)=cbool(mid(ConfigRs(3),i+1,1))
	next


	UserNum=ConfigRs(4)
	ClassNum=ConfigRs(5)

	bbsnum=ConfigRs(6)
	topicnum=ConfigRs(7)
	todaynum=ConfigRs(8)

	Set ConfigRs=Nothing

End Sub


Sub EndConnection()
	Conn.close
	Set Conn=Nothing	
	Erase IntVar
	Erase StrVar
	Erase BoolVar
	Erase PointSet

End Sub


Sub Error(errorlevel,ErrMsg)

if BoolVar(1) Then
	Response.Write "<bgsound src=""sound/"&errorlevel&".wav"" border=0>"
End if%>
<br><br>
<table cellpadding=0 cellspacing=0 border=0	width=80% Class=TableBorder	align=center>
<tr>
	<td>
		<table cellpadding=5 cellspacing=1 border=0	width=100%>
		<tr	align="center">	
		  <th width="100%"><b>同学录错误信息</b></th>
		</tr>
		<tr	Class=LightTableBody>
			<td><table	width="100%" height="100%" border="0" Class=LightTableBody>
				<tr><td width=80 align=center><img src="images/<%=errorlevel%>.gif" align=absmiddle></td>
					<td class=mp valign=center><br><b>产生错误的可能原因：</b><br><br>
					<li>您是否仔细阅读了<a href=help.asp target=_blank>帮助文件</a><%=ErrMsg%><br><br>
					</td>
				</tr>
				</table>
			</td>
		</tr>
		<tr	align="center">	
		  <td width="100%" Class=DarkTableBody><input type=button onclick="javascript:history.go(-1)" value="确定(O)" style="width:65px" accesskey=o class=button>
		  </td>
		</tr>  
		</table>
	</td>
</tr>
</table><BR>

<%End Sub%>