موقع ASP STATIC CODE HTML ، يمكنك اختبار الميزات المحددة.
دالة htmll (Mulu ، htmlmulu ، اسم الملف ، filefrom ، htmla ، htmlb ، htmlc ، htmld)
إذا mulu = ثم mulu =/
إذا كان htmlmulu = ثم htmlmulu =/
mulu = استبدال (sysrootdir & mulu ، // ، /)
htmlmulu = استبدال (sysrootdir & htmlmulu ، // ، /)
filepath = server.mappath (mulu) و/& filename
do_url = http: //
do_url = do_url & request.servervariables (server_name) & htmlmulu & filefrom
do_url = do_url &؟
strurl = do_url
اضبط OBJXMLHTTP = server.createObject (microsoft.xmlhttp)
objxmlhttp.open get ، strurl ، خطأ
OBJXMLHTTP.SEND ()
binfiledata = objxmlhttp.responseBody
تعيين OBJXMLHTTP = لا شيء
اضبط ObjadoStream = server.createBject (ADODB. & Stream)
ObjadoStream.type = 1
objadostream.open ()
objadostream.write (binfiledata)
objadostream.savetofile filepath ، 2
objadostream.close ()
تعيين ObjadoStream = لا شيء
وظيفة نهاية