admin.asp

一个功能很全面的设计网站,可以作为工作室、个人主页、技术网站等

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="odbc.asp"-->
<!--#include file="head.asp"-->

<%
select case request("act")
	case "admincheck"
		call admincheck()
	case "adminmain"
		call adminmain()
	case "logout"
		call logout()
	case "adminupdate"
		call adminupdate()
	case else
		call login()
end select

sub login()

%>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="keywords" content="wxdesign,设计留言本,guestbook,asp">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留言本管理</title>

  
<table width="500" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF" >
  <form name="form1" method="post" action="?act=admincheck"> 
   <tr align="center" valign="middle">
     <td height="20" colspan="2">&nbsp;</td>
   </tr>
   <tr align="center" valign="middle">
      <td height="40" colspan="2"><img src="img/admin.gif" width="30" height="27" align="absmiddle"> 管理登陆</td>
    </tr>
    <tr>
      <td width="40%" align="right" valign="middle">管理员名称：</td>
      <td height="30" align="left" valign="middle"><input name="uid" type="text" id="uid" size="20"></td>
    </tr>
    <tr>
      <td width="40%" align="right" valign="middle">管理员密码：</td>
      <td height="30" align="left" valign="middle"><input name="passed" type="password" id="passed" size="20"></td>
    </tr>
    <tr>
      <td width="40%" align="right" valign="middle"><span class="tablebody1">注意：大小写敏感</span></td>
      <td height="30" align="left" valign="middle"> <input type="submit" name="Submit" value="提交">
      <input type="reset" name="Submit2" value="清除"></td>
    </tr>
    <tr>
      <td height="20" colspan="2" align="right" valign="middle">&nbsp;</td>
    </tr>
	</form>
  </table>

<%

end sub

sub admincheck
dim uid,passed
uid = replace(trim(request("uid")),"'","")
passed = replace(trim(request("passed")),"'","")
strsql="select * from admin where id=1"
set rs = server.createobject("adodb.recordset")
rs.open strsql,db,1,3

if rs("user")=uid and rs("passed")=passed then
	session("log")= "true"
	response.redirect "?act=adminmain"
else
	errorinfo="名称或密码错误，请注意大小写。"
	error(errorinfo)
	exit sub
end if
rs.close
set rs = nothing
end sub

sub adminmain
if not session("log")="true" then
	errorinfo="您没有登陆或已经退出登陆。"
	error(errorinfo)
	exit sub
else
%>
  
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" >
  <form name="form2" method="post" action="?act=adminupdate">
    <tr> 
      <td height="50" colspan="2" align="center" valign="middle"><img src="img/admin.gif" width="30" height="27" align="absmiddle"> 
        管理留言本</td>
    </tr>
    <tr> 
      <td width="25%" height="35" align="right" valign="middle">网站名称：</td>
      <td align="left" valign="middle"> &nbsp; <input name="site" type="text" id="site" value="<%=site%>">
        留言本所属的站点名称。 </td>
    </tr>
    <tr> 
      <td width="25%" height="35" align="right" valign="middle">网站地址： </td>
      <td align="left" valign="middle"> &nbsp; <input name="url" type="text" id="url" value="<%=url%>">
        请注意：必须是完整的地址</td>
    </tr>
    <tr> 
      <td width="25%" height="35" align="right" valign="middle">管理员名称：</td>
      <td align="left" valign="middle">&nbsp; <input name="user" type="text" id="user" value="<%=user%>">
        换上你自己的吧。 </td>
    </tr>
    <tr> 
      <td width="25%" height="35" align="right" valign="middle">管理员密码：</td>
      <td align="left" valign="middle">&nbsp; <input name="passed" type="password" id="passed" value="<%=passed%>"> 
      </td>
    </tr>
    <tr> 
      <td width="25%" height="35" align="right" valign="middle">重复密码：</td>
      <td align="left" valign="middle">&nbsp; <input name="passed2" type="password" id="passed2" value="<%= passed%>"></td>
    </tr>
    <tr> 
      <td width="25%" height="35" align="right" valign="middle">管理员email：</td>
      <td align="left" valign="middle">&nbsp; <input name="adminemail" type="text" id="adminmail" value="<%=adminmail%>">
        换上你自己的Email。 </td>
    </tr>
    <tr> 
      <td width="25%" height="35" align="right" valign="middle">每页显示留言数：</td>
      <td align="left" valign="middle">&nbsp; <input name="perpage" type="text" id="perpage2" value="<%=perpage%>"></td>
    </tr>
    <tr> 
      <td width="25%" height="35" align="right" valign="middle">最大留言数：</td>
      <td align="left" valign="middle">&nbsp; <input name="maxnum" type="text" id="maxnum" value="<%=maxnum%>"></td>
    </tr>
    <tr> 
      <td width="25%" height="35" align="right" valign="top">留言提示：</td>
      <td align="left" valign="middle">&nbsp; <textarea name="notice" cols="34" rows="5" wrap="PHYSICAL" id="notice"><%=notice%></textarea> 
        <br> <BR> &nbsp;&nbsp;可以是欢迎词、警告、站点说明等,将出现在提交留言页面的顶部.</td>
    </tr>
    <tr> 
      <td height="35" align="right" valign="middle">留言本状态：</td>
      <td align="left" valign="middle"><input type="radio" value="0"<%if lock=0 then%> checked <%end if%> name="lock">
        开放 
        <input type="radio" value="1"<%if lock=1 then%> checked<%end if%> name="lock">
        锁定 （若锁定将不能发表留言）</td>
    </tr>
    <tr align="center"> 
      <td height="40" colspan="2" valign="middle">
  <input type="submit" name="Submit3" value="提交">&nbsp;&nbsp;
  <input type="reset" name="Submit4" value="清除">
