?? admin_private.asp
字號:
<%
If Session("eWebEditor_User") = "" Then
Response.Redirect "admin_login.asp"
Response.End
End If
' 公用變量
Dim sAction, sPosition
sAction = UCase(Trim(Request.QueryString("action")))
sPosition = "位置：<a href='admin_default.asp'>后臺管理</a> / "
' ********************************************
' 以下為頁面公用區函數
' ********************************************
' ============================================
' 輸出每頁公用的頂部內容
' ============================================
Sub Header()
Response.Write "<html><head>"
' 輸出 meta 標記
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & _
"<meta name='Author' content='Andy.m'>" & _
"<link rev=MADE href='mailto:webmaster@webasp.net'>"
' 輸出標題
Response.Write "<title>eWebEditor - eWebSoft在線文本編輯器 - 后臺管理</title>"
' 輸出每頁都使用的基本樣式表
Response.Write "<link rel='stylesheet' type='text/css' href='admin/style.css'>"
' 輸出每頁都使用的基本客戶端腳本
Response.Write "<script language='javaScript' SRC='admin/private.js'></SCRIPT>"
Response.Write "</head>"
Response.Write "<body topmargin=0 leftmargin=0 bgcolor=#ffffff>"
Response.Write "<a name=top></a>"
' 輸出頁面頂部(Header1)
Response.Write "<table border=0 cellpadding=0 cellspacing=0 height=41 width=778 align=center class=header1>" & _
"<tr><td width=170 height=13></td><td width=608 rowspan=2 valign=top>" & _
"<table border=0 cellpadding=0 cellspacing=0 width='100%'><tr><td height=7></td></tr><tr><td>"
Response.Write "<table border=0 cellpadding=0 cellspacing=0 width='100%'>" & _
"<tr>" & _
"<td width=300></td>" & _
"<td class=header1><a href='admin_default.asp'>后臺管理首頁</a></td>" & _
"<td class=header1><a href='admin_login.asp?action=out'>退出后臺管理并返回登錄頁</a></td>" & _
"</tr>" & _
"</table>"
Response.Write "</td></tr></table>" & _
"</td></tr><tr><td width=170 height=19 align=center valign=top>" & Application("date_chinese") & "</td></tr>" & _
"<tr><td height=9 colspan=2></td></tr>" & _
"</table>"
' 頁面左邊內容
Response.Write "<table border=0 cellpadding=0 cellspacing=0 width=778 align=center>" & _
"<tr valign=top>" & _
"<td width=175 class=leftbg>" & _
"<table border=0 cellpadding=0 cellspacing=0 width='100%' class=lefttext>"
' 后臺管理模塊
Call Block_Member()
Response.Write "</table>" & _
"</td>" & _
"<td width=20></td>" & _
"<td width=575>" & _
"<table border=0 cellpadding=0 cellspacing=0 width='100%'><tr><td>" & sPosition & "</td></tr><tr><td height=5></td></tr></table>"
End Sub
' ============================================
' 輸出每頁公用的底部內容
' ============================================
Sub Footer()
' 釋放數據連接對象
Call DBConnEnd()
Response.Write "</td>"
Response.Write "<td width=7></td><td width=1 class=rightbg></td>"
Response.Write "</tr></table>"
' 底部導航
Response.Write "<table border=0 cellpadding=0 cellspacing=0 width=778 align=center height=23 class=footer1>" & _
"<tr valign=bottom>" & _
"<td> <a href='http://www.webasp.net'><IMG src='admin/c_webasp.gif' border=0></a></td>" & _
"<td align=right><a href='admin_default.asp' title='首頁'><img src='admin/c_dian1.gif' width=15 height=15 border=0></a> <a href='#top' title='返回頁首'><img src='admin/c_dian3.gif' width=15 height=15 border=0></a> <a href='javascript:window.close()' title='關閉窗口'><img src='admin/c_dian4.gif' width=15 height=15 border=0></a> </td>" & _
"</tr>" & _
"</table>"
Response.Write "<table border=0 cellpadding=0 cellspacing=3 align=center class=footer2>" & _
"<tr>" & _
"<td align=center>Copyright © 2003-2004 <b>webasp<font color=#CC0000>.net</font></b> <b>eWebSoft<font color=#CC0000>.com</font></b>, All Rights Reserved .</td>" & _
"</tr>" & _
"<tr>" & _
"<td align=center><a href='mailto:webmaster@webasp.net'>webmaster@webasp.net</a></td>" & _
"</tr>" & _
"</table>"
Response.Write "</body></html>"
End Sub
' 后臺管理模塊
Sub Block_Member()
Response.Write "<tr><td align=center>" & _
"<table class=leftblock border=0 cellpadding=0 cellspacing=0>" & _
"<tr><th>后臺管理</th></tr>" & _
"<tr><td>" & _
"<table border=0 cellpadding=0 cellspacing=3 align=center width='100%'>" & _
"<tr><td>→ <A class=leftnavi href='admin_style.asp'>樣式管理</a></td></tr>" & _
"<tr><td>→ <A class=leftnavi href='admin_decode.asp'>獲取解釋函數</a></td></tr>" & _
"<tr><td>→ <A class=leftnavi href='admin_uploadfile.asp'>上傳文件管理</a></td></tr>" & _
"<tr><td>→ <A class=leftnavi href='admin_modipwd.asp'>用戶名及密碼修改</a></td></tr>" & _
"<tr><td>→ <A class=leftnavi href='admin_login.asp?action=out'>退出</a></td></tr>" & _
"</table>" & _
"</td></tr>" & _
"</table>" & _
"</td></tr>"
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 = "<select name='" & s_FieldName & "' size=1>"
If s_AllName <> "" Then
InitSelect = InitSelect & "<option value=''>" & s_AllName & "</option>"
End If
If s_Sql <> "" Then
oRs.Open s_Sql, oConn, 0, 1
Do While Not oRs.Eof
InitSelect = InitSelect & "<option value=""" & inHTML(oRs(1)) & """"
If oRs(1) = v_InitValue Then
InitSelect = InitSelect & " selected"
End If
InitSelect = InitSelect & ">" & outHTML(oRs(0)) & "</option>"
oRs.MoveNext
Loop
oRs.Close
Else
For i = 0 To UBound(a_Name)
InitSelect = InitSelect & "<option value=""" & inHTML(a_Value(i)) & """"
If a_Value(i) = v_InitValue Then
InitSelect = InitSelect & " selected"
End If
InitSelect = InitSelect & ">" & outHTML(a_Name(i)) & "</option>"
Next
End If
InitSelect = InitSelect & "</select>"
End Function
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -