#!/usr/bin/perl use strict; my $time = localtime; my $remote_id = $ENV{REMOTE_HOST} || $ENV{REMOTE_ADDR}; my $admin_email = $ENV{SERVER_ADMIN}; print "Content-type: text/html\n\n"; print <<END_OF_PAGE; Welcome to Mike's Mechanics Database

生成慢放、快放、顺放、逆放效果的视频 If (res AVIERR_OK) Then GoTo error Set bmp = New cDIB List2.ListIndex = 0 If bmp.CreateFromFile(zmaPath & "mypicture\" & List2.Text) True Then MsgBox "Could not load first bitmap file in list!", vbExclamation, App.title Exit Sub