使用SharePoint Portal Server 开发的同志请进
好象现在没有SharePoint Portal Server 专题。暂时把这个问题放这里。
初次接触，但是很急，希望有朋友能提供ASP全文搜索的例子。
或者能够在这个帖子指点一下。
谢谢
问题点数：200、回复次数：25Top
1 楼lzl0901（对PB一窍不通）回复于 2003-01-13 11:08:31 得分 5
asp做过，用微软的索引，不知道你说的这个东东是什么，up以下。Top
2 楼qifanghcy（菜鸟QiFang）回复于 2003-01-13 11:13:55 得分 2
这是什么呢??Top
3 楼xiaozg118（肖）回复于 2003-01-13 11:21:07 得分 3
不懂
学习
顺便帮你推一下 ^_^Top
4 楼ldy（罗大佑）回复于 2003-01-13 11:23:53 得分 0
希望是采用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
%>Top
5 楼rex_wang（王）回复于 2003-01-13 11:32:02 得分 0
gzTop
6 楼fghjhhh（潇雨）回复于 2003-01-13 11:32:58 得分 0
upTop
7 楼Sunny3141（太阳）回复于 2003-01-13 12:56:55 得分 0
是什么东西？Top
8 楼th820901（四水)(月光如水水如天）回复于 2003-01-13 13:21:09 得分 20
大佑兄现在哪里出差？我找找看...Top
9 楼th820901（四水)(月光如水水如天）回复于 2003-01-13 13:21:54 得分 0
大佑兄现在哪里出差？我找找看...
Top
10 楼dave_su（）回复于 2003-01-13 14:57:13 得分 10
一个简单的例子
sharepoint sdk中有很多的例子
<%
On Error Resume Next
dim con,cmd,rs,strSql
Set con = 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"
con.ConnectionString = "provider=msdaipp.dso"
con.CommandTimeout = 0
con.Open "http://sharepoint/knowledge"
OnErrorExit "Error opening connection"
set cmd.ActiveConnection = con
strSql="select * from scope('shallow traversal of ""/knowledge/Documents""')"
'" where freetext('word doc txt asp')"
'strSql="select ""DAV:displayname"" as displayname from scope('deep traversal of ""/knowledge/""') where freetext ('word doc txt asp')"
'strSql="select ""DAV:displayname"" as displayname from scope('deep traversal of ""/knowledge/""') where contains ('html')"
cmd.CommandText = strSql
OnErrorExit "Error setting command properties"
'writeln strSql
'response.end
RS.open cmd
OnErrorExit "Error executing query"
int intRecordcount
intRecordcount=0
DumpRowset RS
rs.close
set rs=nothing
cmd.close
set cmd=nothing
con.close
set con=nothing
%>Top
11 楼CHINAhello（卫星天线★重入江湖★不论夜有多黑，孤独舍命狂奔）回复于 2003-01-13 15:03:01 得分 0
不好意思，没作过Top
12 楼ldy（罗大佑）回复于 2003-01-13 15:03:38 得分 0
楼上的兄弟，谢谢
其实我上面写的也是SDK的，希望能有非SDK的，最好是自己的实战代码。
Top
13 楼dave_su（）回复于 2003-01-13 15:05:42 得分 0
我那是参考sdk地接口写的，有问题吗？
Top
14 楼NewSun99（旭日）回复于 2003-01-13 18:40:42 得分 20
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:rootcategoryfolderTop
15 楼NewSun99（旭日）回复于 2003-01-13 18:41:51 得分 0
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
WendTop
16 楼net_lover（【孟子E章】）回复于 2003-01-13 20:15:48 得分 50
你有什么问题呀，我们做过这个Top
17 楼myf7961（家穷人丑，农村户口；唯一朋友，一条小狗）回复于 2003-01-13 23:30:28 得分 0
gzTop
18 楼dawaer（风吹不散长恨 花染不透乡愁）回复于 2003-01-14 00:41:13 得分 0
哇，楼上有很多“幸福”的人儿啊，我去听微软的课，得到一张spt的光盘，可死活安装不上去 郁闷…………………………………………
能给我点提示为什么我装不上去吗？
我的系统是 ：win2k server (simple chinese)
sql server standard
还需要安装其他的东西吗？Top
19 楼fa2002（风翔万里）回复于 2003-01-14 09:11:22 得分 0
SharePoint Portal Server 是微软构筑企业内部Inartnet的一个很有效率的工具。使用它快速建立企业内部的在线论坛和新闻组等。Top
20 楼dave_su（）回复于 2003-01-14 09:20:51 得分 0
最好不要装sql server,最好不要装office
不能跟exchange共存,2000最少要打sp1,安装应该没有问题
安装sharepoint后就安装sharepoint的补丁
Top
21 楼killerdanny（堕落的瓦拉斯塔兹）回复于 2003-01-14 09:29:05 得分 20
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-ADOTop
22 楼ldy（罗大佑）回复于 2003-01-14 12:52:24 得分 0
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
我可以把它反向解析过来，但是不知道怎么做，是否加密了？
还有就是直接调用他的订阅函数，但是又怕对内部订阅机制不清楚，从而导致一些意想不到的错误。Top
23 楼dave_su（）回复于 2003-01-15 09:54:52 得分 50
没有必要用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
看看他怎么写的，参考他应该可以作出来
Top
24 楼morningmountains（小山）回复于 2003-01-15 13:50:18 得分 20
我们公司现在就是用sharepoint来做内部管理。
它有2个产品。一个是team services.一个是portal server。
sharepoint team services是个简板。不过也很好用。
portal sever就复杂多了。里边主要对数字仪表板的开发了。Top
25 楼ldy（罗大佑）回复于 2003-01-15 14:10:49 得分 0
经过Net_Lover和dave_su()帮助，我分析了CreateSubscription.asp和dbutil.vbs，现在利用CreateSubscription.asp来订阅应该没问题了。
现在还有一个问题就是分页了。
dave_su()你能在线帮助一下吗？Top
相关问题
- sharepoint portal server Keywords 关键词
- 有谁使用Microsoft SharePoint Portal Server?
- Sharepoint portal server 2003 Web存取失敗
- 如何让sharepoint portal server 的layout 配置生效 ？
- sharepoint portal server中文档安全性设置问题
- sharepoint portal server中文档安全性设置问题
- 使用SharePoint Portal Server建企业门户时遇到的问题
- SharePoint Portal Server怎么写对数据库操作的程序?
- 100分求office sharepoint portal server 2003下载地址
- 请教解决方法:SharePoint Portal Server 2k3 创建门户网站失败
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
