|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。程序1.实在我如今利用的就是一个对照完全的。代码见下:
2.因为必要在两天以内写出来(thewholesite),代码很不大度,也没有errhandle,optimize.
3.filesystemobject只能用相对路径。以是必要mappathmethod.
4.Microsoftsuminfoobject只撑持当地文件,不克不及netuse...
5.可是他有c++的源代码,你能够...
6.很抱愧没举措把全部站点和人人共享,由于在Intranet.
7.为了对人人卖力,我又看了一遍这段半年前的代码,好烂。:-)
凑和用8。:-)
=================================
<%@Language=VBScript%>
<%
*********************************************************
thisfileiswrittenby
kwcopyrightreserved.:-)
ifyouhaveanyquestion,directlycontactw/me.
somefeaturesarejustunderconstruction...
*********************************************************
%>
<HTML>
<HEAD>
<METANAME="GENERATOR"Content="MicrosoftVisualStudio6.0">
<LINKREL="stylesheet"TYPE="text/CSS"HREF="/css/myCSS.CSS">
</HEAD>
<BODY>
<SCRIPTLANGUAGE=javascript>
<!--
functionmousemove()
{
varsrcElement;
srcElement=window.event.srcElement;
{
srcElement.className="coolstyle";
}
}
functionmou搜索引擎优化ut()
{
varsrcElement;
srcElement=window.event.srcElement;
{
srcElement.className="normalstyle";
}
}
//-->
</SCRIPT>
<SCRIPTLANGUAGE=vbscriptRUNAT=Server>
VirtualRoot
FileServerName="fileserver"
VRoot="/file"
Getthefilescollectionfromcurrentfolder
dimfs,f,f1,fc,s
setfs=createobject("scripting.filesystemobject")
beginoffunction-togetpathinfofromexternal
getPathparameterfromexternal
sPath=Request("sPath")
if(sPath=""orsPath=".")then
sPath="."
Response.Write"<TABLEclass=tablefilenameborder=0width=100%>"
Response.Write"<TRalign=center>"
sHelloString="Hi,guy,ididntgetcorrectpathinfo,soIcanonlyshowyoucurrentfolder"
Response.Write"<TD>"&sHelloString&"</TD></TR></TABLE>"
endif
mergeAbsolutepath
sAbPath=server.MapPath(".")&"/"&sPath
setf=fs.GetFolder(sAbPath)
endoffunction-togetpathinfofromexternal
setfc=f.files
Createsuminfoobject
dimsuminfo
setSumInfo=Server.CreateObject("IISSample.SummaryInfo")
Whichkindsofdocumentshouldbedisplayed?
bDocChecked=Request.Form("doc")
bXDocChecked=Request("XDoc")
bPptChecked=Request.Form("ppt")
bXPptChecked=Request("XPpt")
bXlsChecked=Request.Form("xls")
bXXlsChecked=Request("XXls")
bTxtChecked=Request.Form("txt")
bXTxtChecked=Request("XTxt")
bZipChecked=Request.Form("zip")
bXZipChecked=Request("XZip")
&nb</p>asp,jsp,php是web开发的三大技术,asp简单易用且有microsoft做靠山,jsp功能强大是因为有java支持,php则开源跨平台.在国内,asp应用范围最广,jsp发展势头最猛,php则处于劣势.这可能与公司的支持以及技术的培训有关. |
|