<% '☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆ '★ ★ '☆ eWebEditor - eWebSoft在线编辑器 ☆ '★ ★ '☆ 版权所有: eWebSoft.com ☆ '★ ★ '☆ 程序制作: eWeb开发团队 ☆ '★ email:webmaster@webasp.net ★ '☆ QQ:589808 ☆ '★ ★ '☆ 相关网址: [产品介绍]http://www.eWebSoft.com/Product/eWebEditor/ ☆ '★ [支持论坛]http://bbs.eWebSoft.com/ ★ '☆ ☆ '★ 主页地址: http://www.eWebSoft.com/ eWebSoft团队及产品 ★ '☆ http://www.webasp.net/ WEB技术及应用资源网站 ☆ '★ http://bbs.webasp.net/ WEB技术交流论坛 ★ '★ ★ '☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆ %> <% If Session("eWebEditor_User") = "" Then Response.Redirect "admin_login.asp" Response.End End If ' 执行每天只需处理一次的事件 Call BrandNewDay() ' 初始化数据库连接 Call DBConnBegin() ' 公用变量 Dim sAction, sPosition sAction = UCase(Trim(Request.QueryString("action"))) sPosition = "位置：后台管理 / " ' ******************************************** ' 以下为页面公用区函数 ' ******************************************** ' ============================================ ' 输出每页公用的顶部内容 ' ============================================ Sub Header() Response.Write "" ' 输出 meta 标记 Response.Write "" & _ "" & _ "" ' 输出标题 Response.Write "eWebEditor - eWebSoft在线文本编辑器 - 后台管理" ' 输出每页都使用的基本样式表 Response.Write "" ' 输出每页都使用的基本客户端脚本 Response.Write "" Response.Write "" Response.Write "" Response.Write "" ' 输出页面顶部(Header1) Response.Write "" & _ "" & _ "" & _ "
" & _ "
" Response.Write "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "
后台管理首页退出后台管理并返回登录页
" Response.Write "
" & _ "
" & Application("date_chinese") & "
" ' 页面左边内容 Response.Write "" & _ "" & _ "" & _ "" & _ "" Response.Write "" Response.Write "
" & _ "" ' 后台管理模块 Call Block_Member() Response.Write "
" & _ "		" & _ "
" & sPosition & "
" End Sub ' ============================================ ' 输出每页公用的底部内容 ' ============================================ Sub Footer() ' 释放数据连接对象 Call DBConnEnd() Response.Write "
" ' 底部导航 Response.Write "" & _ "" & _ "" & _ "" & _ "" & _ "
  　　  
" Response.Write "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "
Copyright © 2003-2004 webasp.net eWebSoft.com, All Rights Reserved .
webmaster@webasp.net
" Response.Write "" End Sub ' 后台管理模块 Sub Block_Member() Response.Write "" & _ "" & _ "" & _ "" & _ "
后台管理
" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "
→ 样式管理
→ 获取解释函数
→ 上传文件管理
→ 用户名及密码修改
→ 退出
" & _ "
" & _ "" End Sub ' =============================================== ' 初始化下拉框 ' s_FieldName : 返回的下拉框名 ' a_Name : 定值名数组 ' a_Value : 定值值数组 ' v_InitValue : 初始值 ' s_Sql : 从数据库中取值时,select name,value from table ' s_AllName : 空值的名称,如:"全部","所有","默认" ' =============================================== Function InitSelect(s_FieldName, a_Name, a_Value, v_InitValue, s_Sql, s_AllName) Dim i InitSelect = "" End Function %>