</td>
    </tr>
  </form>
</table>

<%
end if
end sub
'call closedate()

sub logout()
	 session("log")="false"
	 response.redirect "admin.asp"
end sub


sub adminupdate

if not session("log")="true" then
	errorinfo="您没有登陆或已经退出登陆。"
	error(errorinfo)
	exit sub
else
	dim user,passed,passed2,adminmail,site,url,perpage,maxnum,notice,lock
	user=trim(request.form("user"))
	passed = trim(request.form("passed"))
	passed2=trim(request.form("passed2"))
	adminmail = trim(request.form("adminmail"))
	site = Trim(request.form("site"))
	url = Trim(request.form("url"))
	perpage = Trim(request.form("perpage"))
	maxnum = Trim(request.form("maxnum"))
	notice = Trim(request.form("notice"))
	lock = Trim(request.form("lock"))
'	if user="" or passed="" or passed2="" or adminmail="" or site="" or url="" or perpage="" notice="" or lock=""  then
'		errorinfo="请完整填写各项内容。除了留言提示，其它各项都是必填的。"
'		error(errorinfo)
'		exit sub
'	elseif passed<>passed2  then
'		errorinfo="您两次输入的密码不一致，请重新输入。"
'		error(errorinfo)
'		exit sub
'	end if
	if session("log")="true" then
		set rs = server.createobject("adodb.recordset")
		strsql="select * from admin where id=1"
		rs.open  strsql,db,3,2
		rs.update
		rs("user")=user
		rs("passed")=passed
		rs("site")=site
		rs("url")=url
		rs("perpage")=perpage
		rs("maxnum")=maxnum
		rs("notice")=notice
		rs("lock")=lock
		rs.update
		rs.close
		set rs = nothing
		call closedate()
		
%>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td height="300" align="center" valign="middle"><img src="img/s_m_01_748_01_01.gif" width="100" height="120"><br>
      <br>
      <br>
<b>&nbsp; 修改成功！</b>
<a href="?act=adminmain">返回</a>
    </td>
  </tr>
</table>
<%
		end if
		
end if

end sub
%>
<table width="100%" height="15" align="center" cellspacing="0">
  <tr> 
    <td height="10"></td>
  </tr>
</table>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <!--DWLayoutTable-->
  <tr> 
    <td width="5" height="5"></td>
    <td width="750"></td>
    <td width="5"></td>
  </tr>
  <tr> 
    <td width="8" height="46"></td>
    <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="f2f2f2"  class="tde">
        <!--DWLayoutTable-->
        <tr> 
          <td width="491" height="44"><div align="left"><font color="#999999">&nbsp;&nbsp;|</font> 
              <font color="#999999"><span  onclick="var strHref=window.location.href;this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.dadayu.com');"  style="CURSOR: hand">设为首页</span> 
              | 
              <script language="JavaScript">
function bookmarkit(){window.external.addFavorite('www.dadayu.com','│ DaDaYu │ 易天网络 │')}
if (document.all)document.write('<a href="#" onClick="bookmarkit()"><font color="#999999">加入收藏</font></a>')
</script>
              | <a href="mailto:[e-mail]">联系站长</a> | <a href="FriendSite.asp">友情链接</a> 
              | <a href="Copyright.asp" target="_blank">版权申明</a> | 易天留言 |&nbsp;&nbsp;&nbsp;&nbsp;</font></div></td>
        </tr>
      </table></td>
    <td width="8"></td>
  </tr>
  <tr> 
    <td height="5"></td>
    <td></td>
    <td></td>
  </tr>
</table>