admin.asp

ASP编写的网站

<% Option Explicit %>
<%response.buffer=true%>
<!--#include file="Inc_common.asp"-->
<%
'**************************************
'**    Admin.asp
'**
'** 文件说明：留言本管理页面
'** 修改日期：2004-11-12
'** 作者：HACKer007
'** Email：[e-mail]
'**************************************

dim mainpic
  mainpic="page_admin.gif"

select case request("act")
  case "admchk"
  call admchk()
  case "main"
  call main()
  case "update"
  call update()
  case "checking"
  call checking()
  case "logout"
  call logout()
  case else
  call main()
end select

sub admchk()
  dim adminpass
    adminpass=trim(request("adminpass"))

  if adminpass = password then
    session("login")="true"
    response.redirect "Index.asp"
  else
    errinfo="<li>密码错误！请注意大小写。"
    call error()
  end if
end sub

sub main()    '-----------------留言本设置页面

  if not session("login")="true" then
    errinfo="<li>您未登陆或已经退出登陆，不能进入该页。"
    call error()
  else
    pagename="设置留言本"
    call pageinfo()
    call skin1()
'---------------以下显示页面主体--------
%>
<p><br>
</p>
<form method="POST" action="?act=update">
  <div align="center">
    <center>
    <table border="0" cellpadding="3" cellspacing="1" width="95%" class="table1">
      <tr>
        <td width="28%" class="tablebody3" align="right">网站名称：</td>
        <td width="72%" class="tablebody2">
        <input type="text" name="site" size="29" value="<%=site%>"><br>
        留言本所属的站点的名称（如：搜狐网）。</td>
      </tr>
      <tr>
        <td width="28%" class="tablebody3" align="right">网站地址：</td>
        <td width="72%" class="tablebody2">
        <input type="text" name="url" size="29" value="<%=url%>"><br>
        请注意：必须是完整的地址（如：http://www.howlion.com/）。</td>
      </tr>
      <tr>
        <td width="28%" class="tablebody3" align="right">管理员名称：</td>
        <td width="72%" class="tablebody2">
        <input type="text" name="name" size="29" value="<%=name%>"><br>
        换上你自己的吧。</td>
      </tr>
      <tr>
        <td width="28%" class="tablebody3" align="right">管理员密码：</td>
        <td width="72%" class="tablebody2">
        <input type="password" name="password" size="29" value="<%=password%>"><br>
        若不希望修改，别改动就行了。</td>
      </tr>
      <tr>
        <td width="28%" class="tablebody3" align="right">重复密码：</td>
        <td width="72%" class="tablebody2">
        <input type="password" name="password2" size="29" value="<%=password%>"></td>
      </tr>
      <tr>
        <td width="28%" class="tablebody3" align="right">管理员Email：</td>
        <td width="72%" class="tablebody2">
        <input type="text" name="adminmail" size="29" value="<%=adminmail%>"><br>
        换上你自己的Email。</td>
      </tr>
      <tr>
        <td width="28%" class="tablebody3" align="right">每页显示留言数：</td>
        <td width="72%" class="tablebody2">
        <input type="text" name="perpage" size="10" value="<%=perpage%>"></td>
      </tr>
      <tr>
        <td width="28%" class="tablebody3" align="right">最大留言字数：</td>
        <td width="72%" class="tablebody2">
        <input type="text" name="maxnum" size="10" value="<%=maxnum%>"></td>
      </tr>
      <tr>
        <td width="28%" class="tablebody3" align="right">留言提示：</td>
        <td width="72%" class="tablebody2">
        <textarea rows="5" name="notice" cols="55"><%=notice%></textarea><br>
        可以是欢迎词、警告、站点说明等，将出现在提交留言页面的顶部，支持UBB。</td>
      </tr>
      <tr>
        <td width="28%" class="tablebody3" align="right">不受欢迎的IP：</td>
        <td width="72%" class="tablebody2">
        <textarea rows="5" name="badip" cols="34"><%=badip%></textarea><br>
        不受欢迎的IP地址将无法进入留言本。<b>每个IP地址必须占一行</b>。</td>
      </tr>
      <tr>
        <td width="28%" class="tablebody3" align="right">访问次数：</td>
        <td width="72%" class="tablebody2">
        <input type="text" name="stat" size="10" value="<%=stat%>"><br>
        修改留言本自带的计数器的数值。</td>
      </tr>
      <tr>
        <td width="28%" class="tablebody3" align="right">留言本状态：</td>
        <td width="72%" class="tablebody2">
        <input type="radio" value="0" <%if lock=0 then%>checked <%end if%>name="lock">开放&nbsp;&nbsp;<input type="radio" value="1" <%if lock=1 then%> checked<%end if%> name="lock">锁定&nbsp; 
        &nbsp;（若锁定，任何人都不能发表留言）</td>
      </tr>
      <tr>
        <td width="28%" class="tablebody3" align="right">留言审核：</td>
        <td width="72%" class="tablebody2">
        <input type="radio" value="1" <%if needcheck=1 then%>checked <%end if%>name="needcheck">需要&nbsp;&nbsp;<input type="radio" value="0" <%if needcheck=0 then%> checked<%end if%> name="needcheck">不需要&nbsp;&nbsp;（未经审核的留言将不会被显示，但管理员可以看到）</td>
      </tr>
    </table>
    <p><input type="Submit" value="提 交" name="Submit">&nbsp;&nbsp;
    <input type="reset" value="清 除" name="Submit2"> </p>
    </center>
  </div>
