admin_main.asp

本代码是一个个人主页

  f=f&"<form name=form method=post action=admin_getpost.asp?type=editmk&id="&rs2("id")&"><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 value='"&UnReplaceStr(rs2("left_name"))&"'></li><li><input type=text name=left_info class=basic_input1 value='"&UnReplaceStr(rs2("left_info"))&"'></li><li><textarea name=left_content cols=30 rows=8>"&UnReplaceStr(rs2("left_content"))&"</textarea></li><li>是否显示:<input type=checkbox name=left_on value=yes "
  if rs2("left_on")<>"" Then
    f=f&"checked"
  end If
  f=f&"> UBB支持:<input type=checkbox name=left_ubb value=yes "
  if rs2("left_ubb")=true Then
  f=f&"checked"
  end If
  f=f&"></li><li>排序ID:<input type=text name=left_pxid size=3 value="&rs2("left_pxid")&"> 请注意模块列表前面的号码，不要填写已经存在的序号</li></ul></div></div></div><div id=button1><input type=submit name=submit value=保存修改 class=button1></div></form>"
  f=f&"</div>"
  response.write f
  rs2.close
  set rs2=nothing
  end If
  Else
    response.write "<div id=admin_right_body><div id=admin_info>已经成功保存设置</div></div>"
  end if
end if
  response.write "执行数据库次数 "&sqlnum
end Function
'====================================skin====================================
function admin_skin()
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_skin order by id desc"
  if skintype="" 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=skin&stype=add>添加皮肤</a></div><div id=admin_right_content_1><div id=admin_right_class_1></div>"
  Do While Not rs.eof
    f=f&"<div>"
	If rs("skin_pic")<>"" Then
	f=f&"<img src="&rs("skin_pic")&">"
	Else
	f=f&"<img src=../images/default.jpg>"
	End If
	f=f&"<br/>名称："&rs("skin_cnname")&" | "
	If rs("skin_default")=0 Then
	  f=f&"<a href=admin_getpost.asp?type=changeskin&id="&rs("id")&">设为默认皮肤</a> | <a href=admin_main.asp?action=skin&stype=2&id="&rs("id")&">编辑</a> | <a href=admin_getpost.asp?type=delskin&id="&rs("id")&">删除</a></div>"
	Else
	  f=f&"<strong>当前默认皮肤</strong></div>"
	End if
  rs.movenext
  loop
  End if
  response.write f
Elseif stype=1 then
response.write "<form name=form method=post action=admin_getpost.asp?type=addskin><div id=admin_right_body><div id=admin_right_title>添加皮肤</div><div id=admin_right_content_1><div id=admin_right_class_1>文件夹名：<input type=text name=skin_name></div><div id=admin_right_class_1>中文名称：<input type=text name=skin_cnname></div><div id=admin_right_class_1>皮肤作者：<input type=text name=skin_author></div><div id=admin_right_class_1>图片地址：<input type=text name=skin_pic></div><div id=button1><input type=submit name=submit value=确定添加 class=button1></div></div></form>"
elseif stype=2 Then
Set rs=server.CreateObject("adodb.recordset")
  sql="select * from blog_skin where id="&id
  rs.open sql,db
  response.write "<form name=form method=post action=admin_getpost.asp?type=editskin><div id=admin_right_body><div id=admin_right_title>修改皮肤</div><div id=admin_right_content_1><div id=admin_right_class_1>文件夹名：<input type=text name=skin_name value='"&rs("skin_name")&"'></div><div id=admin_right_class_1>中文名称：<input type=text name=skin_cnname value='"&rs("skin_cnname")&"'></div><div id=admin_right_class_1>皮肤作者：<input type=text name=skin_author value='"&rs("skin_author")&"'></div><div id=admin_right_class_1>图片地址：<input type=text name=skin_pic value='"&rs("skin_pic")&"'></div><div id=button1><input type=submit name=submit value=确定添加 class=button1></div></div></form>"
end If
end if
End Function
'===================================
'数据库管理
'===================================
Function admin_data()
  if stype="" then
  f="<div id=admin_right_body><div id=admin_right_title>数据库管理</div><div id=admin_right_content_1><div id=admin_right_class_1></div>"
  f=f&"<div id=admin_data1>压缩数据库</div>"
  f=f&"<div id=admin_data2><form method=post action=admin_getpost.asp?type=ys name=form1>数据库位置：<input type=text name=compactdb id=input2 value=../data/fwyblog.mdb> <input type=submit name=submit value=开始 class=button></form></div>"
  f=f&"<div id=admin_data1>备份数据库</div>"
  f=f&"<form method=post action=admin_getpost.asp?type=bf name=form2><div id=admin_data2>当前数据库位置：<input type=text name=dbpath id=input2 value=../data/fwyblog.mdb></div><div id=admin_data2>备份数据库目录：<input type=text name=bkdbfolder id=input2 value=../databack> 目录不存在系统自建</div><div id=admin_data2>备份数据库名称：<input type=text name=bkdbname id=input2 value=fwyblog_bakcup.mdb> <input type=submit name=submit2 value=开始 class=button></div></form>"
  response.write f
  elseif stype=1 Then
    response.write "<div id=admin_right_body><div id=admin_info>已经成功压缩</div></div>"
  elseif stype=2 Then
    response.write "<div id=admin_right_body><div id=admin_info>数据库路径不对</div></div>"
  elseif stype=3 Then
    response.write "<div id=admin_right_body><div id=admin_info>不是合法数据库</div></div>"
  elseif stype=4 Then
    response.write "<div id=admin_right_body><div id=admin_info>已经成功备份</div></div>" 
  end if
