admin.asp

这是一个很好的班级考勤系统

<!--#include file="md5.asp"-->
<!--#include file="config.asp"--> 
<!--#include file="pub.asp"-->
<%
ChkAdmin
menu=Request.Querystring("menu")
if menu="" then
menu="gbinfo"
end if
action=Request.form("action")

IF Request("POST")<>"" Then
Call WriteData
End IF
Main
Bottom

Function Main
set GetInfo=conn.execute("select*from gbinfo")
BottomStrs=Replace(GetInfo("BottomStr"),"&nbsp;<a href=http://yesitis.126.com target=_blank>版权所有</A>","")
%>
<!--#include file="header.asp"-->
<DIV align=center>
<form method="post">
<input type="hidden" name="POST" value="True">
<input type="hidden" name="gbopen" value="1">
<TABLE  height=200 cellSpacing=0 
cellPadding=0 width=600 align=center >
  <TBODY><tr><td align=right><br>
	  <a href=index.asp>进入留言本</a>&nbsp;<a href=logout.asp>退出管理区</a>&nbsp;&nbsp;<hr noshade size="1" color="#ff0088">
</td></tr>
  <TR>
    <TD vAlign=center>


<table border="0" width="100%" cellpadding="0" cellspacing="0">
        <tr>
          <td width="20%" valign=top>
		    <p style="word-spacing: 3; margin-top: 3; margin-bottom: 3" align=center> 留言本管理菜单 <hr noshade size="1" color="#ff0088">
            <p style="word-spacing: 3; margin-top: 3; margin-bottom: 3">&nbsp;&nbsp;
            <A href="admin.asp?menu=admininfo">管理帐号设置</A></p>   
            <p style="word-spacing: 3; margin-top: 3; margin-bottom: 3">&nbsp;&nbsp;
            <A href="admin.asp?menu=siteinfo">站点资料设置</A></p>   
            <p style="word-spacing: 3; margin-top: 3; margin-bottom: 3">&nbsp;&nbsp;
            <A href="admin.asp?menu=gbinfo">基本参数设置</A></p>   
            <p style="word-spacing: 3; margin-top: 3; margin-bottom: 3">&nbsp;&nbsp;
            <A href="admin.asp?menu=gonggao">发布版主公告</A></p>   
            <p style="word-spacing: 3; margin-top: 3; margin-bottom: 3">&nbsp;&nbsp;
            <A href="admin.asp?menu=zanghua">过滤词语设置</A></p>   
          
			</td>   
			<td width=1 bgcolor="ff0088"><img src="" width=1 height=0></td>
			<td width=20>&nbsp;&nbsp;</td>            
			<td width="80%" valign="top">
<%select case menu

case"admininfo"%>
        &nbsp;&nbsp;管 理 帐 号
        <input style="border:1pt dotted #cccccc" type="text" name="LogName" size="30" maxlength="20" value="<%=GetInfo("logname")%>"><br>
        &nbsp;&nbsp;管 理 密 码  
        <input style="border:1pt dotted #cccccc"  type="password" name="LogPwd" size="30" maxlength="16" value="<%=GetInfo("LogPwd")%>"><br>
		&nbsp;&nbsp;密 码 验 证 
        <input style="border:1pt dotted #cccccc"  type="password" name="LogPwd2" size="30" maxlength="16" value="<%=GetInfo("LogPwd")%>">
		<br><input type="hidden" name="action" value="admininfo"> 
<%case "siteinfo"%>
		 &nbsp;&nbsp;站 点 名 称 
        <input style="border:1pt dotted #cccccc" type="text" name="username" size="30" maxlength="30" value="<%=GetInfo("username")%>"><br> &nbsp;&nbsp;站 点 网 址
        <input style="border:1pt dotted #cccccc" type="text" name="siteurl" size="30" maxlength="100" value="<%=GetInfo("siteurl")%>">
		<br>
		&nbsp;&nbsp;版 权 设 置
        <input style="border:1pt dotted #cccccc" type="text" name="BottomStr" size="40" maxlength="180" value="<%=BottomStrs%>">
		<br><input type="hidden" name="action" value="siteinfo">  	
<%case "gbinfo"%>
		&nbsp;&nbsp;留言是否可写
        <input style="border:1pt dotted #cccccc" type="text" name="popwrite" size="5" maxlength="10" value="<%=GetInfo("popwrite")%>">&nbsp;可以写留言：1，暂时关闭留言：0<br>

		&nbsp;&nbsp;是否审核留言
        <input style="border:1pt dotted #cccccc" type="text" name="shenhe" size="5" maxlength="1" value="<%=GetInfo("shhe")%>">&nbsp;留言须经审核：1，留言无须审核：0<br>
		&nbsp;&nbsp;是否开放UBB&nbsp;&nbsp;<input style="border:1pt dotted #cccccc" type="text" name="ubbcode" size="5" maxlength="2" value="<%=GetInfo("ubbcode")%>">&nbsp;开放UBB：1；不开放UBB：0<br>
		&nbsp;&nbsp;每页留言条数
        <input style="border:1pt dotted #cccccc" type="text" name="Showlynum" size="5" maxlength="2" value="<%=GetInfo("Showlynum")%>"><br>
		<input type=hidden name=defaultstyle value="table">
		&nbsp;&nbsp;留言字数限制
        <input style="border:1pt dotted #cccccc" type="text" name="lymax" size="5" maxlength="8" value="<%=GetInfo("lymax")%>">&nbsp;最小字数|最大字数<br>
		&nbsp;&nbsp;调整计数显示
        <input style="border:1pt dotted #cccccc" type="text" name="visit" size="5" maxlength="9" value="<%=GetInfo("visit")%>">
		<br><input type="hidden" name="action" value="gbinfo"> 
