📄 all_label.asp
字号:
<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_Inc/Function.asp"-->
<!--#include file="../../FS_Inc/md5.asp" -->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_InterFace/NS_Function.asp" -->
<!--#include file="../../FS_Inc/Func_page.asp" -->
<%
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Dim Conn
MF_Default_Conn
'session判断
MF_Session_TF
if not MF_Check_Pop_TF("MF_sPublic") then Err_Show
Dim obj_label_style_Rs,label_style_List
label_style_List=""
Set obj_label_style_Rs = server.CreateObject(G_FS_RS)
obj_label_style_Rs.Open "Select ID,StyleName from FS_MF_Labestyle where StyleType='ME' Order by id desc",Conn,1,3
do while Not obj_label_style_Rs.eof
label_style_List = label_style_List&"<option value="""& obj_label_style_Rs(0)&""">"& obj_label_style_Rs(1)&"</option>"
obj_label_style_Rs.movenext
loop
obj_label_style_Rs.close:set obj_label_style_Rs = nothing
'--------------选择企业会员时按行业分类--载入数据库驱动程序------------------------
Dim User_Conn,FS_UserConnection_Str
if G_IS_SQL_User_DB=0 then
FS_UserConnection_Str = "DBQ=" + Server.MapPath(Add_Root_Dir(G_User_DATABASE_CONN_STR)) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
else
FS_UserConnection_Str = "Provider=SQLOLEDB.1;Persist Security Info=false;"& G_User_DATABASE_CONN_STR &";"
end if
Set User_Conn = Server.CreateObject(G_FS_CONN)
User_Conn.Open FS_UserConnection_Str
'--------------操作数据库-----------------------------------------------------------
Dim obj_VClass_Rs,VC_Class_List
VC_Class_List="<option value=""0"">请选择行业</option>"
Set obj_VClass_Rs = server.CreateObject(G_FS_RS)
obj_VClass_Rs.Open "Select VCID,vClassName from FS_ME_VocationClass Order by VCID desc",User_Conn,1,3
do while Not obj_VClass_Rs.eof
VC_Class_List = VC_Class_List&"<option value="""& obj_VClass_Rs("VCID")&""">"& obj_VClass_Rs("vClassName")&"</option>"
obj_VClass_Rs.movenext
loop
obj_VClass_Rs.close:set obj_VClass_Rs = nothing
'----2007-02-08 会员登陆标签样式列表
Dim Select_Login,GetLoginStrRs,End_Se_Str
Set GetLoginStrRs = Conn.ExeCute("Select [ID],StyleName From FS_MF_Labestyle Where StyleType = 'Login' Order By ID Desc")
Select_Login = "<select name=""Login_StyleID"" id=""Login_StyleID"">" & vbnewline
Select_Login = Select_Login & "<option value="""" selected>选择登陆标签样式</option>" & vbnewline
End_Se_Str = "</select>"
If GetLoginStrRs.Eof Then
Select_Login = Select_Login & End_Se_Str
Else
Do While Not GetLoginStrRs.Eof
Select_Login = Select_Login & "<option value=""" & GetLoginStrRs(0) & """>" & GetLoginStrRs(1) & "</option>"
GetLoginStrRs.MoveNExt
Loop
Select_Login = Select_Login & End_Se_Str
End If
GetLoginStrRs.Close : Set GetLoginStrRs = NOthing
'------
Dim sRootDir,str_CurrPath
if G_VIRTUAL_ROOT_DIR<>"" then sRootDir="/"+G_VIRTUAL_ROOT_DIR else sRootDir=""
If Session("Admin_Is_Super") = 1 then
str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
Else
If Session("Admin_FilesTF") = 0 Then
str_CurrPath = Replace(sRootDir &"/"&G_UP_FILES_DIR&"/adminfiles/"&UCase(md5(Session("Admin_Name"),16)),"//","/")
Else
str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
End If
End if
%>
<html>
<head>
<title>新闻标签管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<base target=self>
</head>
<body class="hback">
<script language="JavaScript" src="../../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
<form name="form1" method="post">
<table width="98%" height="29" border="0" align=center cellpadding="3" cellspacing="1" class="table" valign=absmiddle>
<tr class="hback" >
<td height="27" align="Left" class="xingmu"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="20%" class="xingmu"><strong>常规标签创建</strong></td>
<td width="80%"><div align="right">
<input name="button4" type="button" onClick="window.returnValue='';window.close();" value="关闭">
</div></td>
</tr>
</table></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
<tr class="hback">
<td width="13%" height="15"><div align="center"><a href="All_Label.asp?type=PostionNavi" target="_self">位置导航</a></div></td>
<td width="13%"><div align="center"><a href="All_Label.asp?type=PageTitle" target="_self">页面标题</a><a href="News_C_Label.asp?type=OldNews" target="_self"></a></div></td>
<td width="13%" style="display:none"><div align="center"><a href="All_Label.asp?type=SiteMap" target="_self">站点地图</a></div></td>
<td width="13%"><div align="center"><a href="News_C_Label.asp?type=NorFilt" target="_self"></a><a href="All_Label.asp?type=Search" target="_self">搜索表单</a></div></td>
<td width="13%"><div align="center"><a href="All_Label.asp?type=InfoStat" target="_self">信息统计</a></div></td>
<td width="13%"><div align="center"><a href="All_Label.asp?type=UserLogin" target="_self">用户登陆</a></div></td>
<td width="13%"><div align="center"><a href="All_Label.asp?type=CopyRight" target="_self">版权信息</a></div></td>
<td width="13%"><div align="center"><a href="All_Label.asp?type=SubList" target="_self">子站导航</a></div></td>
</tr>
<tr class="hback" align="center">
<td height="15"><a href="All_Label.asp?type=UserList" target="_self">会员列表</a></td>
<td> </td>
<td style="display:none"> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<%
dim str_type
str_type = Request.QueryString("type")
select case str_type
case "PostionNavi"
Call PostionNavi()
Case "PageTitle"
Call PageTitle()
Case "SiteMap"
Call SiteMap()
Case "Search"
Call Search()
Case "InfoStat"
Call InfoStat()
Case "UserLogin"
Call UserLogin()
Case "CopyRight"
Call CopyRight()
Case "SubList"
Call SubList()
Case "UserList"
Call UserList()
Case else
Call PostionNavi()
end select
Sub PostionNavi()
%>
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
<tr>
<td colspan="2" class="xingmu">位置导航</td>
</tr>
<tr>
<td width="28%" class="hback"><div align="right">分割字符(图片)</div></td>
<td width="72%" class="hback"><input name="NaviChar" type="text" id="NaviChar" value=" >> ">
请使用html语法,请不要使用“$，┆”禁用字符</td>
</tr>
<tr>
<td class="hback"><div align="right">联接CSS</div></td>
<td class="hback"><input name="LinkCSS" type="text" id="LinkCSS">
请不要使用“$，┆”禁用字符</td>
</tr>
<tr>
<td class="hback"><div align="right">弹出窗口</div></td>
<td class="hback" align="left" valign="middle"><select name="OpenMode" id="OpenMode" style="width:130px;">
<option value="0" selected>否</option>
<option value="1">是</option>
</select>
</td>
</tr>
<tr>
<td class="hback"><div align="right">当前位置文字</div></td>
<td class="hback"><input name="Nchar" type="text" id="Nchar" value="正文">
CSS
<input name="NcharCSS" type="text" id="NcharCSS"></td>
</tr>
<tr>
<td class="hback"><div align="right"></div></td>
<td class="hback"><input name="button" type="button" onClick="ok(this.form);" value="确定创建此标签">
<input name="button" type="button" onClick="window.returnValue='';window.close();" value=" 取 消 "></td>
</tr>
</table>
<script language="JavaScript" type="text/JavaScript">
function ok(obj)
{
var retV = '{FS:MF=PostionNavi┆';
retV+='分割字符$' + obj.NaviChar.value + '┆';
retV+='位置文字$' + obj.Nchar.value + '┆';
retV+='位置文字css$' + obj.NcharCSS.value + '┆';
retV+='联接CSS$' + obj.LinkCSS.value + '┆';
retV+='弹出窗口$' + obj.OpenMode.value + '';
retV+='}';
window.parent.returnValue = retV;
window.close();
}
</script>
<%End Sub%>
<%Sub PageTitle()%>
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
<tr>
<td colspan="2" class="xingmu">页面标题</td>
</tr>
<tr>
<td width="28%" class="hback"><div align="right">附属文字</div></td>
<td width="72%" class="hback"><input name="O_Char" type="text" id="O_Char" value="风讯__Foosun.CN">
请不要使用“$，┆”禁用字符</td>
</tr>
<tr>
<td class="hback"><div align="right">附属文字位置</div></td>
<td class="hback"><select name="O_Char_dir" id="O_Char_dir">
<option value="0">前缀</option>
<option value="1" selected>后缀</option>
</select></td>
</tr>
<tr>
<td class="hback"><div align="right">分割字符</div></td>
<td class="hback"><input name="split_char" type="text" id="split_char" value="__">
请不要使用“$，┆”禁用字符</td>
</tr>
<tr>
<td class="hback"><div align="right"></div></td>
<td class="hback"><input name="button" type="button" onClick="ok(this.form);" value="确定创建此标签">
<input name="button" type="button" onClick="window.returnValue='';window.close();" value=" 取 消 "></td>
</tr>
</table>
<script language="JavaScript" type="text/JavaScript">
function ok(obj)
{
var retV = '{FS:MF=PageTitle┆';
retV+='附属文字$' + obj.O_Char.value + '┆';
retV+='附属文字位置$' + obj.O_Char_dir.value + '┆';
retV+='分割字符$' + obj.split_char.value + '';
retV+='}';
window.parent.returnValue = retV;
window.close();
}
</script>
<%End Sub%>
<%Sub SiteMap()%>
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
<tr>
<td colspan="2" class="xingmu">站点地图</td>
</tr>
<tr>
<td width="28%" class="hback"><div align="right">分类标题CSS</div></td>
<td width="72%" class="hback"><input name="TitleCSS" type="text" id="TitleCSS">
请不要使用“$，┆”禁用字符</td>
</tr>
<tr>
<td class="hback"><div align="right">子系统标题CSS</div></td>
<td class="hback"><input name="SubCSS" type="text" id="SubCSS"></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -