📄 const.asp

📁 功能非常完整的校友录
💻 ASP
字号:
<%
dim EmailFlag
dim SendRegEmail,smsflag,SMTPServer

'dim system parameters
dim SystemEmail,SchoolName,Copyright,Version,SchoolmateName,SchoolmateURL

'dim user point set
dim PResignAdmin,pModifyInfo,pAddFriend,pDelFriend,pAddPhoto,pDelPhoto
dim pReg,pLogin,pJoinClass,pExitClass,pApplyAdmin,pSignBoard,pReplyBoard,pEditBoard,pDelBoard
dim pAddAppend,pEditAppend,pDelAppend,pAddTeacher,pEditTeacher,pDelTeacher


'dim upload parameters
dim PhotoPath,MaxPhotoSize,UploadFlag


'dim board parameters
dim PageSize,MaxBoardSize,MoodURL,FaceURL
dim IpFlag,FromFlag,ubbflag,BadWords

'dim theme parameters
dim TableborderColor,TablebodyColor1,TablebodyColor2,TabletitleColor
dim bodycolor,MenuBackColor,Tablewidth,MenuFontColor,TablecontentColor,TablefontColor

'dim schoolmate info
dim classes,users,lastclass,lastuser


call getdefaultheme()
call getconst()

REM 0:不支持;1:JMAIL;2:CDONTS;3:ASPEMAIL4:自动检测
EmailFlag=1
SMTPServer="smtp.21cn.com"
SendRegEmail=true
smsflag=true


if right(FaceURL,1)<>"/" then 
	FaceURL=FaceURL&"/" 
end if
if right(MoodURL,1)<>"/" then 
	MoodURL=MoodURL&"/" 
end if
if right(PhotoPath,1)<>"/" then 
	PhotoPath=PhotoPath&"/" 
end if

sub getconst()

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

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


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

'获取像册参数
UploadFlag=tmprs("UploadFlag")
PhotoPath=tmprs("PhotoPath")
MaxPhotoSize=tmprs("MaxPhotoSize")


'获取留言板参数
FaceURL=tmprs("FaceURL")
MoodURL=tmprs("MoodURL")
PageSize=tmprs("PageSize")
MaxBoardSize=tmprs("MaxBoardSize")
UBBFlag=tmprs("UBBFlag")
IpFlag=tmprs("IpFlag")
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")
pDelPhoto=tmprs("pDelPhoto")

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

set tmprs=nothing

end sub

sub getdefaultheme()
TableborderColor="#0099cc"
TablebodyColor1="#d2e9fe"
TablebodyColor2="#e8f4ff"
TabletitleColor="#99ccff"
TablecontentColor="#000000"
TablefontColor="#000000"
bodycolor="#f2f8ff"
MenuBackColor="#4CA4E9"
MenuFontColor="#ffffff"
Tablewidth="90%"
end sub

sub disperrs(errormsg)
%>
<html><head>
<meta NAME=GENERATOR Content="Microsoft FrontPage 4.0" CHARSET=GB2312>
<title><%=SchoolmateName%>——错误提示</title>
<link rel=stylesheet type=text/css href=txl.css>
</head>
<body alink=#333333 vlink=#333333 link=#333333 topmargin=0>


<br><br>
    <table cellpadding=0 cellspacing=0 border=0 width=90% bgcolor=<%=TableborderColor%> align=center>
        <tr>
            <td>
                <table cellpadding=5 cellspacing=1 border=0 width=100%>
    <tr align="center"> 
      <td width="100%" bgcolor=<%=TabletitleColor%>><font color="<%=TableFontColor%>"><b>同学录错误信息</b></font></td>
    </tr>
    <tr> 
      <td width="100%" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>"><br><b>产生错误的可能原因：</b><br><br>
<li>您是否仔细阅读了<a href=help.asp><font color="<%=TableContentColor%>">帮助文件</font></a>
<%=errormsg%><br><br></font>
      </td>
    </tr>
    <tr align="center"> 
      <td width="100%" bgcolor=<%=TabletitleColor%>>
<a href="javascript:history.go(-1)"><font color="<%=TableFontColor%>"> << 返回上一页</font></a>
      </td>
    </tr>  
    </table>   </td></tr></table>
<%
end sub
%>
⌨️ 快捷键说明

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