<% 'option explicit Dim objStream, strFile Dim thread, filename, DirectoryPath, strFileWholePath Dim Cmd, param Dim strConnect, dbconn Dim ofile filename = Trim(Request.QueryString("filename")) DirectoryPath = "\\203.231.233.177\www\e4u_file\gva\"&course&"\step"&step&"\down\" strFileWholePath = DirectoryPath & filename Call fnCMSFileDown(strFileWholePath,filename) %>