📄 admin_label.asp
字号:
return true;
}
window.onerror = HideError;
// -->
</script>
<FORM name=myform action='?action=doexport' method=post>
<table width='100%' border='0' align='center' cellpadding='2' cellspacing='0' class='KenQiao_Net_bk' style='border-collapse: collapse'>
<tr class='KenQiao_Net_ss'>
<td height='22' align='center'><strong>标签导出</strong></td>
</tr>
<tr class='KenQiao_Net_ds'><td height='10'></td></tr>
<tr class='KenQiao_Net_ds'>
<td align='center'>
<table border='0' cellspacing='0' cellpadding='0'>
<tr>
<td>
<select name='TemplateProjectID' size='2' multiple style='height:300px;width:450px;'>
<%
Dim i
Set rs = Server.CreateObject("adodb.recordset")
sql = "select * from 自定义标签"
rs.Open sql, Conn, 1, 1
If Not(rs.bof And rs.EOF) Then
i=0
do while not rs.eof
i=i+1
%>
<option value="<%=rs("LabelID")%>">标签[<%=rs("LabelClass")%>] -- {$MY_<%=rs("LabelName")%>}</option>
<%
rs.movenext
loop
Else
Response.Write"<option value=""0"" selected=""selected"">请先添加方案</option>"
End If
rs.Close
Set rs=nothing
%>
</select>
</td>
<td align='left'> <input type='button' name='Submit' value=' 选定所有 ' class='button' onclick='SelectAll()'>
<br><br> <input type='button' name='Submit' value=' 取消选定 ' class='button' onclick='UnSelectAll()'><br><br><br><b> 提示：按住“Ctrl”或“Shift”键可以多选</b></td>
</tr>
<tr height='30'>
<td colspan='2'>目标数据库：../Databackup/<input name='Itemmdb' type='text' id='ItemMdb' value='#KenQiao_Label.Mdb' size='30' maxlength='50'> <INPUT TYPE='checkbox' NAME='FormatConn' value='1' id='id' checked> 先清空目标数据库</td>
</tr>
<tr height='50'>
<td colspan='2' align='center'><input type='submit' name='Submit' value='执行导出操作' class='button' onClick="return CheckForm();">
</td>
</tr>
</table>
</td>
</tr>
</form>
</table>
<script language='javascript'>
function SelectAll(){
for(var i=0;i<document.myform.TemplateProjectID.length;i++){
document.myform.TemplateProjectID.options[i].selected=true;}
}
function UnSelectAll(){
for(var i=0;i<document.myform.TemplateProjectID.length;i++){
document.myform.TemplateProjectID.options[i].selected=false;}
}
</script>
<%
End Sub
'===================================
'修改标签开始
'===================================
Sub FY_Label_modifya
Dim labelid,Rscc,KenQiao_LabelName,KenQiao_LabelClass,KenQiao_LabelIntro,KenQiao_LabelContent,KenQiao_Priority
labelid=request.QueryString("labelid")
set rscc=server.createobject("adodb.recordset")
sql="select * from 自定义标签 where LabelID="&labelid
rscc.open sql,conn,1,1
if rscc.eof and rscc.bof then
response.write"<script language=javascript>alert('操作错误！该标签不存在');history.go(-1);</script>"
else
KenQiao_LabelName=rscc("LabelName")
KenQiao_LabelClass=rscc("LabelClass")
KenQiao_LabelIntro=rscc("LabelIntro")
KenQiao_LabelContent=rscc("LabelContent")
KenQiao_Priority=rscc("Priority")
response.write "<form action='?action=modify&labelid="&labelid&"' method='post' name='myform' id='myform' onsubmit='return chk(this)'>"
response.write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='KenQiao_Net_bk' style='border-collapse: collapse'>"
response.write "<tr class='KenQiao_Net_ss' height='22'>"
response.write "<td align='center' colspan='4'><strong>修 改 标 签</strong></td>"
response.write "</tr>"
response.write "<tr class='KenQiao_Net_ds'>"
response.write "<td colspan='4'>"
response.write "<table border='0' cellpadding='0' cellspacing='0' width='100%' >"
response.write "<tr>"
response.write "<td width='100' align='center'><strong>标签名称：</strong></td>"
response.write "<td>{$MY_<input name='LabelName' type='text' id='LabelName' value='"&KenQiao_LabelName&"' size='30' maxlength='20'>} <span class='alert'>* 输入名称（英文要注意大小写）即可，不用输入定界符，不可重复。</span></td>"
response.write "</tr>"
response.write "</table>"
response.write "</td>"
response.write "</tr>"
response.write "<tr class='KenQiao_Net_ds'>"
response.write "<td colspan='4'>"
response.write "<table border='0' cellpadding='0' cellspacing='0' width='100%'>"
response.write "<tr>"
response.write "<td width='100' align='center'><strong>标签分类：</strong></td>"
response.write "<td><input name='LabelClass' type='text' id='LabelClass' value='"&KenQiao_LabelClass&"' size='30' maxlength='50'> <select onChange='LabelClass.value=this.value;'><option value=''>新增分类</option>"
Dim rsbb
set rsbb=server.createobject("adodb.recordset")
sql="select distinct (LabelClass) from 自定义标签"
rsbb.open sql,conn,1,1
do while not rsbb.eof
response.write "<option value='"&rsbb("LabelClass")&"'>"&rsbb("LabelClass")&"</option>"
rsbb.movenext
loop
rsbb.close
set rsbb=nothing
response.write "</select></td></tr>"
response.write "</table>"
response.write "</td>"
response.write "</tr>"
response.write "<tr class='KenQiao_Net_ds'>"
response.write "<td colspan='2'>"
response.write "<table border='0' cellpadding='0' cellspacing='0' width='100%' >"
response.write "<tr><td width='100' align='center'><strong>标签简介：</strong></td>"
response.write "<td><textarea name='LabelIntro' cols='96' rows='4' id='LabelIntro'>"&KenQiao_LabelIntro&"</textarea></td></tr>"
response.write "</table></tr>"
response.write "<tr class='KenQiao_Net_ds'>"
response.write "<td colspan='2'>"
response.write "<table border='0' cellpadding='0' cellspacing='0' width='100%'>"
response.write "<tr>"
response.write "<td width='100' align='center'><strong>优 先 级：</strong></td>"
response.write "<td><input name='Priority' type='text' value='"&KenQiao_Priority&"' id='Priority' size='5' maxlength='5'></td>"
response.write "<td width='10'></td>"
response.write "<td><font color='#FF0000'>数字越小，优先级越高。当标签中再嵌套调用其他标签时，就需要决定标签的优先级。</font></td>"
response.write "</tr>"
response.write "</table>"
response.write "</td>"
response.write "</tr>"
response.write "<tr class='KenQiao_Net_qs' height='22'>"
response.write "<td align='center' colspan='3'><strong>标 签 内 容</strong></td>"
response.write "</tr>"
Call KenQiao_BiaoQian()
response.write "<tr class='KenQiao_Net_ds'>"
response.write "<td colspan='2'> "
response.write "<textarea name='LabelContent' ROWS='10' COLS='108'>"&KenQiao_LabelContent&"</textarea>"
response.write "</td>"
response.write "</tr>"
response.write "<tr class='KenQiao_Net_ds'>"
response.write "<td height='40' align='center' colspan='4'>"
response.write "<input name='Submit' type='submit' id='Submit' value=' 保存修改结果 ' class='button'>"
response.write "</td>"
response.write "</tr>"
response.write "</form>"
response.write "</table>"
end if
End Sub
'===================================
'添加标签开始
'===================================
Sub FY_Label_addstat
Dim rsbb
response.write "<form action='?action=addstat2' method='post' name='myform' id='myform' onsubmit='return chk(this)'>"
response.write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='KenQiao_Net_bk' style='border-collapse: collapse'>"
response.write "<tr class='KenQiao_Net_ss' height='22'>"
response.write "<td align='center' colspan='2'><strong>添 加 标 签</strong></td>"
response.write "</tr>"
response.write "<tr class='KenQiao_Net_ds'>"
response.write "<td width='100' align='center'><strong>标签名称：</strong></td>"
response.write "<td>{$MY_<input name='LabelName' type='text' id='LabelName' size='30' maxlength='20'>} <span class='alert'>* 输入名称（英文要注意大小写）即可，不用输入定界符，不可重复。</span></td>"
response.write "</tr>"
response.write "<tr class='KenQiao_Net_ds'>"
response.write "<td width='100' align='center'><strong>标签分类：</strong></td>"
response.write "<td><input name='LabelClass' type='text' id='LabelClass' size='30' maxlength='50'> <select onChange='LabelClass.value=this.value;'><option value=''>新增分类</option>"
set rsbb=server.createobject("adodb.recordset")
sql="select distinct (LabelClass) from 自定义标签"
rsbb.open sql,conn,1,1
do while not rsbb.eof
response.write "<option value='"&rsbb("LabelClass")&"'>"&rsbb("LabelClass")&"</option>"
rsbb.movenext
loop
rsbb.close
set rsbb=nothing
response.write "</select></td>"
response.write "</tr>"
response.write "<tr class='KenQiao_Net_ds'>"
response.write "<td width='100' align='center'><strong>标签简介：</strong></td>"
response.write "<td><textarea name='LabelIntro' cols='96' rows='4' id='LabelIntro'></textarea></td></tr>"
response.write "<tr class='KenQiao_Net_ds'>"
response.write "<td width='100' align='center'><strong>优 先 级：</strong></td>"
response.write "<td><input name='Priority' type='text' value='10' id='Priority' size='5' maxlength='5'> <font color='#FF0000'>数字越小，优先级越高。当标签中再嵌套调用其他标签时，就需要决定标签的优先级。</font></td>"
response.write "</tr>"
response.write "<tr class='KenQiao_Net_qs' height='22'>"
response.write "<td align='center' colspan='2'><strong>标 签 内 容</strong></td>"
response.write "</tr>"
Call KenQiao_BiaoQian()
response.write "<tr class='KenQiao_Net_ds'>"
response.write "<td colspan='2'> "
response.write "<textarea name='LabelContent' ROWS='10' COLS='108'>请输入您自定义的html代码</textarea>"
response.write "</td>"
response.write "</tr>"
response.write "<tr class='KenQiao_Net_ds'>"
response.write "<td height='40' align='center' colspan='2'>"
response.write "<input name='Submit' type='submit' id='Submit' value=' 添 加 ' class='button'>"
response.write "</td>"
response.write "</tr>"
response.write "</form>"
response.write "</table>"
End Sub
'===================================
'自定义标签列表开始
'===================================
Sub FY_Label_Main
Dim myPagesize,sql1,sql2,rsaa
if classtype="" then
rsaafonta="#FF0000"
end if
response.write "<table align=""center"" width=""100%"" border=""1"" cellspacing=""0"" cellpadding=""4"" class=KenQiao_Net_bk style=""border-collapse: collapse"">"
response.write "<tr align=""left"" class=KenQiao_Net_qs>"
response.write "<td colspan=""6""> "
response.write "<a href=""?classtype=""><font color="&rsaafonta&">全部分类</font></a> | "
Dim classtype_D
classtype_D=0
set rsaa=server.createobject("adodb.recordset")
sql="select distinct (LabelClass) from 自定义标签"
rsaa.open sql,conn,1,1
if Not(rsaa.eof and rsaa.bof) then
do while not rsaa.eof
response.write "<a href=""?classtype="&rsaa("LabelClass")&"""><font color="
if classtype=rsaa("LabelClass") then
response.write "#FF0000"
classtype_D=1
end if
response.write ">"&rsaa("LabelClass")&"</font></a> | "
rsaa.movenext
loop
End if
rsaa.close
set rsaa=nothing
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "<br>"
response.write "<table align=""center"" width=""100%"" border=""1"" cellspacing=""0"" cellpadding=""4"" class=KenQiao_Net_bk style=""border-collapse: collapse"">"
response.write "<form action="""" method=""post"" onsubmit=""return chk(this)"">"
response.write "<tr class=KenQiao_Net_ss align=""center"">"
response.write "<td width=""30%"" height=""22"">标签名称</td>"
response.write "<td width=""40"">优先级</td>"
response.write "<td width=""80"">标签分类</td>"
response.write "<td>标签简介</td>"
response.write "<td width=""70"" align=""center"">操作</td>"
response.write "</tr>"
myPagesize=20
set rs=server.createobject("adodb.recordset")
If classtype_D<>1 Then
rs.open "select * from 自定义标签 order by Priority asc",conn,1,1
Else
rs.open "select * from 自定义标签 where LabelClass='"&classtype&"' order by Priority asc",conn,1,1
End if
call myPages(rs,myPagesize)
if rs.recordcount=0 then
response.write "<tr class=KenQiao_Net_ds align=center><td colspan=9>尚未添加标签</td></tr>"
else
'分割
line=myPagesize
dim i
i=1
do while not rs.eof and line>0
'循环开始
response.write "<tr class=KenQiao_Net_ds onmouseout=""this.style.backgroundColor=''"" onmouseover=""this.style.backgroundColor='#BFDFFF'"" style=""padding: 0px 2px;"">"
response.write "<td align='center'><a href=""###"" onclick=""setcopy('{$MY_"&rs("LabelName")&"}', '标签 {$MY_"&rs("LabelName")&"} 复制成功')"">{$MY_"&rs("LabelName")&"}</a></td>"
response.write "<td align='center'>"&rs("Priority")&"</td>"
response.write "<td align='center'>"&rs("LabelClass")&"</td>"
response.write "<td style='word-break:break-all;Width:fixed'><a href='Admin_Label.asp?action=modifya&labelid="&rs("LabelID")&"'>"&rs("LabelIntro")&"</a></td>"
response.write "<td align='center'><a href='Admin_Label.asp?action=modifya&labelid="&rs("LabelID")&"'>修改</a> <a href='Admin_Label.asp?action=del&labelid="&rs("LabelID")&"' onclick=""return confirm('真的要删除此标签吗？如果有文件或模板中使用此标签，请注意修改过来呀！');"">删除</a> </td>"
response.write "</tr>"
'循环结束
rs.movenext
line=line-1
i=i+1
loop
response.write "<tr class=KenQiao_Net_qs><td colspan=4 align='center'> "
call listpages(mycondition,request("listtype"))
response.write "</td><td><center>共 <font color=#FF0000>"&rs.recordcount&"</font> 个标签</center></td></tr>"
rs.close
set rs=nothing
end if
response.write "</form></table>"
End Sub
sub listpages(mycondition,listtype)
if pages<1 then
exit sub
end if
if p>0 then
response.write "<a href="&request.ServerVariables("script_name")&"?classtype="&classtype&"¤tpage=10&p="&p-1&mycondition&"&listtype="&listtype&"><img src=../images/admin/prepre.gif alt=前十页 border=0></a> "
else
response.write "<img src=../images/admin/prepre.gif alt=前十页 border=0> "
end if
'-------------------下面写出当前十个页码
dim i
response.write "<img src=../images/admin/lined.gif border=0><img src=../images/admin/k.gif border=0 width=5>"
for i=1 to 10
if (p*10+i)>pages then exit for
if currentpage=i then
response.write "<b><a style='color:ff6600'"
else
response.write "<a"
end if
response.write " href="&request.ServerVariables("script_name")&"?classtype="&classtype&"¤tpage="&i&"&p="&p&mycondition&"&listtype="&listtype&"><font class=no >"&(p*10+i)&"</font></a></b> <img src=../images/admin/lined.gif border=0><img src=../images/admin/k.gif width=5 border=0>"
next
response.write ""
'--------------------察看下十页的连接
if (p*10+10)<pages then
response.write "<img src=../images/admin/k.gif border=0><a href="&request.ServerVariables("script_name")&"?classtype="&classtype&"¤tpage=1&p="&p+1&mycondition&"&listtype="&listtype&"><img src=../images/admin/nextnext.gif alt=后十页 border=0></a> "
else
response.write "<img src=../images/admin/k.gif border=0><img src=../images/admin/nextnext.gif alt=后十页 border=0> "
end if
'-----------------------------------------------上下页导航
end sub
sub myPages(myRS,mysize) '------mysize为内部变量（主页面没有定义），myRS为主页面传递过来的RS对象（地址传递）
if myRS.eof and myRS.bof then str="没有纪录"
if str="" then
if mysize="" or NOT IsNumeric(mysize) then
mysize=15
end if
myRS.PageSize=mysize
pages=myRS.pagecount
records=myRS.recordcount
On Error Resume Next '取得数字
currentPage=request("currentPage")
if currentPage="" then
currentPage=1
end if
currentPage=CInt(currentPage)
if Err.Number <> 0 Then
currentPage=1
Err.Clear
end if
if currentPage<1 then
currentPage=1
elseIf currentPage>10 then
currentPage=10
end if
'----------------处理p
p=request("p")
if p="" then
p=0
end if
p=CLng(p)
if Err.Number <> 0 Then
p=0
Err.Clear
end if
if p<0 then
p=0
end if
'--判断是否出了页数范围
nowPage=p*10+currentPage
if nowPage>pages then
p=(pages-1)\10
currentPage=((pages-1) mod 10)+1
end if
myRS.absolutepage=p*10+currentPage
else
currentPage=1
records=0
pages=1
end if
end sub
dim pages,records,currentPage,p '--------定义变量，这些变量在主页面中，进行地址传递
call admin_footer()
%></body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -