使用SharePoint Portal Server 开发的同志请进

dotnba 2003-01-13 10:36:20
好象现在没有SharePoint Portal Server 专题。暂时把这个问题放这里。
初次接触,但是很急,希望有朋友能提供ASP全文搜索的例子。
或者能够在这个帖子指点一下。
谢谢
...全文
28 25 打赏 收藏 举报
写回复
25 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
dave_su 2003-01-15
没有必要用web part作,那既不好用又麻烦,直接用调用sdk地接口

查sharepoint sdk中,reference部分Subscription Management中有关于订阅的方法

比如这个例子


Dim oSubMgr
Set oSubMgr = CreateObject("PKM.SubscriptionManager")

Dim strWorkspace
strWorkspace = "MyWorkspace"
Dim strSubscriptionUrl

'4=search subscription, 1=immediate notification, 32767=subscribe to all changes
strSubscriptionUrl = oSubMgr.CreateSubscription(strWorkspace, _
"CONTAINS('Microsoft2')", _
4, _
1, _
"test@hotmail.com", _
"My Search Subscription", _
32767, _
"")


要不然你去看sharepoint里用到的页可以,你找这个文件
/npqjvc/Portal/resources/CreateSubscription.asp
看看他怎么写的,参考他应该可以作出来
  • 打赏
  • 举报
回复
dotnba 2003-01-15
经过Net_Lover和dave_su()帮助,我分析了CreateSubscription.asp和dbutil.vbs,现在利用CreateSubscription.asp来订阅应该没问题了。
现在还有一个问题就是分页了。
dave_su()你能在线帮助一下吗?
  • 打赏
  • 举报
回复
morningmountains 2003-01-15
我们公司现在就是用sharepoint来做内部管理。

它有2个产品。一个是team services.一个是portal server。

sharepoint team services是个简板。不过也很好用。

portal sever就复杂多了。里边主要对数字仪表板的开发了。
  • 打赏
  • 举报
回复
dotnba 2003-01-14
NET_LOVER

现在我把目录或者文章通过ASP枚举出来了。我想要在ASP中订阅。
之所以用ASP写,是因为原来觉得WEB-PART做出来的东西不好看。现在我的想法是在订阅的时候还是调用PORTAL自己的窗口,可是现在不知道怎么传参数。比如:
http://compaq5500/npqjvc/Portal/resources/CreateSubscription.asp?SubscriptionType=Category&UrlToReturnTo=http://COMPAQ5500/npqjvc/Categories/%25E4%25BF%259D%25E5%258D%25AB%25E5%25A4%2584/%25E5%2585%25AC%25E5%25BC%2580%25E9%2580%259A%25E6%258A%25A5%25E4%25BF%25A1%25E6%2581%25AF&DataUrl=:%E4%BF%9D%E5%8D%AB%E5%A4%84:%E5%85%AC%E5%BC%80%E9%80%9A%E6%8A%A5%E4%BF%A1%E6%81%AF
我可以把它反向解析过来,但是不知道怎么做,是否加密了?
还有就是直接调用他的订阅函数,但是又怕对内部订阅机制不清楚,从而导致一些意想不到的错误。
  • 打赏
  • 举报
回复
dawaer 2003-01-14
哇,楼上有很多“幸福”的人儿啊,我去听微软的课,得到一张spt的光盘,可死活安装不上去 郁闷…………………………………………

能给我点提示为什么我装不上去吗?
我的系统是 :win2k server (simple chinese)
sql server standard

还需要安装其他的东西吗?
  • 打赏
  • 举报
回复
killerdanny 2003-01-14
ResultSet lrs_resultset ADOresultset lrs_ADOresultset OLEObject loo_ADOrecordset // Generate a result set from an existing DataStore ds_source.GenerateResultSet(lrs_resultset) // Create a new ADOResultSet object and populate it // from the generated result set lrs_ADOresultset = CREATE ADOResultSet lrs_ADOResultset.SetResultSet(lrs_resultset) // Pass the data in the ADOResultSet object // to an OLEObject you can use as an ADO Recordset loo_ADOrecordset = CREATE OLEObject lrs_ADOResultset.GetRecordSet(loo_ADOrecordset) // Call native ADO Recordset methods on the OLEObject loo_ADOrecordset.MoveFirst()
//PBhelp-ADO
  • 打赏
  • 举报
回复
dave_su 2003-01-14
最好不要装sql server,最好不要装office
不能跟exchange共存,2000最少要打sp1,安装应该没有问题
安装sharepoint后就安装sharepoint的补丁
  • 打赏
  • 举报
回复
fa2002 2003-01-14
SharePoint Portal Server 是微软构筑企业内部Inartnet的一个很有效率的工具。使用它快速建立企业内部的在线论坛和新闻组等。
  • 打赏
  • 举报
回复
Sunny3141 2003-01-13
是什么东西?
  • 打赏
  • 举报
