|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp,你就只能等着微软给你解决,它不乐意你就只好悲催。而且asp跑在windows服务器上,windows服务器跟linux比起来简直弱爆了!server1,自界说一个内容类如:urn:contentclasses:document1
个中有自界说属性:Clicknumber
2,所建的文档的内容类界说为1的。
3,创建一个窗体注册
urn:schemas-microsoft-com:office:forms#contentclass为1创建的urn:contentclasses:document1
urn:schemas-microsoft-com:office:forms#cmd为*
urn:schemas-microsoft-com:office:forms#formurl为chkopen.asp
urn:schemas-microsoft-com:office:forms#executeurl为chkopen.asp
urn:schemas-microsoft-com:office:forms#bindingserver
4,list.asp
<%
FunctionAddQuotes(strValue)
ConstQUOTE=""""
AddQuotes=_
QUOTE_
&Replace(strValue,QUOTE,QUOTE"E)_
"E
EndFunction
DimcnnAsADODB.Connection
DimrstAsADODB.Recordset
DimurlFldAsString
DimstrSQLAsString
urlFld="http://aaa.com/fld1/"
Setcnn=CreateObject("ADODB.Connection")
Withcnn
.Provider="exoledb.datasource"
.OpenurlFld
EndWith
strSQL="Select"&_
AddQuotes("DAV:displayname")&","&_
AddQuotes("DAV:contentclass")&","&_
AddQuotes("Clicknumber")&","&_
AddQuotes("DAV:href")
strSQL=strSQL&_
"FROMSCOPE(SHALLOWtraversalof"&_
AddQuotes(urlFld)&")"
strSQL=strSQL&_
"WHERE"&AddQuotes("DAV:contentclass")&_
"=urn:contentclasses:document1"
strSQL=strSQL&_
"ORDERBY"&AddQuotes("DAV:displayname")
Setrst=CreateObject("ADODB.Recordset")
Withrst
.OpenstrSQL,cnn
EndWith
response.Write"<table>"
DoUntilrst.EOF
response.Write"<tr><tdwidth=200>"
%>
<ahref="../fld1/<%=rst.Fields("DAV:displayname")%>"></a>
<%
response.Write"</td></tr>"
rst.MoveNext
Loop
response.Write"</table>"
rst.Close
cnn.Close
Setrst=Nothing
Setcnn=Nothing
%>
5,chkopen.asp
<%
Dimrec
dimii
Dimcnn
DimstrUrl
strDataUrl=request.querystring("dataurl")
Setcnn=CreateObject("adodb.connection")
Withcnn
.Provider="exoledb.datasource"
.OpenstrDataUrl
EndWith
Setrec=server.CreateObject("adodb.record")
rec.OpenstrDataUrl,cnn,3adModeReadWrite
ii=rec.fields("Clicknumber")
rec.fields("Clicknumber")=ii+1
rec.fields.update
rec.close
%>
openitem........
运转list.asp
点击文件时挪用chkopen.asp使Clicknumber+1同时翻开该文件.其URL由strDataUrl=request.querystring("dataurl")完成.
强大的可扩展性。ASP具有强大的扩展性,可以实现与多种网络、硬件设备的连接:通过专用的通讯线路远程接入企业;通过远程拨号服务器为远程拨号客户提供服务;通过WAP为移动电话互联网客户服务。 |
|