setup.asp

酷虎网同学录V1.0

<%@CODEPAGE="936"%>
<%
response.expires=0

start=timer
'dim theme parameters
dim TableborderColor,TablebodyColor1,TablebodyColor2,TabletitleColor
dim bodycolor,TablecontentColor,TablefontColor,tabletitlebg
	
	dim conn
	dim connstr
	dim db
	db="data/khooschool.asa"
	'on error resume next

	Set conn = Server.CreateObject("ADODB.Connection")

call getdefaultheme(3)
if err then 
	err.clear
	errormsg="<BR><li>操作失败，无法创建数据库对象！"
	call disperrs("Critical",errormsg)
	response.end
end if

	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
	conn.Open connstr

if err then 
	err.clear
	errormsg="<BR><li>操作失败，无法创建数据库连接！"
	call disperrs("Critical",errormsg)
	response.end
end if



'dim system parameters
dim SystemEmail,SchoolName,SchoolmateName,SchoolmateURL
dim maxjoinclass,RegEnabled
'dim user point set
dim PResignAdmin,pModifyInfo,pAddFriend,pDelFriend,pAddPhoto,pEditPhoto,pDelPhoto
dim pReg,pLogin,pJoinClass,pExitClass,pApplyAdmin,pSignBoard,pReplyBoard,pEditBoard,pDelBoard
dim pAddAppend,pEditAppend,pDelAppend,pAddTeacher,pEditTeacher,pDelTeacher,pRecommed


'dim upload parameters
dim PhotoPath,MaxPhotoSize,UploadFlag,MaxAlbumSize


'dim board parameters
dim PageSize,MaxBoardSize
dim signmodeflag,FromFlag,ubbflag,BadWords


'dim schoolmate info
dim classes,users
dim bbsnum,topicnum,todaynum


call getconst()



sub getconst()

'on error resume next
dim tmpsql,tmprs
tmpsql="select * from [config]"
set tmprs=conn.execute(tmpsql)
if err then 
	err.clear
	errormsg="<BR><li>操作失败，无法读取系统参数！"
	call disperrs("Critical",errormsg)
	response.end
end if

if tmprs.eof then
	errormsg="<BR><li>操作失败，无法读取系统参数！"
	call disperrs("Critical",errormsg)
	response.end
end if


'获取基本参数
SystemEmail=tmprs("systememail")
SchoolName=tmprs("SchoolName")
SchoolmateName=tmprs("SchoolmateName")
SchoolmateURL=tmprs("SchoolmateURL")
maxjoinclass=tmprs("maxjoinclass")
RegEnabled=tmprs("RegEnabled")

'获取像册参数
UploadFlag=tmprs("UploadFlag")
MaxPhotoSize=tmprs("MaxPhotoSize")
MaxAlbumSize=tmprs("MaxAlbumSize")
PhotoPath=tmprs("PhotoPath")
if right(PhotoPath,1)<>"/" then PhotoPath=PhotoPath&"/" 

'获取留言板参数
PageSize=tmprs("PageSize")
MaxBoardSize=tmprs("MaxBoardSize")
signmodeflag=tmprs("signmodeflag")
UBBFlag=tmprs("UBBFlag")
FromFlag=tmprs("FromFlag")
BadWords=tmprs("BadWords")

'获取用户积分参数
pReg=tmprs("pReg")
pLogin=tmprs("pLogin")

pAddTeacher=tmprs("pAddTeacher")
pEditTeacher=tmprs("pEditTeacher")
pDelTeacher=tmprs("pDelTeacher")

pAddAppend=tmprs("pAddAppend")
pEditAppend=tmprs("pEditAppend")
pDelAppend=tmprs("pDelAppend")

pAddFriend=tmprs("pAddFriend")
pDelFriend=tmprs("pDelFriend")

pJoinClass=tmprs("pJoinClass")
pExitClass=tmprs("pExitClass")