回复
fghjhhh 2003-01-13
up
  • 打赏
  • 举报
回复
rex_wang 2003-01-13
gz
  • 打赏
  • 举报
回复
myf7961 2003-01-13
gz
  • 打赏
  • 举报
回复
dotnba 2003-01-13
希望是采用ADO连接的。比如按作者、时间、内容等

<%
'On Error Resume Next

'Execute Query
Set conn = CreateObject("ADODB.Connection")
OnErrorExit "Error creating object: ADODB.Connection"
Set cmd = CreateObject("ADODB.Command")
OnErrorExit "Error creating object: ADODB.Command"
Set RS = CreateObject("ADODB.RecordSet")
OnErrorExit "Error creating object: ADODB.Recordset"

conn.ConnectionString = "provider=msdaipp.dso"
conn.CommandTimeout = 0
conn.Open "http://yudcserver/npqjvc"
OnErrorExit "Error opening connection"

set cmd.ActiveConnection = conn
cmd.CommandText = "select ""DAV:displayname"" from scope('deep traversal of ""/npqjvc""') where freetext('word doc')"
OnErrorExit "Error setting command properties"

RS.open cmd
OnErrorExit "Error executing query"

DumpRowset RS

''' DONE '''

Sub OnErrorExit (sMessage)
If Err.Number <> 0 Then
Response.Write sMessage & "<BR>"
Response.Write "Message '" & Err.Description & "' Number 0x" & Hex(Err.Number) & "<BR>"
End If
End Sub

Sub DumpRowset (RS)
Dim i, j
Dim sResult, sHead
i = 0
While Not RS.EOF
i = i + 1
sResult = ""
sHead = i & ") "
For j = 0 to RS.Fields.Count - 1
sResult = sResult & sHead & RS(j).Name & " : " & RS(j).Value & vbCRLF
sHead = Space (Len(sHead))
Next

Response.Write sResult & "<BR>"
RS.MoveNext
Wend

Response.Write i & " Results." & "<BR>"
End Sub
%>
  • 打赏
  • 举报
回复
xiaozg118 2003-01-13
不懂
学习
顺便帮你推一下 ^_^
  • 打赏
  • 举报
回复
qifanghcy 2003-01-13
这是什么呢??
  • 打赏
  • 举报
回复
lzl0901 2003-01-13
asp做过,用微软的索引,不知道你说的这个东东是什么,up以下。
  • 打赏
  • 举报
回复
孟子E章 2003-01-13
你有什么问题呀,我们做过这个
  • 打赏
  • 举报
回复
NewSun99 2003-01-13
Dim oF
Dim oRS
Dim strFolders

Set oF = Server.CreateObject("CDO.KnowledgeFolder")
Set oRS = Server.CreateObject("ADODB.Recordset")

'oF.DataSource.Open "http://Compaq5500/npqjvc/保卫处"
oF.DataSource.Open "http://yudcserver/npqjvc/documents"
Set oRS = oF.Subfolders

While Not oRS.EOF
'strFolders = strFolders + oRS.Fields("DAV:href") + vbCrLf
iPos = instrrev(oRS.Fields("DAV:href"),"/")
Response.Write Right(oRS.Fields("DAV:href"),Len(oRS.Fields("DAV:href")) - ipos) & "<BR>"
oRS.MoveNext
Wend
  • 打赏
  • 举报
回复
NewSun99 2003-01-13
DAV:displayname
DAV:href
DAV:getcontentlength
DAV:contentclass
DAV:getlastmodified
DAV:iscollection


urn:schemas-microsoft-com:office:office#Title
urn:schemas-microsoft-com:office:office#Author
urn:schemas-microsoft-com:office:office#Keywords
urn:schemas-microsoft-com:office:office#Comments
urn:schemas-microsoft-com:office:office#Subject

urn:schemas.microsoft.com:fulltextqueryinfo:description
urn:schemas.microsoft.com:fulltextqueryinfo:rank

urn:schemas-microsoft-com:publishing:BestBetKeywords
urn:schemas-microsoft-com:publishing:ShortcutTarget
urn:schemas-microsoft-com:publishing:isdoclibrarycontent
urn:schemas-microsoft-com:publishing:DiscussionTarget
urn:schemas-microsoft-com:publishing:owner
urn:schemas-microsoft-com:publishing:documentstate
urn:schemas-microsoft-com:publishing:operationsallowed
urn:schemas-microsoft-com:publishing:IsCheckedOut

urn:content-classes:categoryfolder
urn:content-classes:rootcategoryfolder
  • 打赏
  • 举报
回复
dave_su 2003-01-13

我那是参考sdk地接口写的,有问题吗?


  • 打赏
  • 举报
回复
加载更多回复(5)
发帖
Web 应用

655

社区成员

PowerBuilder Web 应用
社区管理员
  • Web 应用社区
加入社区
帖子事件
创建了帖子
2003-01-13 10:36
社区公告
暂无公告