admin.asp

图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统

<%sub loginform
call shownav("第一步：登陆")
%>
<div class="mainbar_a<%=skin%>">
  <form method="post" action="?action=chklogin">
    <div align="center"><%=strerror%></div>
    <table width="300" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#000000">
      <tr class="tr<%=skin%>">
        <td class="tr0">用 户 名：
          <input name="username" type="text" id="username" size="10" maxlength="12">
        </td>
      </tr>
      <tr class="tr<%=skin%>">
        <td class="tr0">密　　码：
          <input name="password" type="password" id="password" size="10" maxlength="12">
        </td>
      </tr>
      <tr class="tr<%=skin%>">
        <td class="tr0"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type="submit" value="登陆管理" name="submit"> &nbsp;         <BUTTON 
                        onclick="window.open('getpwd.asp','Sample','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,copyhistory=no,width=420,height=175,left=300,top=300');">忘记密码</BUTTON>
        </td>
      </tr>
    </table>
  </form>
</div>
<%end sub%>
<%sub showlog
call shownav("详细点击记录")
dim rs%>
<div class="bt<%=skin%>">
  <%call shownavbar%>
  <%
dim allin,allout
allin = hx.execute("select count(0) from tt_Log where inout=0 and dateandtime>"&SqlNowString&"-3 and username='"&session("username")&"'")(0)
allout = hx.execute("select count(0) from tt_Log where inout=1 and dateandtime>"&SqlNowString&"-3 and username='"&session("username")&"'")(0)
%>
  <div align="center">最近三天点入点出日志统计：点入：<%=allin%>次 点出：<%=allout%>次</div>
  <p align="center">点入记录最近3天的记录</p>
  <table width="95%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#000000">
    <tr align="center" class="tr<%=skin%>">
      <td width="120">时间</td>
      <td width="100">IP地址</td>
      <td>来源</td>
    </tr>
    <%	
	set rs=hx.execute("select * from tt_Log where inout=0 and dateandtime>"&SqlNowString&"-3 and username='"&session("username")&"' order by id desc")
	if rs.eof then
		Response.write "<tr><td colspan=""3"" align=""center"" class=""tr2"">暂时还没有记录</td></tr>"
	else
		do while not rs.eof
	%>
    <tr class="tr<%=skin%>">
      <td><%=rs("dateandtime")%></td>
      <td><%="<a href='http://www.ip138.com/ips.asp?ip="&rs("ip")&"' title='查询此IP地址所在区域' target='_blank'>"&rs("ip")&"</a>"%></td>
      <td><%if trim(rs("come"))="" then
		  	response.write "无"
		  else
		  	response.write "<a href="""&rs("come")&""" target=""_blank"">"&rs("come")&"</a>"
		  end if%></td>
    </tr>
    <%
		rs.movenext
		loop
	end if
	set rs=nothing%>
  </table>
  <p align="center">点出记录最近3天的记录</p>
  <table width="95%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#000000">
    <tr align="center" class="tr<%=skin%>">
      <td width="120">时间</td>
      <td width="100">IP地址</td>
      <td>来源</td>
    </tr>
    <%	
	set rs=hx.execute("select * from tt_Log where inout=1 and dateandtime>"&SqlNowString&"-3 and username='"&session("username")&"' order by id desc")
	if rs.eof then
		Response.write "<tr><td colspan=""3"" align=""center"" class=""tr2"">暂时还没有记录</td></tr>"
	else
		do while not rs.eof
	%>
    <tr class="tr<%=skin%>">
      <td><%=rs("dateandtime")%></td>
      <td><%="<a href='http://www.itlearner.com/ip/ipinfo.asp?ip="&rs("ip")&"' title='查询此IP地址所在区域' target='_blank'>"&rs("ip")&"</a>"%></td>
      <td><%if trim(rs("come"))="" then
		  	response.write "无"
		  else
		  	response.write "<a href="&rs("come")&" target=_blank>"&rs("come")&"</a>"
		  end if%>
      </td>
    </tr>
    <%
		rs.movenext
		loop
	end if
	set rs=nothing%>
  </table>
</div>
<%end sub%>
<%
sub saveedit

dim username,ttname,tturl,ttlogo,email,password,pwdconfirm,webtype,ttinfo,maillist,problem,answer,answerconfirm,problem2
ttname=hx.checkstr(request.form("ttname"),30)
tturl=hx.checkstr(request.form("tturl"),100)
ttlogo=hx.checkstr(request.form("ttlogo"),100)
email=hx.checkstr(request.form("email"),50)
maillist=request.form("maillist")
password=hx.checkstr(request.form("password"),32)
pwdconfirm=hx.checkstr(request.form("pwdconfirm"),32)
problem=hx.checkstr(request.form("problem"),12)
answer=request.form("answer")
answerconfirm=request.form("answerconfirm")
webtype=request.form("webtype")
ttinfo=hx.checkstr(request.form("ttinfo"),100)
problem2=request("problem2")
dim blnerror,strerror
blnerror=false
if session("username")="" then
	blnerror=true
	strerror="<li>意外出错，请重新登陆"
end if
if ttname="" or tturl="" or password="" or problem="" or ttinfo="" or email="" then
	blnerror=true
	strerror=strerror & "<li>请检查是否有必填信息没有填写"
end if
if hx.blnfilter(ttname,1) then
	blnerror = true
	strerror = strerror & "<li>网站名称不能包含某些特殊关键词"
end if
if hx.blnfilter(ttinfo,1) then
	blnerror = true
	strerror = strerror & "<li>网站简介不能包含某些特殊关键词"
end if
if hx.blnfilter(tturl,2) then
	blnerror = true
	strerror = strerror & "<li>此域名已经被屏蔽！</li>"
end if
if not isnumeric(webtype) then
	blnerror=true
	strerror=strerror & "<li>请正确选择网站类型"
end if
if password<>pwdconfirm then
	blnerror=true
	strerror=strerror & "<li>两次密码不相同"
end if
if problem<>problem2 and answer="" then
	blnerror=true
	strerror=strerror & "<li>修改了密码问题请同时修改答案，请重新输入问题和答案"
end if
if answer<>answerconfirm then
	blnerror=true
	strerror=strerror & "<li>两次密码答案不相同，请重新输入问题和答案"
end if

	if blnerror=true then
		call shownav("错误信息")
		response.write "<div class=""mainbar"">"
		response.write strerror
		response.write "<p><< <a href=""javascript:history.go(-1)"">返回上一页 </a> << <a href=""admin.asp"">返回管理首页</a></p>"
		response.write "</div>"
	else
		if ttlogo="" then
			ttlogo="http://" & hx.BaseUrl & "images/wu.gif"
		elseif left(ttlogo,7)<>"http://" then
			ttlogo="http://" & ttlogo
		end if
		if left(tturl,7)<>"http://" then
			tturl="http://" & tturl
		end if
		dim rs,sql
		sql= "select * from tt_Link where username='"&session("username")&"'"
		set rs=server.CreateObject("adodb.recordset")
		rs.open sql,conn,1,3
		rs("email")=email
		rs("maillist")=maillist
		rs("ttname")=ttname
		rs("webtype")=webtype
		if len(password)<32 then
		rs("password")=md5(password)
		end if
		rs("problem")=problem
		if answer<>"" then
		rs("answer")=md5(answer)
		end if
		rs("tturl")=tturl
		rs("ttinfo")=ttinfo
		rs("ttlogo")=ttlogo 
		rs.Update
		rs.close
		set rs=nothing
		call shownav("资料修改成功")
		response.write "<div class=""mainbar"">"
		response.write "<p align=center>资料修改成功</p>"   
		response.write "<p><< <a href=""javascript:history.go(-1)"">返回上一页 </a> << <a href=""admin.asp"">返回管理首页</a> << <a href=""admin.asp?action=exit"">退出管理</a></p>"
		response.write "</div>"	
		'删除系统缓存	
		set hxcache=new cls_cache
		hxcache.DelCahe("js")
		set hxcache=nothing
end if

end sub

sub shownav(str)
%>
<div class="bt<%=skin%>"> 您的位置:<a href="<%=WebUrl%>">首页</a> -- <a href="index.asp"><%=ChannelName%></a> -- <a href="admin.asp" >管理网站信息</a> -- <%=str%>   &nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;选择肤色：
          <select name="skin" id="skin" onChange="javascript:location.href='admin.asp?skin='+document.all.skin.value">
              <option value="1" selected>蓝天白云</option>              
              <option value="2" <%if skin=2 then response.write("selected")%>>水晶紫色</option>
              <option value="3" <%if skin=3 then response.write("selected")%>>秋意盎然</option>
              <option value="4" <%if skin=4 then response.write("selected")%>>粉色回忆</option>
              <option value="5" <%if skin=5 then response.write("selected")%>>浓浓绿意</option>
              <option value="6" <%if skin=6 then response.write("selected")%>>橘子红了</option>
              <option value="7" <%if skin=7 then response.write("selected")%>>青青河草</option>
              <option value="8" <%if skin=8 then response.write("selected")%>>黄金季节</option>
            </select></div>
<%
end sub
%>
<!--#include file="under.asp"-->
<%set hx=nothing%>
</body>
</html>