<%@ Language="VBScript" %>
<%' Option Explicit %>
<%
'²»Ê¹ÓÃÊä³ö»º³åÇø£¬Ö±½Ó½«ÔËÐнá¹ûÏÔʾÔÚ¿Í»§¶Ë
Response.Buffer = False
'ÉùÃ÷´ý¼ì²âÊý×é
Dim ObjTotest(26,4)
ObjTotest(0,0) = "MSWC.AdRotator"
ObjTotest(1,0) = "MSWC.BrowserType"
ObjTotest(2,0) = "MSWC.NextLink"
ObjTotest(3,0) = "MSWC.Tools"
ObjTotest(4,0) = "MSWC.Status"
ObjTotest(5,0) = "MSWC.Counters"
ObjTotest(6,0) = "IISSample.ContentRotator"
ObjTotest(7,0) = "IISSample.PageCounter"
ObjTotest(8,0) = "MSWC.PermissionChecker"
ObjTotest(9,0) = "Scripting.FileSystemObject"
ObjTotest(9,1) = "(FSO Îı¾Îļþ¶Áд)"
ObjTotest(10,0) = "adodb.connection"
ObjTotest(10,1) = "(ADO Êý¾Ý¶ÔÏó)"
ObjTotest(11,0) = "SoftArtisans.FileUp"
ObjTotest(11,1) = "(SA-FileUp ÎļþÉÏ´«)"
ObjTotest(12,0) = "SoftArtisans.FileManager"
ObjTotest(12,1) = "(SoftArtisans Îļþ¹ÜÀí)"
ObjTotest(13,0) = "LyfUpload.UploadFile"
ObjTotest(13,1) = "(ÁõÔÆ·åµÄÎļþÉÏ´«×é¼þ)"
ObjTotest(14,0) = "Persits.Upload.1"
ObjTotest(14,1) = "(ASPUpload ÎļþÉÏ´«)"
ObjTotest(15,0) = "w3.upload"
ObjTotest(15,1) = "(Dimac ÎļþÉÏ´«)"
ObjTotest(16,0) = "JMail.SmtpMail"
ObjTotest(16,1) = "(Dimac JMail ÓʼþÊÕ·¢) <a href="http://www.ajiang.net" mce_href="http://www.ajiang.net">ÖÐÎÄÊÖ²áÏÂÔØ</a>"
ObjTotest(17,0) = "CDONTS.NewMail"
ObjTotest(17,1) = "(ÐéÄâ SMTP ·¢ÐÅ)"
ObjTotest(18,0) = "Persits.MailSender"
ObjTotest(18,1) = "(ASPemail ·¢ÐÅ)"
ObjTotest(19,0) = "SMTPsvg.Mailer"
ObjTotest(19,1) = "(ASPmail ·¢ÐÅ)"
ObjTotest(20,0) = "DkQmail.Qmail"
ObjTotest(20,1) = "(dkQmail ·¢ÐÅ)"
ObjTotest(21,0) = "Geocel.Mailer"
ObjTotest(21,1) = "(Geo
ÔÚÍøÉÏ¿´µ½ºÜ¶àÕâ·½ÃæµÄ´úÂ룬µ«ÊÇÓÐЩÊDz»ÄÜÓã¬ÓÐЩÊÇÀ¬»ø´úÂëÌ«¶à£¬ÎÒ¼òµ¥µÄÐÞ¸ÄÁËÒ»ÏÂÏÖÔÚÓë´ó¼Ò¹²Ïíһϡ£
<%
Option Explicit
dim databasename '¶¨ÒåÊý¾Ý¿âÃû³Æ
databasename="database.mdb" 'Êý¾Ý¿âÃû³Æ
dim databasepath '¶¨ÒåÊý¾Ý¿â´æ·Å·¾¶
......