m_tags.asp
来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 508 行 · 第 1/2 页
ASP
508 行
response.write "0"
end if
%>
</span>
</td>
<td align="center"><%
if rs("iState")=1 then
response.write "<span style=""font-weight:600;color:#090;"">正在使用</span>"
else
response.write "<span style=""font-weight:600;color:#f30;"">被锁定</span>"
end if
%></td>
<td align="center"><%
response.write "<a href='m_tags.asp?Action=Modify&TagID=" & rs("TagID") & "'>修改</a> "
if rs("iState")=1 then
response.write "<a href='m_tags.asp?Action=batchlock&TagID=" & rs("TagID") & "'>锁定</a> "
else
response.write "<a href='m_tags.asp?Action=batchunlock&TagID=" & rs("TagID") & "'>解锁</a> "
end if
%> </td>
</tr>
<%
i=i+1
if i>=G_P_PerMax 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>
<%
If TagSearch="4" Then
%>
<input name="Action" type="radio" value="batchunlock" checked onClick="document.myform.tagNames.disabled=true;document.myform.tagIds.disabled=true">
解除锁定
<%
Else
%>
<input name="Action" type="radio" value="batchlock" checked onClick="document.myform.tagNames.disabled=true;document.myform.tagIds.disabled=true">锁定
<%
End If
%><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></form>
</div>
</div>
<ul class="main_end">
<li class="main_end_left left"></li>
<li class="main_end_right right"></li>
</ul>
</div>
<%
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
%>
<div id="main_body">
<ul class="main_top">
<li class="main_top_left left">修改注册 TAG 信息</li>
<li class="main_top_right right"> </li>
</ul>
<div class="main_content_rightbg">
<div class="main_content_leftbg">
<FORM name="Form1" action="m_tags.asp" method="post">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
<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>
</div>
</div>
<ul class="main_end">
<li class="main_end_left left"></li>
<li class="main_end_right right"></li>
</ul>
</div>
<%
rst.close
Set rst=nothing
end sub
Sub BatchLock()
Dim sID
sId=FilterIds(Request("TagId"))
conn.Execute("Update oblog_Tags Set iState=0 Where TagId In (" & sID & ")")
oblog.showok "锁定成功!",""
End Sub
Sub BatchUnLock()
Dim sID
sId=FilterIds(Request("TagId"))
conn.Execute("Update oblog_Tags Set iState=1 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("TagId"))
sTargetName=Trim(Request("tagNames"))
sTargetId=Trim(Request("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 "m_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 + =
减小字号Ctrl + -
显示快捷键?