admin_main.asp

本代码是一个个人主页

  f=f&"<a href=admin_getpost.asp?type=rzyc&done=0&id="&rs("id")&">不隐藏</a>"
  End If
  If rs("content_top")=0 Then
  f=f&"| <a href=admin_getpost.asp?type=rzzd&done=1&id="&rs("id")&">置顶</a>"
  Else
  f=f&"| <a href=admin_getpost.asp?type=rzzd&done=0&id="&rs("id")&">不置顶</a>"
  End If
  If rs("content_nopl")=0 Then
  f=f&"| <a href=admin_getpost.asp?type=rzpl&done=0&id="&rs("id")&">不评论</a>"
  Else
  f=f&"| <a href=admin_getpost.asp?type=rzpl&done=1&id="&rs("id")&">要评论</a>"
  End If
  f=f&"| <a href=admin_getpost.asp?type=del&blogid="&rs("content_groupid")&"&id="&rs("id")&" onclick=""{if(confirm('注意：此操作会删除该日志和其所有评论，且不能恢复，真的要删除吗？')){return true;}return false;}"">删除</a></li></ul></div>"
  rs.movenext
  Loop
  Else
  f=f&"<div id=admin_right_class_1>还没有日志，请添加</div>"
  End If 
  f=f&"<div id=button1><input type=submit class=button1 value=确定删除? onclick=""{if(confirm('注意：此操作会删除你所选择的所有日志，且不能恢复，真的要删除吗？')){return true;}return false;}""></div></form></div></div>"
  response.write f
  response.write "<div>"&fy("admin_main.asp?action=rz&")&"共有"&rs.recordcount&"篇日志  当前第"&page_no&"页</div>"
  response.write "执行数据库次数 "&sqlnum
  rs.close
  Set rs=Nothing
Else
  response.write "<div id=admin_right_body><div id=admin_info>已经成功保存设置</div></div>"
end if
End Function 
'留言＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Function admin_ly()
if mktype="" then
  Set rs=server.CreateObject("adodb.recordset")
  if stype="" Then
    sql="select * from blog_ly where ly_gk=true order by id desc"
  Else
    sql="select * from blog_ly where ly_gk=false order by id desc"
  end if
  rs.open sql,db,1,3
  sqlnum=sqlnum+1
  f="<div id=admin_right_body><div id=admin_right_title><a href=admin_main.asp?action=ly>留言列表</a> | <a href=admin_main.asp?action=ly&stype=1>隐藏留言</a></div><div id=admin_right_content_1><div id=admin_right_class_1><ul><li id=a2><strong>删除</strong></li><li id=a2><strong>ID</strong></li><li id=b><strong>作者</strong></li><li id=c><strong>是否公开 | 发表时间</strong></li><li id=d><strong>操作</strong></li></ul></div><form name=form1 id=form1 method=post action=admin_getpost.asp?type=lyalldel>"
  if not rs.bof and not rs.eof then
    page_size=20
    if request("page_no")="" then
      page_no=1
    else
      page_no=cint(request("page_no"))
    end if
    session("page_no")=page_no
    rs.pagesize=page_size	
    page_total=rs.pagecount
    rs.absolutepage=page_no
    i=0
    j=page_size
  Do While Not rs.eof and j>0
  i=i+1
  j=j-1
  ii=ii+1
  If rs("ly_gk")=True Then
    ly_gk="是"
  Else
    ly_gk="否"
  End If 
  f=f&"<div id=admin_right_class_1><ul><li id=a2><input type=checkbox name=box"&ii&" value="&rs("id")&"></li><li id=a2>"&rs("id")&"</li><li id=b>"&rs("ly_author")&"</li><li id=c>"&ly_gk&" | "&rs("ly_date")&"</li><li id=d><a href=../getpost.asp?type=delly&id="&rs("id")&" onclick=""{if(confirm('真的要删除吗？')){return true;}return false;}"">删除</a></li></ul></div>"
  rs.movenext
  Loop
  Else
  f=f&"<div id=admin_right_class_1>还没有任何留言</div>"
  End If 
  f=f&"</form></div></div>"
  response.write f
  response.write "<div>"&fy("admin_main.asp?action=rz&")&"共有"&rs.recordcount&"篇留言 | 当前第"&page_no&"页</div></div>"
  response.write "执行数据库次数 "&sqlnum
  rs.close
  Set rs=Nothing
