<%
Dim sSql,rst,iTagId,iUserId,skeyword,i,sType,sAll
Dim sPage,sContent,sTitle,sForm,sErr
Dim oTagName,oNum,oLastUpdate,iReturn
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
call sysshow()
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
%>