End Function
'===================================
'友情链接管理
'===================================
Function admin_link()
if txtname<>"" Then
  response.write "<div id=admin_right_body><div id=admin_info><strong>"&txtname&"</strong>的最长字符数为:"&length&",请注意！</div></div>"
else
  Set rs=server.CreateObject("adodb.recordset")
  sql="select * from blog_links order by id desc"
  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=link>链接列表</a> | <a href=admin_main.asp?action=link&stype=1>添加链接</a></div><div id=admin_right_content_1><div id=admin_right_class_1><ul><li id=a><strong>ID</strong></li><li id=b><strong>链接名称</strong></li><li id=c><strong>链接说明</strong></li><li id=d><strong>操作</strong></li></ul></div>"
  If Not rs.eof Then
  Do While Not rs.eof
  f=f&"<div id=admin_right_class_1><ul><li id=a>"&rs("id")&"</li><li id=b>"&rs("link_name")&"</li><li id=c>"&rs("link_info")&"</li><li id=d><a href=admin_main.asp?action=link&stype=2&id="&rs("id")&">编辑</a> | <a href=admin_getpost.asp?type=dellink&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 
  Set rs=nothing
  f=f&"</div></div>"
  If stype=1 Then
    f=f&"<form name=form method=post action=admin_getpost.asp?type=addlink><div id=admin_right_body><div id=admin_right_title>添加链接</div><div id=admin_right_content_1><div id=admin_right_class_1>链接名称：<input type=text name=link_name></div><div id=admin_right_class_1>链接说明：<input type=text name=link_info></div><div id=admin_right_class_1>链接地址：<input type=text name=link_address></div><div id=button1><input type=submit name=submit value=确定添加 class=button1></div></div></form>"
  ElseIf stype=2 Then
    Set rs=server.CreateObject("adodb.recordset")
	sql="select * from blog_links where id="&id
	rs.open sql,db
	link_name=rs("link_name")
    f=f&"<form name=form method=post action=admin_getpost.asp?type=editlink&id="&rs("id")&"><div id=admin_right_body><div id=admin_right_title>添加链接</div><div id=admin_right_content_1><div id=admin_right_class_1>链接名称：<input type=text name=link_name value='"&link_name&"'></div><div id=admin_right_class_1>链接说明：<input type=text name=link_info value='"&rs("link_info")&"'></div><div id=admin_right_class_1>链接地址：<input type=text name=link_address value='"&rs("link_address")&"'></div><div id=button1><input type=submit name=submit value=确定添加 class=button1></div></div></form>"
    Set rs=nothing
  End if
  response.write f
end if
End Function
'===================================
'友情链接管理
'===================================
function admin_key()
  response.write "<div id=admin_right_body><div id=admin_info>此版作用太小，暂时不能使用</div></div>"
end Function

function admin_ca()
  recentcomments(2)
  blog_skin(2)
  blog_tags(2)
  blog_class(2)
  links(2)
  blog_zd(2)
  recentarticles(2)
  response.write "<div id=admin_right_body><div id=admin_info>已经成功清除</div></div>"
end function


Function GetSysInfo(InfoType)
  Dim WshShell,WshSysEnv
  Set WshShell = Server.CreateObject("WScript.Shell")
  Set WshSysEnv = WshShell.Environment("SYSTEM")
  If InfoType="CPUNums" Then
		GetSysInfo=Cstr(WshSysEnv("NUMBER_OF_PROCESSORS"))
		If IsNull(GetSysInfo) Then
			GetSysInfo = Request.ServerVariables("NUMBER_OF_PROCESSORS")
		ElseIf GetSysInfo="" Then
			GetSysInfo = Request.ServerVariables("NUMBER_OF_PROCESSORS")
		End If
	ElseIf InfoType="CPUInfo" Then
		GetSysInfo = Cstr(WshSysEnv("PROCESSOR_IDENTIFIER"))
	ElseIf InfoType="OSInfo" Then
		GetSysInfo = Cstr(WshSysEnv("OS"))
		If Request.ServerVariables("OS")="" Then GetSysInfo=GetSysInfo & "(可能是 Windows Server 2003)"
	End If 
End Function

Function CheckObjInstalled(strClassString)
	On Error Resume Next
	Dim TmpObj
	Set TmpObj = Server.CreateObject(strClassString)
	If Err = 0 OR Err = -2147221477 Then
		CheckObjInstalled= "<font color=""#00FF00""><b>√</b></font>"
	ElseIF Err = 1 OR Err = -2147221005 Then
		CheckObjInstalled="<font color=""#FF0000""><b>×</b></font>"
	End If
	Err.Clear
	Set TmpObj = Nothing
End Function

Select Case action
  Case "menu":MainMenu()
  Case "info":admin_info()
  Case "basic":admin_basic()
  Case "class":admin_class()
  Case "rz":admin_rz()
  Case "pl":admin_pl()
  Case "ly":admin_ly()
  case "mk":admin_mk()
  Case "skin":admin_skin()
  Case "data":admin_data()
  Case "link":admin_link()
  case "key":admin_key()
  case "ca":admin_ca()
  Case Else MainForm()
End Select 
%>
</body>
</html>