<%case "gonggao"%>
		&nbsp;&nbsp;<TEXTAREA style="BORDER-RIGHT: #b4b4b4 1px double; BORDER-TOP: #b4b4b4 1px double; BORDER-LEFT: #b4b4b4 1px double; COLOR: #336699; BORDER-BOTTOM: #b4b4b4 1px double" name=notice rows=4 wrap=VIRTUAL cols=40><%=GetInfo("notice")%></TEXTAREA>
		<br><input type="hidden" name="action" value="gonggao"> 
		&nbsp;&nbsp;公告支持html和UBB；如不发布公告，请清空。<br>
<%case "zanghua"
if GetInfo("zanghua")<>"" then
zanghua=split(GetInfo("zanghua"),"|")
Response.Write "&nbsp;&nbsp;<b>已加入要过滤的词语：</b><br>"
for i=0 to ubound(zanghua)
Response.Write "&nbsp;&nbsp;"&zanghua(i)
next
end if
Response.Write "<hr noshade size=1 color=#a8b8d8>&nbsp;&nbsp;<b>在下面加入要过滤的词语，用|分隔开来</b><br>"

%>
		&nbsp;&nbsp;<TEXTAREA style="BORDER-RIGHT: #b4b4b4 1px double; BORDER-TOP: #b4b4b4 1px double; BORDER-LEFT: #b4b4b4 1px double; COLOR: #336699; BORDER-BOTTOM: #b4b4b4 1px double" name=zanghua rows=4 wrap=VIRTUAL cols=40><%=GetInfo("zanghua")%></TEXTAREA>
		<br><input type="hidden" name="action" value="zanghua"> 
		<br>
<%end select%>
         <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input style="border:1pt dotted #cccccc;background-color:#ffffff;width=50px;"  type="submit" value="确定">&nbsp;
        <input style="border:1pt dotted #cccccc;background-color:#ffffff;width=50px"  type="reset" value="重写">
			</td>   
        </tr>   
      </table>  
        </TD></TR>
			 <tr> 
      <td valign="top"></td>
			</TBODY></TABLE></FORM></TD></TR></TBODY></TABLE>      
<CENTER><BR></CENTER></DIV>
<%End Function

Function WriteData
select case action
case "admininfo"
IF Request.FORM("logname")="" or Request.FORM("logpwd")="" or Request.FORM("logpwd2")="" THEN
call ShowErr("你填写不完整!")
ELSE
 IF Request.form("logpwd")<>Request.form("logpwd2") Then
 call ShowErr("密码验证有误！")
 END IF
END IF
LogName=Request.form("logname")
newLogPWD=Request.form("logpwd")
if newLogPWD<>LogPWD then
newLogPWD=md5(newLogPWD)
end if

Set canl = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From gbinfo"
canl.Open Sql,conn,1,3
canl("LogName")=LogName
canl("LogPWD")=newLogPWD
canl.Update
canl.Close
Set canl=Nothing
Call CloseDB

CASE "siteinfo"
IF Request.FORM("siteurl")="" or Request.FORM("username")="" THEN
call ShowErr("你填写不完整!")
End IF
siteurl= Request.FORM("siteurl")
USRName= Request.FORM("username")
BottomStr=Request.form("BottomStr")&"&nbsp;<a href=http://yesitis.126.com target=_blank>版权所有</A>"
Set canl = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From gbinfo"
canl.Open Sql,conn,1,3
canl("username")=USRName
canl("siteurl")=siteurl
canl("BottomStr")=BottomStr
canl.Update
canl.Close
Set canl=Nothing
Call CloseDB

CASE "gbinfo"
IF Request("showlynum")="" or Request("popwrite")="" Then
call ShowErr("你填写不完整!")
End IF
if Len(yes)<>53 then
Response.End
end if
popwrite=Request.form("popwrite")
visit=Request.form("visit")
ubbcode=Request.form("ubbcode")
defaultstyle=Request.form("defaultstyle")
lymax=Request.form("lymax")
showlynum=Request.form("showlynum")
shenhe=Request.form("shenhe")
gstime=int(Request.form("gstime"))
Set canl = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From gbinfo"
canl.Open Sql,conn,1,3
canl("Showlynum")=Showlynum
canl("lymax")=lymax
canl("GbOpen")=GbOpen
canl("popwrite")=popwrite
canl("visit")=visit
canl("notice")=notice
canl("ubbcode")=ubbcode
canl("shhe")=shenhe
canl.Update
canl.Close
Set canl=Nothing
Call CloseDB

case "gonggao"
notice=Request.form("notice")
Set canl = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From gbinfo"
canl.Open Sql,conn,1,3
canl("notice")=notice
canl.Update
canl.Close
Set canl=Nothing
Call CloseDB

case "zanghua"
zanghua=Request.form("zanghua")
Set canl = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From gbinfo"
canl.Open Sql,conn,1,3
canl("zanghua")=zanghua
canl.Update
canl.Close
Set canl=Nothing
Call CloseDB
END SELECT
Response.Redirect "admin.asp?menu="&action
End Function
%>