Else
  response.write "<div id=admin_right_body><div id=admin_info>-------开发中-------</div></div>"
end if
End Function
'============================================
'评论
'==============================================
Function admin_pl()
  Set rs=server.CreateObject("adodb.recordset")
  sql="select * from blog_pl order by id desc"
  rs.open sql,db,1,3
  sqlnum=sqlnum+1
  f="<div id=admin_right_body><div id=admin_right_title>评论列表</div><div id=admin_right_content_1><div id=admin_right_class_1><ul><li id=a2><strong>删除</strong></li><li id=a2><strong>ID</strong></li><li id=b><strong>作者</strong></li><li id=c><strong>评论日志ID | 发表时间</strong></li><li id=d><strong>操作</strong></li></ul></div><form name=form1 id=form1 method=post action=admin_getpost.asp?type=plalldel>"
  if not rs.bof and not rs.eof then
    page_size=20
    if request("page_no")="" then
      page_no=1
    else
      page_no=cint(request("page_no"))
    end if
    session("page_no")=page_no
    rs.pagesize=page_size	
    page_total=rs.pagecount
    rs.absolutepage=page_no
    i=0
    j=page_size
  Do While Not rs.eof and j>0
  i=i+1
  j=j-1
  ii=ii+1
  f=f&"<div id=admin_right_class_1><ul><li id=a2><input type=checkbox name=box"&ii&" value="&rs("id")&"></li><li id=a2>"&rs("id")&"</li><li id=b>"&rs("pl_author")&"</li><li id=c>"&rs("pl_contentid")&"/"&rs("pl_date")&" "&rs("pl_time")&"</li><li id=d><a href=admin_getpost.asp?type=delpl&id="&rs("id")&" onclick=""{if(confirm('真的要删除吗？')){return true;}return false;}"">删除</a></li></ul></div>"
  rs.movenext
  Loop
  Else
  f=f&"<div id=admin_right_class_1>还没有任何评论</div>"
  End If 
  f=f&"</form></div></div>"
  response.write f
  response.write "<div>"&fy("admin_main.asp?action=rz&")&"共有"&rs.recordcount&"篇评论 | 当前第"&page_no&"页</div></div>"
  response.write "执行数据库次数 "&sqlnum
  rs.close
  Set rs=nothing
End Function
'============================================
'模块
'==============================================
function admin_mk()
if txtname<>"" Then
  response.write "<div id=admin_right_body><div id=admin_info><strong>"&txtname&"</strong>的最长字符数为:"&length&",请注意！</div></div>"