</form>

<%
  end if
  conn.close
  set rs=nothing
'--------------页面主题显示结束--------
  call skin2()
end sub


sub update()    '-----------------更新设置
if not session("login")="true" then
  errinfo="<li>您未登陆或已经退出登陆，不能进入该页。"
  call error()
else
  dim site,url,name,password,password2,adminmail,perpage,maxnum,notice,stat,lock,needcheck
  site=request.Form("site")
  url=trim(request.Form("url"))
  name=trim(request.Form("name"))
  password=trim(request.Form("password"))
  password2=trim(request.Form("password2"))
  adminmail=trim(request.Form("adminmail"))
  perpage=trim(request.Form("perpage"))
  maxnum=trim(request.Form("maxnum"))
  notice=request.Form("notice")
  stat=trim(request.Form("stat"))
  lock=request.Form("lock")
  needcheck=request.Form("needcheck")
  badip=trim(request.Form("badip"))

  if site="" or url="" or name="" or password="" or adminmail="" or perpage="" or maxnum="" or stat="" or lock="" then
    errinfo=errinfo & "<li>内容填写不完整，除了留言提示和IP列表，其它各项都是必填的"
  end if

  if password<>password2 then
    errinfo=errinfo & "<li>两次输入的密码不一致"
  end if

  if not(isnumeric(perpage)) then
    errinfo=errinfo & "<li>每页显示留言数必须为数字"
  end if

  if not(isnumeric(maxnum)) then
    errinfo=errinfo & "<li>最大留言字数必须为数字"
  end if

  if not(isnumeric(stat)) then
    errinfo=errinfo & "<li>访问次数必须为数字"
  end if

  call error()

  Set rs= Server.CreateObject("ADODB.Recordset")
    sql="select * from admin where id=1"
    rs.open sql,conn,3,2
    rs.update
    rs("site")=site
    rs("url")=url
    rs("name")=name
    rs("password")=password
    rs("adminmail")=adminmail
    rs("perpage")=perpage
    rs("maxnum")=maxnum
    rs("notice")=notice
    rs("stat")=stat
    rs("lock")=lock
    rs("needcheck")=needcheck
    rs("badip")=badip
    rs.update
    rs.close

  Response.Redirect "Index.asp"
  Response.Flush

end if
end sub

sub checking()    '-----------------审核留言
  dim id,page,key
  id = request("id")
  if Request.QueryString("p")="" then
    page="1"
  else
    page=Request.QueryString("p")
  end if
  key=Request.QueryString("key")
  if not session("login")="true" then
    errinfo="<li>您未登陆或已经退出登陆，不能进入该页。"
    call error()
  else
    sql="Select id from topic where id="&id
    set rs=server.CreateObject("adodb.recordset")
    rs.open sql,conn,1,3
    if rs.eof and rs.bof then
      rs.close
      set rs=nothing
      errinfo="<li>该留言不存在。"
      call error()
    else
      rs.close
      set rs=nothing
    end if

    sql="update topic set checked='1' where id="&id
    conn.execute(sql)
    dim backurl
    if key="" then
      backurl="Index.asp?page="&page
    else
      backurl="search.asp?key="&key&"&page="&page
    end if
    %>
    <meta http-equiv=refresh content="0;URL=<%=backurl%>">
    <%
  end if
  conn.close
end sub

sub logout()
  session("login")="false"
  response.redirect "Index.asp"
end sub
%>