ASP编程：使用企图义务和VBS剧本完成主动WEB共享...

由于ASP提供的是一对多的服务，所以用户的一些特殊需求很难得到满足。web|剧本　　实在没有标题写得那末庞大，就是用企图义务每隔一段工夫挪用VBS剧本，革新天生一个文件列表文件用于WEB服务挪用。
OptionExplicit
OnErrorResumeNext
天生列表的文件范例
ConstsListFileType="wmv,rm,wma"
文件地点的绝对路径
ConstsShowPath="."
排序范例的常量界说
ConstiOrderFieldFileName=0
ConstiOrderFieldFileExt=1
ConstiOrderFieldFileSize=2
ConstiOrderFieldFileType=3
ConstiOrderFieldFileDate=4
排序顺逆的常量界说
constiOrderAsc=0
constiOrderDesc=1
天生列表的文件数目
constiShowCount=20


显现的日期格局函数
FunctionCndate2(date1,intDateStyle)
dimstrdate,dDate1
strdate=cstr(date1)
IfIsdate(strdate)Then
IfLeft(cstr(strdate),1)="0"Then
dDate1=Cdate("20"+cstr(strdate))
else
dDate1=Cdate(strdate)
EndIf
Else
dDate1=Now()
EndIf
SelectcaseintDateStyle
Case1:
Cndate2=Cstr(Year(dDate1))+"-"+Cstr(Month(dDate1))+"-"+Cstr(Day(dDate1))
Case2:
Cndate2=Cstr(Month(dDate1))+"-"+Cstr(Day(dDate1))
Case3:
Cndate2=Cstr(Month(dDate1))+"月"+Cstr(Day(dDate1))+"日"
Case4:
Cndate2=Cstr(year(dDate1))+"年"+Cstr(Month(dDate1))+"月"+Cstr(Day(dDate1))+"日"
EndSelect
EndFunction