pApplyAdmin=tmprs("pApplyAdmin")
PResignAdmin=tmprs("PResignAdmin")

pModifyInfo=tmprs("pModifyInfo")

pSignBoard=tmprs("pSignBoard")
pReplyBoard=tmprs("pReplyBoard")
pEditBoard=tmprs("pEditBoard")
pDelBoard=tmprs("pDelBoard")

pAddPhoto=tmprs("pAddPhoto")
pEditPhoto=tmprs("pEditPhoto")
pDelPhoto=tmprs("pDelPhoto")

pRecommed=tmprs("pRecommed")

'获取同学录基本信息
scriptname=request.servervariables("script_name")
'if instr(scriptname,"index.asp")>0 then
users=tmprs("users")
classes=tmprs("classes")

bbsnum=tmprs("bbsnum")
topicnum=tmprs("topicnum")
todaynum=tmprs("todaynum")


'end if

set tmprs=nothing

end sub

sub endConnection()
	conn.close
	set conn=nothing	
end sub


sub getdefaultheme(byval themeid)

if themeid=1 then
'get default theme 1
TableborderColor="#0099cc"
TablebodyColor1="#d2e9fe"
TablebodyColor2="#e8f4ff"
TabletitleColor="#99ccff"
TablecontentColor="#000000"
TablefontColor="#000000"
bodycolor="#f2f8ff"
elseif themeid=2 then
'get default theme 2
TableborderColor="#a4b6d7"
TablebodyColor1="#ECF5FF"
TablebodyColor2="#F2F8FF"
TabletitleColor="#c4d4e5"
TablecontentColor="#000000"
TablefontColor="#000000"
bodycolor="#ffffff"
else
TabletitleBG="images/tabletitlebg.gif"
TableborderColor="#A9D46D"
'TableborderColor="#80b060"
TablebodyColor1="#F4FAED"
TablebodyColor2="#e3f1d1"
TabletitleColor="#A9D46D"
TablecontentColor="#000000"
TablefontColor="#000000"
bodycolor="#eef2ee"
end if


end sub

sub error(errorlevel,errmsg)
%><br><br>
    <table cellpadding=0 cellspacing=0 border=0 width=80% bgcolor=<%=TableborderColor%> align=center>
        <tr>
            <td>
                <table cellpadding=3 cellspacing=1 border=0 width=100%>
    <tr align="center"> 
      <th width="100%"><font color="<%=TableFontColor%>"><b>同学录错误信息</b></font></th>
    </tr>
    <tr bgcolor="<%=TablebodyColor2%>"><td><table width="100%" height="100%" border="0" bgcolor="<%=TablebodyColor2%>"><tr><td width=80 align=center><img src="images/<%=errorlevel%>.gif" align=absmiddle></td>
      <td  class=mp valign=center><font color="<%=TableContentColor%>"><br><b>产生错误的可能原因：</b><br><br>
<li>您是否仔细阅读了<a href=help.asp><font color="<%=TableContentColor%>">帮助文件</font></a>
<%=errmsg%><br><br></font>
      </td></tr></table></td>
    </tr>
    <tr align="center"> 
      <td width="100%" bgcolor=<%=TablebodyColor1%>><input type=button onclick="javascript:history.go(-1)" value="确定" style="width:40pt">
      </td>
    </tr>  
    </table>   </td></tr></table>
<%
end sub


sub disperrs(errorlevelpar,errormsgpar)
%>


<html><head>
<meta NAME=GENERATOR Content="Microsoft FrontPage 4.0" CHARSET=GB2312>
<title><%=SchoolmateName%>——错误提示</title>
<!--#INCLUDE FILE="css.asp" -->
</head>
<body alink=#333333 vlink=#333333 link=#333333 topmargin=0 leftmargin=0 background="images/back.gif">

<%
	'call top()
	call error(errorlevelpar,errormsgpar)
end sub
%>