m_tags.asp

电子备课系统

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>&nbsp;&nbsp;合并后的ID:<input type="text" name="tagIds" id="tagIds" size=10 disabled>
            <input name="Action" type="radio" value="batchdel"  onClick="document.myform.tagNames.disabled=true;document.myform.tagIds.disabled=true">删除
              &nbsp;<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"%>>
        正常&nbsp;&nbsp; <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"))
	If sId<>"" Then
		conn.Execute("Update oblog_Tags Set iState=0 Where TagId In (" & sID & ")")
		WriteSysLog "进行了锁定TAG操作，目标TAGID："&sId&"",oblog.NowUrl&"?"&Request.QueryString
		oblog.ShowMsg "锁定成功!",""
	Else
		oblog.ShowMsg "请选择要操作的TAG!",""
	End If
End Sub

Sub BatchUnLock()
	Dim sID
	sId=FilterIds(Request("TagId"))
	conn.Execute("Update oblog_Tags Set iState=1 Where TagId In (" & sID & ")")
	WriteSysLog "进行了解锁TAG操作，目标TAGID："&sId&"",oblog.NowUrl&"?"&Request.QueryString
	oblog.ShowMsg "解锁成功!",""
End Sub

Sub BatchDel()
	Dim sIDs,aIds,rst1,rst2,sTagIds1,sTags1,blog,sUserId
	sIDs=FilterIds(Request("TagId"))
	If sIds=""  Then
		FoundErr=true
		ErrMsg=ErrMsg & "<br><li>参数不足！</li>"
		exit sub
	End If
	Set blog=New Class_blog
	'首先取出使用这些Tag的日志
	'重新整理TAG，更新日志
	'删除这些TAG
	Set rst1=Oblog.Execute("Select Distinct logid From oblog_usertags Where tagid in (" & sIds & ")")
	Do While Not rst1.Eof
		sTagIds1=""
		sTags1=""
		Set rst2=oblog.Execute("Select a.tagid,a.name,b.userid From oblog_tags a,oblog_usertags b Where a.tagid=b.tagid And  b.logid=" & rst1(0) & " And b.tagid Not in (" & sIds &")")
		If Not rst2.Eof Then
			Do While Not rst2.Eof
				sTagIds1=sTagIds1 & P_TAGS_SPLIT & rst2(0)
				sTags1=sTags1 & P_TAGS_SPLIT & rst2(1)
				sUserId=rst2(2)
				rst2.Movenext
			Loop
			If sTags1<>"" Then
				sTagIds1=Right(sTagIds1,Len(sTagIds1)-Len(P_TAGS_SPLIT))
				sTags1=Right(sTags1,Len(sTags1)-Len(P_TAGS_SPLIT))
			End If
			Call oblog.Execute("Update oblog_log Set logtags='" & sTags1 & "',logtagsid='" & sTagIds1 & "' Where logid=" & rst1(0))
			'更新静态文件
			blog.userid = sUserId
	    blog.update_log rst1(0), 0
	  End If
		rst1.MoveNext
	Loop
	Set rst1=Nothing
	Set rst2=Nothing
	Set blog=Nothing
	conn.Execute("Delete From oblog_Tags Where TagId In (" & sIDs & ")")
	conn.Execute("Delete From oblog_UserTags Where TagId In (" & sIDs & ")")
	WriteSysLog "进行了删除TAG操作，目标TAGID："&sIds&"",oblog.NowUrl&"?"&Request.QueryString
	oblog.ShowMsg "删除成功!",""
End Sub

Sub MergeTags()
	If Request.QueryString <>"" Then Exit Sub
	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="" Or InStr(sIDs,",")=0 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
	WriteSysLog "进行了合并TAG操作，目标TAGID："&sTargetId&"",""
	oblog.ShowMsg "TAG合并成功!",""
End Sub

sub SaveModify()
	If Request.QueryString <>"" Then Exit Sub
	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
	WriteSysLog "进行了修改TAG操作，目标TAGID："&sID&"",""
	oblog.ShowMsg "修改成功!",""
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)'>&lt;&lt; 返回上一页</a></td></tr>" & vbcrlf
	strErr=strErr & "</table>" & vbcrlf
	strErr=strErr & "</body></html>" & vbcrlf
	Response.write strErr
end sub
Set oblog = Nothing
%>