Else
  if stype="" then
  Set rs=server.CreateObject("adodb.recordset")
  sql="select * from blog_left order by left_pxid asc"
  if mktype="" then
  rs.open sql,db
  sqlnum=sqlnum+1
  f="<div id=admin_right_body><div id=admin_right_title>模块列表 | <a href=admin_main.asp?action=mk&mktype=px>模块排序</a> | <a href=admin_main.asp?action=mk&mktype=add>添加模块</a></div><div id=admin_right_content_1><div id=admin_right_class_1><ul><li id=a2><strong>排序ID</strong></li><li id=b2><strong>名称</strong></li><li id=c2><strong>说明</strong></li><li id=d2><strong>是否显示</strong></li><li id=d2><strong>操作</strong></li></ul></div>"
  if not rs.eof then
  Do While Not rs.eof
  if rs("left_on")<>"" Then
    left_on="Yes"
  Else
    left_on="No"
  end if 
  if rs("left_lock")="yes" Then
    left_lock="编辑 | 删除"
  Else
    left_lock="<a href=admin_main.asp?action=mk&mktype=edit&id="&rs("id")&">编辑</a> | <a href=admin_getpost.asp?type=delmk&id="&rs("id")&" onclick=""{if(confirm('确定要删除吗?此操不能恢复！')){return true;}return false;}"">删除</a>"
  end if
  f=f&"<div id=admin_right_class_1><ul><li id=a2>"&rs("left_pxid")&"</li><li id=b2>"&rs("left_name")&"</li><li id=c2>"&rs("left_info")&"</li><li id=d2>"&left_on&"</li><li id=d2>"&left_lock&"</li></ul></div>"
  rs.movenext
  Loop
  Else
  f=f&"<div id=admin_right_class_1>数据库严重错误，建议恢复！</div>"
  End If 
  rs.close
  Set rs=nothing
  f=f&"</div></div>"
  response.write f
  elseif mktype="px" Then
  rs.open sql,db
  sqlnum=sqlnum+1
  i=0
  f="<div id=admin_right_body><div id=admin_right_title><a href=admin_main.asp?action=mk>模块列表</a> | 模块排序 | <a href=admin_main.asp?action=mk&mktype=add>添加模块</a></div><div id=admin_right_content_1><div id=admin_right_class_1><ul><li id=a2><strong>排序ID</strong></li><li id=b2><strong>名称</strong></li><li id=c2><strong>说明</strong></li><li id=d2><strong>是否显示</strong></li><li id=d2><strong>输入排序号</strong></li></ul></div><form name=form method=post action=admin_getpost.asp?type=px>"
  if not rs.eof then
  Do While Not rs.eof
  i=i+1
  if rs("left_on")<>"" Then
    left_on="Yes"
  Else
    left_on="No"
  end if 
  f=f&"<div id=admin_right_class_1><ul><li id=a2>"&rs("left_pxid")&"</li><li id=b2>"&rs("left_name")&"</li><li id=c2>"&rs("left_info")&"</li><li id=d2>"&left_on&"</li><li id=d2> <input type=text name=pxid"&i&" value="&rs("left_pxid")&" id=input1><input type=hidden name=left_id"&i&" value="&rs("id")&"></li></ul></div>"
  rs.movenext
  Loop
  Else
  f=f&"<div id=admin_right_class_1>数据库严重错误，建议恢复！</div>"
  End If 
  session("pxidnum")=i
  rs.close
  Set rs=nothing
  f=f&"<div id=button1><input type=submit value=确定 name=submti class=button1></div></div></div></form>"
  response.write f
  elseif mktype="add" Then
  f="<div id=admin_right_body><div id=admin_right_title><a href=admin_main.asp?action=mk>模块列表</a> | <a href=admin_main.asp?action=mk&mktype=px>模块排序</a> | 添加模块</div><div id=admin_right_title><strong>添加模块</strong></div>"
  f=f&"<form name=form action=admin_getpost.asp?type=addmk method=post><div id=admin_right_content><div id=admin_right_content_1><div id=admin_right_content_2>	  <ul><li>模块名称：</li><li>模块描述：</li><li>内容：</li></ul></div><div id=admin_right_content_3>	  <ul><li><input type=text name=left_name class=basic_input1></li><li><input type=text name=left_info class=basic_input1></li><li><textarea name=left_content cols=30 rows=8></textarea></li><li>是否显示:<input type=checkbox name=left_on value=yes> UBB支持:<input type=checkbox name=left_ubb value=yes></li><li>排序ID:<input type=text name=left_pxid size=3> 请注意模块列表前面的号码，不要填写已经存在的序号</li></ul></div></div></div><div id=button1><input type=submit name=submit value=确定添加 class=button1></div></form>"
  f=f&"</div>"
  response.write f
  elseif mktype="edit" Then
  set rs2=server.createobject("adodb.recordset")
  sql="select id,left_name,left_info,left_content,left_on,left_ubb,left_pxid from blog_left where id="&id
  rs2.open sql,db
  f="<div id=admin_right_body><div id=admin_right_title><a href=admin_main.asp?action=mk>模块列表</a> | <a href=admin_main.asp?action=mk&mktype=px>模块排序</a> | <a href=admin_main.asp?action=mk&mktype=add>添加模块</a></div><div id=admin_right_title><strong>修改模块</strong></div>"