📄 private.asp

📁 asp源码图片ASP整站
💻 ASP
字号:
<%

' 公用变量
Dim sAction, sPosition
sAction = UCase(Trim(Request.QueryString("action")))
sPosition = "位置：<a href='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 href='/CSS/FS_css.css' rel='stylesheet' type='text/css'>"
	Response.Write "<link rel='stylesheet' type='text/css' href='style.css'>"

	' 输出每页都使用的基本客户端脚本
	Response.Write "<script src='../../SysJS/PublicJS.js' language='JavaScript'></script>"
	Response.Write "<script language='javaScript' SRC='private.js'></SCRIPT>"
	
	Response.Write "</head>"

	Response.Write "<body topmargin='2' leftmargin='2' onclick='SelectVote();' ondragstart='return false;' onselectstart='return false;'>"	
End Sub


' 后台管理模块
Sub Block_Member()

Response.Write "<table width='100%' border='0' cellpadding='1' cellspacing='1' bgcolor='#999999'>" & _
  "<tr bgcolor='#EEEEEE'> " & _
    "<td height='26' colspan='5' valign='middle'>" & _
      "<table width='100%' height='20' border='0' cellpadding='0' cellspacing='0'>" & _
        "<tr>" & _
		 "<td width=85 align='center' alt='新增样式'  onMouseMove='BtnMouseOver(this);' onMouseOut='BtnMouseOver(this);' class='BtnMouseOut'><A class=leftnavi href='list.asp?action=styleadd'>新增样式</a></td>" & _
		 "<td width=2 class='Gray'>|</td>" & _
          "<td width=85 align='center' alt='样式列表'  onMouseMove='BtnMouseOver(this);' onMouseOut='BtnMouseOver(this);' class='BtnMouseOut'><A class=leftnavi href='list.asp'>样式列表</a></td>" & _
		  "<td width=2 class='Gray'>|</td>" & _
          "<td width=85 align='center' alt='获取解释函数'  onMouseMove='BtnMouseOver(this);' onMouseOut='BtnMouseOver(this);' class='BtnMouseOut'><A class=leftnavi href='decode.asp'>获取解释函数</a></td>" & _
		  "<td>&nbsp; </td>" & _
        "</tr>" & _
      "</table>" & _
	  "</td>" & _
  "</tr>" & _
"</table>" & _
"<table width='100%' border='0' cellpadding='0' cellspacing='0'>" & _
"<tr><td height=2 bgcolor=#ffffff></td></tr></table>"
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 + -