📄 admin_tags.asp
字号:
<td align="center"> <%
if rs("iNum")<>"" then
response.write rs("iNum")
else
response.write "0"
end if
%> </td>
<td align="center"><%
if rs("iState")=1 then
response.write "<font color=red>正在使用</font>"
else
response.write "被禁止"
end if
%></td>
<td align="center"><%
response.write "<a href='admin_tags.asp?Action=Modify&TagID=" & rs("TagID") & "'>修改</a> "
if rs("iState")=1 then
response.write "<a href='admin_tags.asp?Action=Lock&TagID=" & rs("TagID") & "'>锁定</a> "
else
response.write "<a href='admin_tags.asp?Action=UnLock&TagID=" & rs("TagID") & "'>解锁</a> "
end if
%> </td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="200" height="30"><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
选中本页显示的所有TAG</td>
<td> <strong>操作：</strong>
<input name="Action" type="radio" value="batchlock" checked onClick="document.myform.tagNames.disabled=true;document.myform.tagIds.disabled=true">
锁定
<input name="Action" type="radio" value="merge" onClick="document.myform.tagNames.disabled=false;document.myform.tagIds.disabled=false">合并为
<input type="text" name="tagNames" id="tagNames" disabled> 合并后的ID:<input type="text" name="tagIds" id="tagIds" size=10 disabled>
<input type="submit" name="Submit" value=" 执 行 "> </td>
</tr>
</table>
</td>
</form></tr></table>
<%
end sub
sub Modify()
dim TagID
dim rst,sSql
TagID=trim(request("TagID"))
if TagID="" then
FoundErr=true
ErrMsg=ErrMsg & "<br><li>参数不足！</li>"
exit sub
else
TagID=Clng(TagID)
end if
Set rst=Server.CreateObject("Adodb.RecordSet")
sSql="select * from oblog_Tags where TagID=" & TagID
if not IsObject(conn) then link_database
rst.Open sSql,Conn,1,3
if rst.bof and rst.eof then
FoundErr=true
ErrMsg=ErrMsg & "<br><li>找不到指定的 TAG ！</li>"
rst.close
Set rst=nothing
exit sub
end if
%>
<FORM name="Form1" action="admin_tags.asp" method="post">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
<TR class='title'>
<TD height=22 colSpan=2 align="center"><b><font color="#FFFFFF">修改注册 TAG 信息</font></b></TD>
</TR>
<TR class="tdbg" >
<TD width="40%"> TAG 名：</TD>
<TD width="60%"><input type="text" name="name" value="<%=rst("Name")%>" size=50></TD>
<input type="hidden" value="<%=rst("Tagid")%>" name="TagID">
</TR>
<TR class="tdbg" >
<TD width="40%"> TAG 状态：</TD>
<TD width="60%"><input type="radio" name="iState" value=1 <%if rst("iState")=1 then response.write "checked"%>>
正常 <input type="radio" name="iState" value=0 <%if rst("iState")=0 then response.write "checked"%>>
锁定</TD>
</TR>
<TR class="tdbg" >
<TD height="40" colspan="2" align="center"><input name="Action" type="hidden" id="Action" value="SaveModify"> <input name=Submit type=submit id="Submit" value="保存修改结果"></TD>
</TR>
</TABLE>
</form>
<%
rst.close
Set rst=nothing
end sub
Sub BatchLock()
Dim sID
sId=Request.Form("TagId")
conn.Execute("Update oblog_Tags Set iState=0 Where TagId In (" & sID & ")")
oblog.showok "批量锁定成功!",""
End Sub
Sub MergeTags()
Dim sIDs,sTargetId,sTargetName,aTags,i,sIDs0, rst,rst1,sSql,sTags,sTagsId,j
sIDs=Trim(Request.Form("TagId"))
sTargetName=Trim(Request.Form("tagNames"))
sTargetId=Trim(Request.Form("tagIds"))
If sIds="" Then
FoundErr=true
ErrMsg=ErrMsg & "<br><li>参数不足！</li>"
exit sub
End If
sIDs=Replace(sIDs," ","")
aTags=Split(sIDs,",")
sIDs0=sIDs
If Right(sIDs,1)<>"," Then sIDs=sIDs & ","
If Left(sIDs,1)<>"," Then sIDs= "," & sIDs
If Instr(1,sIDs,"," & sTargetId & ",",1)<=0 Then
FoundErr=true
ErrMsg=ErrMsg & "<br><li>目标ID不正确，必须包含在" & Replace(sIDs,","," ")&"之间</li>"
exit sub
End If
'首先更oblog_Tags的数据
Call conn.Execute("Update oblog_tags Set Name='" &sTargetName & "' Where TagId=" & sTargetId )
'替换掉该ID
sIDs=Replace(sIDs,"," & sTargetId & ",","")
If Left(sIDs,1)="," Then sIDs=Right(sIDs,Len(sIDs)-1)
If Right(sIDs,1)="," Then sIDs=Left(sIDs,Len(sIDs)-1)
'并删除其他数据,注意SQL SERVER
Call conn.Execute("Delete * From oblog_tags Where TagId IN (" & sIDs & ")" )
'清理已经使用的用户TAG表，记录这些日志的ID，然后重新添加一条新的TAG ID数据
'获取唯一数据
Set rst=Server.CreateObject("Adodb.Recordset")
sSql="Select a.logId,a.UserId From (Select Userid,logId From oblog_Usertags Where TagId In (" & sIDs0 & ")) a Group by a.logId,a.UserId"
Response.Write sSql
rst.Open sSql,conn,1,3
'重新进行系统计数
Call conn.Execute("Update oblog_tags Set iNum=" & rst.Recordcount & " Where TagId=" & sTargetId)
'进行用户TAG数据数据清理
Call conn.Execute("Delete * From oblog_Usertags Where TagId In (" & sIDs0 & ")")
'进行数据补充
Do While Not rst.Eof
Call conn.Execute("Insert Into oblog_UserTags(tagid,userid,logid) Values(" & sTargetId &"," & rst("userid")& "," & rst("logid") & ")")
'重新生成日志里的Tag
Set rst1=conn.Execute("Select b.* From oblog_UserTags a ,oblog_Tags b Where a.tagId=b.tagId And logid=" & rst("logid"))
j=0
sTags=""
sTagsId=""
'组合TAG字串和ID字串
Do While Not rst1.Eof
j=j+1
If j=1 Then
sTags=rst1("Name")
sTagsId=rst1("TagId")
Else
sTags= sTags & P_TAGS_SPLIT & rst1("Name")
sTagsId= sTagsId & P_TAGS_SPLIT & rst1("tagId")
End if
rst1.MoveNext
Loop
'更新关键字字串
Call conn.Execute("Update oblog_log Set logtags='" & sTags &"',logtagsid='" & sTagsId & "' Where logId=" & rst("logid"))
'重新生成静态页面？
rst.Movenext
Loop
rst.close
Set rst=Nothing
Set rst1=Nothing
oblog.showok "TAG合并成功!",""
End Sub
sub SaveModify()
dim sID,sName,sState,rst,sSql
sName=trim(request.Form("Name"))
sID=trim(request.Form("TagID"))
sState=trim(request.Form("iState"))
if sID="" Or Not IsNumeric(sId) then
FoundErr=true
ErrMsg=ErrMsg & "<br><li>参数不足！</li>"
exit sub
else
sID=Clng(sID)
end if
if founderr=true then
exit sub
end if
Set rst=Server.CreateObject("Adodb.RecordSet")
sSql="select * from oblog_Tags where TagID=" & sID
if not IsObject(conn) then link_database
rst.Open sSql,Conn,1,3
rst("Name")=sName
rst("iState")=sState
rst.update
rst.Close
Set rst=nothing
oblog.showok "修改成功!",""
end sub
sub MoveUser()
Conn.Execute sql
response.Redirect "admin_tags.asp"
'call WriteSuccessMsg(msg)
end sub
sub WriteErrMsg()
dim strErr
strErr=strErr & "<html><head><title>错误信息</title><meta http-equiv='Content-Type' content='text/html; charSet =gb2312'>" & vbcrlf
strErr=strErr & "<link href='style.css' rel='stylesheet' type='text/css'></head><body><br><br>" & vbcrlf
strErr=strErr & "<table cellpadding=2 cellspacing=1 border=0 width=400 class='border' align=center>" & vbcrlf
strErr=strErr & " <tr align='center' class='title'><td height='22'><strong>错误信息</strong></td></tr>" & vbcrlf
strErr=strErr & " <tr class='tdbg'><td height='100' valign='top'><b>产生错误的可能原因：</b>" & errmsg &"</td></tr>" & vbcrlf
strErr=strErr & " <tr align='center' class='tdbg'><td><a href='javascript:history.go(-1)'><< 返回上一页</a></td></tr>" & vbcrlf
strErr=strErr & "</table>" & vbcrlf
strErr=strErr & "</body></html>" & vbcrlf
response.write strErr
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -