|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码程序<%
makesureyouhavethe6dir_*.giffiles!
yes,youcancopyoursifyawanttoo..:)
http://line9.com/img/dir_dir.gif..etc.
FunctionShowImageForType(strName)
strTemp=strName
IfstrTemp"dir"Then
strTemp=LCase(Right(strTemp,Len(strTemp)-InStrRev(strTemp,".",-1,1)))
EndIf
SelectCasestrTemp
Case"dir"
strTemp="dir"
Case"asp"
strTemp="asp"
Case"htm","html"
strTemp="htm"
Case"gif","jpg","jpeg","png","tif","cpt","bmp","pcx","tga","psd","eps"
strTemp="img"
Case"txt","text","dat","bat","sys"
strTemp="txt"
CaseElse
strTemp="misc"
EndSelect
strTemp="<fontface=Arial
size=2><b>"&strPath&"</b></font></td></tr>"
ForEachobjItemInobjFolder.SubFolders
IfInStr(1,objItem,"_vti",1)=0Then
Response.Write"<tr><td><fontface=Arialsize=2>"&ShowImageForType("dir")&""&_
"<ahref=""myFile.asp?Tek9="&strPath&objItem.Name&"/"">"&_
""&objItem.Name&"</a></font></td><td></td></tr>"
EndIf
Next
ForEachobjItemInobjFolder.Files
Response.Write"<tr><td><fontface=Arialsize=2>"&_
""&ShowImageForType(objItem.Name)&""&_
"<ahref="""&strPath&objItem.Name&""">"&objItem.Name&"</a></font></td>"&_
"<tdalign=right><fontface=Arialsize=2>"&objItem.Size&"</font></td></tr>"
Next
SetobjItem=Nothing
SetobjFolder=Nothing
SetobjFSO=Nothing
Response.Write"</table>"
%>
</p>Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来; |
|