<% Dim sSql,rst,iTagId,iUserId,sKeyword,i,sType,sAll Dim sPage,sContent,sTitle,sForm,sErr Dim oTagName,oNum,oLastUpdate,iReturn sForm="

" & VBCRLF sForm = sForm & "  " & P_TAGS_DESC & "关键字  " & VBCRLF sForm = sForm & "" & VBCRLF sForm = sForm & "

" & VBCRLF sType = LCase(Trim(Request.Querystring("t"))) iTagId = Trim(Request.Querystring("tagid")) iUserId = Trim(Request.Querystring("userid")) sKeyword= Trim(Request("keyword")) sAll=Trim(Request.Querystring) If sAll & sKeyword="" Then sType="hottags" Call link_database() select Case sType Case "hottags" sTitle="最热门的100个" & P_TAGS_DESC sContent=Tags_Hottags() Case "cloud" sTitle=P_TAGS_DESC & "云图" sContent=Tags_SystemTags(1) Case "list" sTitle=P_TAGS_DESC & "列表" sContent=Tags_SystemTags(0) Case "user" sTitle=P_TAGS_DESC & "用户" sContent=GetUsersByTag(iTagId) Case Else If sKeyword="" Then If iTagId="" Then Call GoErr("必须指定" & P_TAGS_DESC & " ID") Else If Not IsNumeric(iTagId) Then Call GoErr("错误的" & P_TAGS_DESC & " ID") Else iReturn=CINT(Tags_TagName(iTagId,oTagName,oNum,oLastUpdate)) If iReturn=-1 Then oTagName="--" End If sTitle=P_TAGS_DESC & " : " & oTagName & "" iTagId=CLng(iTagId) End If End If If iUserId="" Then sContent = Tags_TagBlogs("",iTagId) Else If Not IsNumeric(iUserId) Then Call GoErr("错误的用户ID") Else iUserId=CLng(iUserId) iReturn=CINT(Tags_TagName(iTagId,oTagName,oNum,oLastUpdate)) If iReturn=-1 Then oTagName="--" End If sTitle=" : " & GetUserInfo(iUserId) & "," & P_TAGS_DESC & " : " & oTagName & "" sContent = Tags_TagBlogs(iUserId,iTagId) End If End If If iUserId & iTagId ="" Then sTitle=P_TAGS_DESC & "云图" sContent=Tags_SystemTags(1) End If Else sKeyword=ProtectSql(sKeyword) sTitle="包含" & sKeyword & "的" & P_TAGS_DESC sContent=Tags_SearchTag(sKeyword) End If End select Function GoErr(byval sErrMsg) Response.Redirect "err.asp?message=" & sErrmsg End Function sPage = vbcrlf & "" & vbcrlf sPage = sPage & " " & vbcrlf sPage = sPage & " " & vbcrlf sPage = sPage & " " & vbcrlf sPage = sPage & " " & vbcrlf sPage = sPage & " " & vbcrlf sPage = sPage & " " & vbcrlf sPage = sPage & " " & vbcrlf sPage= sPage & "

" & vbcrlf sPage = sPage & sForm & vbcrlf sPage = sPage & "	" & vbcrlf sPage = sPage & "
" & vbcrlf sPage = sPage & "当前位置：首页→" & sTitle & vbcrlf sPage = sPage & "	" & vbcrlf sPage = sPage & "热门" & P_TAGS_DESC &"　　" sPage = sPage & "" & P_TAGS_DESC &"云图" & vbcrlf sPage = sPage & "

" & vbcrlf sPage= sPage & "

---

" & vbcrlf sPage = sPage & sContent & vbcrlf call sysshow() G_P_Show = Replace (G_P_Show,"$show_title_list$", "TAG列表--"&oblog.cacheConfig(2) ) G_P_Show=Replace(G_P_Show,"$show_list$",sPage) Response.Write G_P_Show & oblog.site_bottom If IsObject(conn) Then conn.close Set conn=Nothing End If %>