FunctionListFile(strFiletype,intCompare,intOrder,intShowCount)
DimsListFile
Dimfso,f,f1,fc,s,ftype,fcount,i,j,k
Dimt1,t2,t3,t4,t5
DimiMonth,iDay
sListFile=""
Setfso=CreateObject("Scripting.FileSystemObject")
Setf=fso.GetFolder(sShowPath)
Setfc=f.Files
fcount=fc.count
redimarrFiles(fcount,5)
redimarrFiles2(fcount,5)
i=0
排序
ForEachf1infc
ftype=right(f1.name,len(f1.name)-instrrev(f1.name,"."))
arrFiles(i,0)=f1.name
arrFiles(i,1)=ftype
arrFiles(i,2)=f1.size
arrFiles(i,3)=f1.type
arrFiles(i,4)=f1.DateLastModified
i=i+1
Next
Fori=0tofcount-1
forj=i+1tofcount-1
selectCaseintCompare
CaseiOrderFieldFileName,iOrderFieldFileExt,iOrderFieldFileType:
IfarrFiles(i,intCompare)>arrFiles(j,intCompare)then
t1=arrFiles(i,0)
t2=arrFiles(i,1)
t3=arrFiles(i,2)
t4=arrFiles(i,3)
t5=arrFiles(i,4)
arrFiles(i,0)=arrFiles(j,0)
arrFiles(i,1)=arrFiles(j,1)
arrFiles(i,2)=arrFiles(j,2)
arrFiles(i,3)=arrFiles(j,3)
arrFiles(i,4)=arrFiles(j,4)
arrFiles(j,0)=t1
arrFiles(j,1)=t2
arrFiles(j,2)=t3
arrFiles(j,3)=t4
arrFiles(j,4)=t5
endif
CaseiOrderFieldFileSize:
Ifcdbl(arrFiles(i,intCompare))>cdbl(arrFiles(j,intCompare))then
t1=arrFiles(i,0)
t2=arrFiles(i,1)
t3=arrFiles(i,2)
t4=arrFiles(i,3)
t5=arrFiles(i,4)
arrFiles(i,0)=arrFiles(j,0)
arrFiles(i,1)=arrFiles(j,1)
arrFiles(i,2)=arrFiles(j,2)
arrFiles(i,3)=arrFiles(j,3)
arrFiles(i,4)=arrFiles(j,4)
arrFiles(j,0)=t1
arrFiles(j,1)=t2
arrFiles(j,2)=t3
arrFiles(j,3)=t4
arrFiles(j,4)=t5
endif
CaseiOrderFieldFileDate:
IfCdate(arrFiles(i,intCompare))>Cdate(arrFiles(j,intCompare))then
t1=arrFiles(i,0)
t2=arrFiles(i,1)
t3=arrFiles(i,2)
t4=arrFiles(i,3)
t5=arrFiles(i,4)
arrFiles(i,0)=arrFiles(j,0)
arrFiles(i,1)=arrFiles(j,1)
arrFiles(i,2)=arrFiles(j,2)
arrFiles(i,3)=arrFiles(j,3)
arrFiles(i,4)=arrFiles(j,4)
arrFiles(j,0)=t1
arrFiles(j,1)=t2
arrFiles(j,2)=t3
arrFiles(j,3)=t4
arrFiles(j,4)=t5
endif
EndSelect
next
next
天生列表
sListFile=sListFile+("<tablecellpadding=0cellspacing=0width=100%align=centerclass=""PageListTable""style=""BEHAVIOR:url(images/sort2.htc);"">")
sListFile=sListFile+("<THEAD><Trclass=PageListTitleTr><Tdclass=PageListTitleTd>")
sListFile=sListFile+("称号")
sListFile=sListFile+("</td><Tdclass=PageListTitleTd>")
sListFile=sListFile+("媒体")
sListFile=sListFile+("</td><Tdclass=PageListTitleTd>")
sListFile=sListFile+("巨细")
sListFile=sListFile+("</td><Tdclass=PageListTitleTd>")
sListFile=sListFile+("范例")
sListFile=sListFile+("</td><Tdclass=PageListTitleTdID=updatetime>")
sListFile=sListFile+("更新工夫")
sListFile=sListFile+("</td></Tr></THEAD>")
dimiLoopStart,iLoofEnd,iLoopStep
IfintOrder=0then
iLoopStart=0
iLoofEnd=fcount-1
iLoopStep=1
Else
iLoopStart=fcount-1
iLoofEnd=0
iLoopStep=-1
Endif
dimiCount,sTDStyleClass
iCount=1
Forj=iLoopStarttoiLoofEndStepiLoopStep
Ifinstr(strFiletype,arrFiles(j,1))>0andiCount<=intShowCountthen
sTDStyleClass="PageListTd"+Cstr((iCountmod2)+1)
sListFile=sListFile+("<Trclass=PageListTr><Tdclass="+sTDStyleClass+">")
sListFile=sListFile+("<ahref="&sShowPath&"/"&CStr(arrFiles(j,0))&">"&arrFiles(j,0)&"</a>")
Ifdatediff("h",arrFiles(j,4),now)<=24then
sListFile=sListFile+"<imgsrc=http://www.webjx.com/htmldata/2005-11-20/images/new.gifalign=absmiddle>"
endif
sListFile=sListFile+"</td><Tdclass="+sTDStyleClass+">"
sListFile=sListFile+("<ahref="&sShowPath&"/"&CStr(arrFiles(j,0))&">")
依据文件名划定规矩,天生中文提醒
selectcaseleft(arrFiles(j,0),3)
case"sc2":
sListFile=sListFile+"<fontcolor=#AA0000>四川卫视"
case"sd2":
sListFile=sListFile+"<fontcolor=#00AA00>山东卫视"
case"gd2":
sListFile=sListFile+"<fontcolor=#0000AA>广东卫视"
case"gx2":
sListFile=sListFile+"<fontcolor=#AAAA00>广西卫视"
endselect
日期显现
Ifisnumeric(left(right(arrFiles(j,0),8),2))then
iMonth=cint(left(right(arrFiles(j,0),8),2))
iDay=cint(left(right(arrFiles(j,0),6),2))
sListFile=sListFile+cstr(iMonth)+"月"+cstr(iDay)+"日"
sListFile=sListFile+("</a></td><Tdclass="+sTDStyleClass+"align=right>")
Else
response.writearrFiles(j,0)
endif
IfarrFiles(j,2)>1024*1024then
sListFile=sListFile+cstr(round(arrFiles(j,2)/1024/1024))
sListFile=sListFile+("MB")
else
sListFile=sListFile+cstr(round(arrFiles(j,2)/1024))
sListFile=sListFile+("KB")
endif
sListFile=sListFile+("</td>")
sListFile=sListFile+("<Tdclass="+sTDStyleClass+">")
sListFile=sListFile+cstr(arrFiles(j,3))
sListFile=sListFile+("</td>")
sListFile=sListFile+("<Tdclass="+sTDStyleClass+">")
sListFile=sListFile+(Cndate2(arrFiles(j,4),4))
sListFile=sListFile+("</td>")
sListFile=sListFile+("</Tr>")
iCount=iCount+1
endif
next
sListFile=sListFile+"</table>"
ListFile=sListFile
EndFunction
天生挪用文件的历程
SubShowFileListContent()
DimtUpdatetime,sUpdateContent
Dimfso,f,f_js,f_js_write
Setfso=CreateObject("Scripting.FileSystemObject")
Setf=fso.GetFolder(sShowPath)
Setf_js=fso.GetFile("list.js")

对照挪用文件与文件夹的最初修正工夫
Iff.DateLastModifiedf_js.DateLastModifiedthen
sUpdateContent=ListFile(sListFileType,iOrderFieldFileDate,iOrderDesc,iShowCount)
Setf_js_write=fso.CreateTextFile("list.js",True)
JS挪用就加高低面这对document.write
f_js_write.Write("document.write(")
f_js_write.Write(sUpdateContent)
f_js_write.Write(")")
f_js_write.Close
EndIf
EndSub
CallShowFileListContent()
当然了,现在国内CRM厂商的产品与其说是CRM,但从至少从我的角度分析上来看,充其量只是一个大型的进销存而已了,了解尚浅,不够胆详评,这里只提技术问题

我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)

ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。

那么，ASP.Net有哪些改进呢？

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。